Télécharger trtrajec.procedur

Retour à la liste

Numérotation des lignes :

  1. * TRTRAJEC PROCEDUR ELOI 95/10/02 21:20:21 1816
  2. 'DEBPROC' TRTRAJEC UUUU*'TABLE' ;
  3. * CREATION D UN MAILLAGE DE SEG2 POUR TRACER DES TRAJECTOIRES
  4. * UUUU EST UNE TABLE RESULTAT DE L'OPERATEUR TRAJEC
  5. NBPART = 'DIME' UUUU.'MTABX' ;
  6. 'SI' ('EXIS' UUUU 'MTABZ') ;
  7. * CAS DU 3D
  8. I=1 ;
  9. CROB = 'QUEL' 'SEG2' (UUUU.'MTABX'.I) (UUUU.'MTABY'.I)
  10. (UUUU.'MTABZ'.I) ;
  11. NBPART = NBPART - 1 ;
  12. 'SI' ( NBPART > 0 ) ;
  13. 'REPETER' BLOC1 NBPART ;
  14. I=I+1 ;
  15. LIG1 = 'QUEL' 'SEG2' (UUUU.'MTABX'.I) (UUUU.'MTABY'.I)
  16. (UUUU.'MTABZ'.I) ;
  17. CROB= CROB 'ET' LIG1 ;
  18. 'FIN' BLOC1 ;
  19. 'FINSI' ;
  20. *
  21. 'SINON' ;
  22. * CAS 2D
  23. I=1 ;
  24. CROB = 'QUEL' 'SEG2' (UUUU.'MTABX'.I) (UUUU.'MTABY'.I) ;
  25. NBPART = NBPART - 1 ;
  26. 'SI' ( NBPART > 0 ) ;
  27. 'REPETER' BLOC2 NBPART ;
  28. I=I+1 ;
  29. LIG1 = 'QUEL' 'SEG2' (UUUU.'MTABX'.I) (UUUU.'MTABY'.I) ;
  30. CROB= CROB 'ET' LIG1 ;
  31. 'FIN' BLOC2 ;
  32. 'FINSI' ;
  33. 'FINSI' ;
  34. 'FINPROC' CROB ;
  35.  

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