Télécharger la plaquette Cast3M


fr en

Télécharger @afevozt.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @AFEVOZT  PROCEDUR  GF238795  15/07/02    21:15:00     8565           
  2. 'DEBPROC' @AFEVOZT;
  3.   'ARGUMENT' MOSENS / 'MOT'; 'ARGUMENT' RAPDEM / 'FLOTTANT';
  4.   'ARGUMENT' TABEVO * 'TABLE';
  5.   'SI' ('EGA' MOSENS 'HORIZONTAL');
  6.     VASENS = 'HORIZONTAL';
  7.   'SINON';
  8.     VASENS = 'VERTICAL';
  9.   'FINSI';
  10.   'SI' ('EGA' ('TYPE' RAPDEM) 'FLOTTANT');
  11.     RAPFO = RAPDEM;
  12.   'SINON';
  13.     RAPFO = 1.0;
  14.   'FINSI';
  15.   AVALEM = 'VALE' 'ELEM'; 'OPTI' 'ELEM' 'SEG2';
  16.   LITP = TABEVO . 'TEMPS';
  17.   LISPOI = 'VIDE' 'MAILLAGE'; PPCHPO = 'VIDE' 'CHPOINT';
  18.   MINT = 'MINI' LITP; MAXT = 'MAXI' LITP; MAXZ = -1E31; MINZ = 1E31;
  19.   'REPETER' ITPS ('DIME' LITP);
  20.     LIZ = 'EXTR' ('EXTR' TABEVO . &ITPS 'COUR' 1 ) 'ABSC';
  21.     MAXZ = 'MAXI' (LIZ 'ET' MAXZ); MINZ = 'MINI' (LIZ 'ET' MINZ);
  22.   'FIN' ITPS;
  23.   'REPETER' ITPS ('DIME' LITP);
  24.     TPCOUR = 'EXTR' LITP &ITPS;
  25.     TPCOUR = MINT '+' (TPCOUR '-' MINT) '*' (RAPFO '*' (MAXZ '-' MINZ)
  26.     '/' (MAXT '-' MINT));
  27.     EVOTZ = 'EXTR' TABEVO . &ITPS 'COUR' 1;
  28.     'SI' ('EGA' VASENS 'VERTICAL');
  29.       LIGCOUR = 'QUEL' 'SEG2' ('PROG' ('DIME' LIZ) * TPCOUR ) LIZ;
  30.       PPCHPO = PPCHPO '+' ('IPOL' ('COOR' 2 LIGCOUR ) EVOTZ );
  31.     'SINON';
  32.       LIGCOUR = 'QUEL' 'SEG2' LIZ ('PROG' ('DIME' LIZ) * TPCOUR );
  33.       PPCHPO = PPCHPO '+' ('IPOL' ('COOR' 1 LIGCOUR ) EVOTZ );
  34.     'FINSI';
  35.     'SI'( 'NON' ( 'EGA' &ITPS 1 ));
  36.       LISPOI = LISPOI 'ET' ('COUT' LIGCOUR LIGANC);
  37.     'FINSI';
  38.     LISPOI = LISPOI 'ET' LIGCOUR; LIGANC = LIGCOUR;
  39.   'FIN' ITPS;
  40.   'MENAGE'; 'OPTION' 'ELEM' AVALEM; 'RESP' LISPOI PPCHPO;
  41. 'FINPROC';
  42.  

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