Procedures | Cast3M

   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 :