Télécharger pointcyl.procedur

Retour à la liste

Numérotation des lignes :

  1. * POINTCYL PROCEDUR NOBODY 92/01/01 00:00:00 001
  2. *
  3. * DEFINITION D'UN POINT PAR SES COORDONNEES CYLINDRIQUES
  4. *
  5. 'DEBPROC' POINTCYL RAYON*'FLOTTANT' ANGLE*'FLOTTANT' COTE/'FLOTTANT' ;
  6. *
  7. X = RAYON * ('COS' ANGLE) ;
  8. Y = RAYON * ('SIN' ANGLE) ;
  9. IDIM = VALE DIME;
  10. 'SI' (IDIM 'EGA' 2) ;
  11. PT = X Y ;
  12. 'SINON';
  13. PT = X Y COTE ;
  14. 'FINSI' ;
  15. *
  16. 'FINPROC' PT ;
  17.  

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