Télécharger fplq3.eso

Retour à la liste

Numérotation des lignes :

fplq3
  1. C FPLQ3 SOURCE CHAT 05/01/13 00:07:34 5004
  2. FUNCTION FPLQ3(X,COST,Z,RHO)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. D2=X**2+Z**2
  6. XRCOS=X*RHO*COST
  7. C=SQRT(D2-2.*XRCOS+RHO**2)
  8. FPLQ3=(RHO-X*COST)+C
  9. RETURN
  10. END
  11.  
  12.  
  13.  

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