Télécharger trrilf.eso

Retour à la liste

Numérotation des lignes :

trrilf
  1. C TRRILF SOURCE CB215821 17/11/30 21:17:17 9639
  2. FUNCTION TRRILF(P1,P2,P3)
  3. C *****************************************************************
  4. C QUALITE DU TRIANGLE : RAYON DU CERCLE INSCRIT SUR ARETE LA PLUS
  5. C LONGUE.
  6. C RIL = SURFACE / (DEMI PERIMETRE * ARETE LA PLUS LONGUE)
  7. IMPLICIT INTEGER(I-N)
  8. REAL*8 P1(*),P2(*),P3(*)
  9. C
  10. REAL*8 TRRILF
  11. REAL*8 XV(3),YV(3),S,D,DMAX
  12. INTEGER I
  13. C
  14. TRRILF = 0.0D0
  15. XV(1) = P2(1) - P1(1)
  16. YV(1) = P2(2) - P1(2)
  17. XV(2) = P3(1) - P2(1)
  18. YV(2) = P3(2) - P2(2)
  19. XV(3) = P1(1) - P3(1)
  20. YV(3) = P1(2) - P3(2)
  21. S = (XV(1) * YV(2)) - ( XV(2) * YV(1) )
  22. IF( S.LT.0.0D0 )GOTO 999
  23. DMAX = 0.0D0
  24. DO 10 I=1,3
  25. D = XV(I)**2 + YV(I)**2
  26. IF( D .GT. DMAX )DMAX = D
  27. 10 CONTINUE
  28. TRRILF = ( S / DMAX )
  29. 999 END
  30.  
  31.  
  32.  
  33.  

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