Télécharger voltri.eso

Retour à la liste

Numérotation des lignes :

  1. C VOLTRI SOURCE CHAT 05/01/13 04:09:07 5004
  2. C---------------------------------------------------------------------|
  3. C |
  4. FUNCTION VOLTRI(X,Y,Z,IA,IB,IC)
  5. C |
  6. C CETTE FONCTION REELLE CALCULE LE VOLUME DU SOLIDE ISSU DU |
  7. C POINT I0 ET LIMITE PAR LE TRIANGLE (IA,IB,IC) |
  8. C |
  9. C---------------------------------------------------------------------|
  10. C
  11. IMPLICIT INTEGER(I-N)
  12. IMPLICIT REAL*8 (A-H,O-Z)
  13. -INC CCOPTIO
  14. -INC SMCOORD
  15. DIMENSION V1(3),V2(3),V3(3),A(3)
  16. C
  17. C CALCUL DES TROIS VECTEURS COMPOSANT LE TRIEDRE
  18. C ----------------------------------------------
  19. A(1)=X
  20. A(2)=Y
  21. A(3)=Z
  22. DO 100 I=1,3
  23. V1(I)=XCOOR((IDIM+1)*(IA-1)+I)-A(I)
  24. V2(I)=XCOOR((IDIM+1)*(IB-1)+I)-A(I)
  25. V3(I)=XCOOR((IDIM+1)*(IC-1)+I)-A(I)
  26. 100 CONTINUE
  27. C
  28. C CALCUL DU PRODUIT MIXTE DES TROIS VECTEURS
  29. C ------------------------------------------
  30. VOLTRI=V1(1)*(V2(2)*V3(3)-V2(3)*V3(2))
  31. # +V1(2)*(V2(3)*V3(1)-V2(1)*V3(3))
  32. # +V1(3)*(V2(1)*V3(2)-V2(2)*V3(1))
  33. RETURN
  34. END
  35.  
  36.  

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