Télécharger la plaquette Cast3M


fr en

Télécharger @laverg.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @LAVERG   PROCEDUR  KK2000    99/11/30    21:15:24     3720           
  2. *
  3. ************************************************************************
  4. *                        PROCEDURA @LAVERG
  5. ************************************************************************
  6. *
  7. * Descrizione : permette di effettuare una verifica grafica del
  8. *               rateo di rottura relativo ad un criterio
  9. *
  10. * Sintassi    : @LAVERG TAB_CRIT NPLY OEIL1 ;
  11. *
  12. *
  13. * Autore/Data : Miliozzi A.  10/04/1997
  14. *
  15. *
  16. * Revisioni   :
  17. *
  18. ************************************************************************
  19. *
  20. *--- INPUT
  21. *=========
  22. *
  23. * TAB_CRIT  Tavola dei ratei di rottura strato per strato
  24. *           (Prodotta da LACRIT)
  25. *
  26. * NPLY      Numero dello strato che si vuole verificare
  27. *
  28. * OEIL1     Punto di vista
  29. *
  30. *--- OUTPUT
  31. *==========
  32. *
  33. *
  34. ************************************************************************
  35. *
  36. DEBPROC @LAVERG TAB1*TABLE NPLY*ENTIER OEIL1*POINT ;
  37. *
  38.   GEO1 = EXTRAIRE (TAB1.NPLY) 'MAIL' ;
  39.   NEL1 = NBEL GEO1 ;
  40.   NN = 0 ;
  41. *
  42. *-----------------------------------------------------------------------
  43.   REPETER LOOP1 NEL1 ;
  44. *
  45.     NN = NN + 1 ;
  46. *
  47.     EL1 = GEO1 ELEM NN ;
  48.     CR1 = REDU (TAB1.NPLY) EL1 ;
  49.     VAL1= MAXI CR1 ;
  50.     DETR CR1 ;
  51. *
  52.     SI ( VAL1 < 0.2 ) ;
  53.         EL2 = COUL EL1 BLEU ;       FINSI ;
  54.     SI ( (VAL1 >EG 0.2) ET (VAL1 < 0.4 ) ) ;
  55.         EL2 = COUL EL1 TURQ ;       FINSI ;
  56.     SI ( (VAL1 >EG 0.4) ET (VAL1 < 0.6 ) ) ;
  57.         EL2 = COUL EL1 VERT ;       FINSI ;
  58.     SI ( (VAL1 >EG 0.6) ET (VAL1 < 0.8 ) ) ;
  59.         EL2 = COUL EL1 ROSE ;       FINSI ;
  60.     SI ( (VAL1 >EG 0.8) ET (VAL1 < 0.9 ) ) ;
  61.         EL2 = COUL EL1 JAUN ;       FINSI ;
  62.     SI ( (VAL1 >EG 0.9) ET (VAL1 < 1.0 ) ) ;
  63.         EL2 = COUL EL1 BLAN ;       FINSI ;
  64.     SI ( VAL1 >EG 1.0 ) ;
  65.         EL2 = COUL EL1 ROUG ;       FINSI ;
  66. *
  67.     SI (NN EGA 1) ;
  68.       ST1 = EL2  ;
  69.     SINON ;
  70.       ST1 = ST1 ET EL2  ;
  71.     FINSI ;
  72. *
  73.   FIN LOOP1 ;
  74. *-----------------------------------------------------------------------
  75. *
  76.   TITR ' 0. BLEU .2 TURQ .4 VERT .6 ROSE .8 JAUN .9 BLAN 1. ROUG ';
  77.   TRAC OEIL1 ST1 FACE ;
  78. ***********************************************************************
  79. *                       FINE PROCEDURA LAVERG
  80. ***********************************************************************
  81. FINPROC ;
  82.  
  83.  
  84.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales