Télécharger pointcyl.procedur

Retour à la liste

Numérotation des lignes :

  1. * POINTCYL PROCEDUR FD218221 20/06/17 21:15:09 10629
  2. *
  3. * DEFINITION D'UN POINT (OU D'UN MAILLAGE DE POINTS)
  4. * PAR SES COORDONNEES CYLINDRIQUES
  5. *
  6. 'DEBPROC' POINTCYL ;
  7.  
  8. * Dimension de l'espace
  9. IDIM = 'VALE' 'DIME' ;
  10.  
  11. * Gestion des 2 syntaxes (avec des FLOTTANTs ou des LISTREELs)
  12. 'ARGU' RAYON/'LISTREEL' ;
  13. 'SI' ('EGA' ('TYPE' RAYON) 'ANNULE') ;
  14. 'ARGU' RAYON*'FLOTTANT' ANGLE*'FLOTTANT' ;
  15. 'SI' ('EGA' IDIM 3) ;
  16. 'ARGU' COTE*'FLOTTANT' ;
  17. 'FINSI' ;
  18. 'SINON' ;
  19. 'ARGU' ANGLE*'LISTREEL' ;
  20. 'SI' ('EGA' IDIM 3) ;
  21. 'ARGU' COTE*'LISTREEL' ;
  22. 'FINSI' ;
  23. 'FINSI' ;
  24. *
  25. * Caclul des coordonnees cartesiennes
  26. X = RAYON * ('COS' ANGLE) ;
  27. Y = RAYON * ('SIN' ANGLE) ;
  28. *
  29. * Creation du (des) point(s)
  30. 'SI' (IDIM 'EGA' 2) ;
  31. PT = 'POIN' X Y ;
  32. 'FINSI' ;
  33. 'SI' (IDIM 'EGA' 3) ;
  34. PT = 'POIN' X Y COTE ;
  35. 'FINSI' ;
  36. *
  37. 'FINPROC' PT ;
  38.  
  39.  

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