Télécharger intext.eso

Retour à la liste

Numérotation des lignes :

  1. C INTEXT SOURCE CHAT 05/01/13 00:40:59 5004
  2. SUBROUTINE INTEXT(X1,X2,Y1,Y2,XY)
  3. *
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8 (A-H,O-Z)
  6. *
  7. * XY : ENTREE : BORNE POUR LAQUELLE ON VEUT CALCULER X OU Y
  8. * SORTIE : VALEUR DE X OU Y TROUVEE
  9. *
  10. * ATTENTION ON SUPPOSE QUE LA DROITE N'EST PAS PARALLELE AUX AXES
  11. *
  12. A=(Y2-Y1)/(X2-X1)
  13. B=0.5D0*(Y1+Y2) - 0.5D0*A*(X1+X2)
  14. XY=A*XY+B
  15. *
  16. END
  17.  
  18.  

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