Télécharger lineax.eso

Retour à la liste

Numérotation des lignes :

  1. C LINEAX SOURCE CHAT 05/01/13 01:18:40 5004
  2. SUBROUTINE LINEAX (TX,TY,BX,IPOINT)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-S,U-Y)
  5. DIMENSION TX(*),TY(*)
  6. *
  7. * TX : TABLE DE TAILLE 2 CONTENANT LES COORD. EN X DES EXTREMITES DU
  8. * SEGMENT A TRACER
  9. * TY : TABLE DE TAILLE 2 CONTENANT LES COORD. EN Y DES EXTREMITES DU
  10. * SEGMENT A TRACER
  11. * BX : BORNE POUR LAQUELLE ON VEUT CALCULER Y
  12. * IPOINT : EXTREMITE QUE L'ON VEUT LINARISER (1 OU 2)
  13. *
  14. A=(TY(2)-TY(1))/(TX(2)-TX(1))
  15. B=TY(1)-A*TX(1)
  16. TY(IPOINT)=A*BX+B
  17. TX(IPOINT)=BX
  18. END
  19.  
  20.  

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