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.  
  43.  

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