Télécharger coupec.eso

Retour à la liste

Numérotation des lignes :

  1. C COUPEC SOURCE CHAT 05/01/12 22:24:27 5004
  2. SUBROUTINE COUPEC(XC,XT,X2,X3,XN,TOL, DIS)
  3. C
  4. C Esclave de COUPE
  5. C Distance du point XC au plan defini par les points XT, X2 et X3
  6. C et la normale XN
  7. C
  8. IMPLICIT INTEGER(I-N)
  9. IMPLICIT REAL*8(A-H,O-Z)
  10. C
  11. DIMENSION XC(3),XT(3),X2(3),X3(3),XN(3)
  12. C
  13. DIS=SQRT((XC(1)-XT(1))**2+(XC(2)-XT(2))**2+(XC(3)-XT(3))**2)
  14. IF(DIS.GT.TOL)THEN
  15. DIS=((XC(1)-XT(1))*XN(1)+(XC(2)-XT(2))*XN(2)+(XC(3)-XT(3))*XN(3))
  16. ELSE
  17. DIS=SQRT((XC(1)-X2(1))**2+(XC(2)-X2(2))**2+(XC(3)-X2(3))**2)
  18. IF(DIS.GT.TOL)THEN
  19. DIS=((XC(1)-X2(1))*XN(1)+(XC(2)-X2(2))*XN(2)+(XC(3)-X2(3))*XN(3))
  20. ELSE
  21. DIS=SQRT((XC(1)-X3(1))**2+(XC(2)-X3(2))**2+(XC(3)-X3(3))**2)
  22. DIS=((XC(1)-X3(1))*XN(1)+(XC(2)-X3(2))*XN(2)+(XC(3)-X3(3))*XN(3))
  23. ENDIF
  24. ENDIF
  25. C
  26. RETURN
  27. END
  28.  
  29.  
  30.  

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