Télécharger @zacpro3.procedur

Retour à la liste

Numérotation des lignes :

  1. * @ZACPRO3 PROCEDUR CHAT 95/12/13 21:46:30 1945
  2. *-----------------------EXTRACTION DES DEFORMATIONS-------------------*
  3.  
  4. 'DEBP' @ZACPRO3 CC*'MCHAML';
  5.  
  6. MODC = VALEUR MODE;
  7.  
  8. COND1 = 'EGA' 'PLANCONT' MODC ;
  9. COND2 = 'EGA' 'PLANDEFO' MODC ;
  10. COND3 = 'EGA' 'AXIS' MODC ;
  11. COND4 = 'EGA' 'TRID' MODC ;
  12. 'SI' COND1;
  13. EP1 = 'EXCO' 'EPXX' CC 'SCAL';
  14. EP2 = 'EXCO' 'EPYY' CC 'SCAL';
  15. EP3 = 'EXCO' 'EPZZ' CC 'SCAL';
  16. EP4 = 'EXCO' 'GAXY' CC 'SCAL';
  17. EP5 = EP1*0.;
  18. EP6 = EP1*0.;
  19. EP4 = EP4/2.;
  20. 'FINSI';
  21. 'SI' COND2;
  22. EP1 = 'EXCO' 'EPXX' CC 'SCAL';
  23. EP2 = 'EXCO' 'EPYY' CC 'SCAL';
  24. EP3 = 'EXCO' 'EPZZ' CC 'SCAL';
  25. EP4 = 'EXCO' 'GAXY' CC 'SCAL';
  26. EP5 = EP1*0.;
  27. EP6 = EP1*0.;
  28. EP4 = EP4/2.;
  29. 'FINSI';
  30. 'SI' COND3;
  31. EP1 = 'EXCO' 'EPRR' CC 'SCAL';
  32. EP2 = 'EXCO' 'EPZZ' CC 'SCAL';
  33. EP3 = 'EXCO' 'EPTT' CC 'SCAL';
  34. EP4 = 'EXCO' 'GARZ' CC 'SCAL';
  35. EP5 = EP1*0.;
  36. EP6 = EP1*0.;
  37. EP4 = EP4/2.;
  38. 'FINSI';
  39. 'SI' COND4;
  40. EP1 = 'EXCO' 'EPXX' CC 'SCAL';
  41. EP2 = 'EXCO' 'EPYY' CC 'SCAL';
  42. EP3 = 'EXCO' 'EPZZ' CC 'SCAL';
  43. EP4 = 'EXCO' 'GAXY' CC 'SCAL';
  44. EP5 = 'EXCO' 'GAXZ' CC 'SCAL';
  45. EP6 = 'EXCO' 'GAYZ' CC 'SCAL';
  46. EP4 = EP4/2.;
  47. EP5 = EP5/2.;
  48. EP6 = EP6/2.;
  49. 'FINSI';
  50. 'FINP' EP1 EP2 EP3 EP4 EP5 EP6;
  51.  
  52.  

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