Télécharger vol.eso

Retour à la liste

Numérotation des lignes :

  1. C VOL SOURCE JC220346 16/11/29 21:15:41 9221
  2. C---------------------------------------------------------------------|
  3. C |
  4. FUNCTION VOL(IO,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 TDEMAIT
  14. -INC CCOPTIO
  15. -INC CCREEL
  16. DIMENSION V1(3),V2(3),V3(3)
  17. C
  18. C CALCUL DES TROIS VECTEURS COMPOSANT LE TRIEDRE
  19. C ----------------------------------------------
  20. DO 100 I=1,3
  21. A=XYZ(I,IO)
  22. V1(I)=XYZ(I,IA)-A
  23. V2(I)=XYZ(I,IB)-A
  24. V3(I)=XYZ(I,IC)-A
  25. 100 CONTINUE
  26. C
  27. C CALCUL DU PRODUIT MIXTE DES TROIS VECTEURS
  28. C ------------------------------------------
  29. VOL=V1(1)*(V2(2)*V3(3)-V2(3)*V3(2))
  30. # +V1(2)*(V2(3)*V3(1)-V2(1)*V3(3))
  31. # +V1(3)*(V2(1)*V3(2)-V2(2)*V3(1))
  32. RETURN
  33. END
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  

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