Télécharger pointsph.procedur

Retour à la liste

Numérotation des lignes :

  1. * POINTSPH 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 SPHERIQUES
  5. *
  6. 'DEBPROC' POINTSPH ;
  7.  
  8. * Gestion des 2 syntaxes (avec des FLOTTANTs ou des LISTREELs)
  9. 'ARGU' LONG/'LISTREEL' ;
  10. 'SI' ('EGA' ('TYPE' LONG) 'ANNULE') ;
  11. 'ARGU' LONG*'FLOTTANT' TETA*'FLOTTANT' PHI*'FLOTTANT' ;
  12. 'SINON' ;
  13. 'ARGU' TETA*'LISTREEL' PHI*'LISTREEL' ;
  14. 'FINSI' ;
  15. *
  16. * Caclul des coordonnees cartesiennes
  17. COS_PHI = LONG * ('COS' PHI) ;
  18. X = COS_PHI * ('COS' TETA) ;
  19. Y = COS_PHI * ('SIN' TETA) ;
  20. Z = LONG * ('SIN' PHI) ;
  21. *
  22. * Creation du (des) point(s)
  23. PT = 'POIN' X Y Z ;
  24. *
  25. 'FINPROC' PT ;
  26.  
  27.  

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