Télécharger pointsph.procedur

Retour à la liste

Numérotation des lignes :

  1. * POINTSPH PROCEDUR NOBODY 92/01/01 00:00:00 001
  2. 'DEBPROC' POINTSPH LONG*'FLOTTANT' TETA*'FLOTTANT' PHI*'FLOTTANT' ;
  3. *
  4. * DEFINITION D'UN POINT PAR SES COORDONNEES SPHERIQUES
  5. *
  6. COS_PHI = LONG * ('COS' PHI) ;
  7. X = COS_PHI * ('COS' TETA) ;
  8. Y = COS_PHI * ('SIN' TETA) ;
  9. Z = LONG * ('SIN' PHI) ;
  10. PT = X Y Z ;
  11. *
  12. 'FINPROC' PT ;
  13.  

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