Télécharger la plaquette Cast3M


fr en

Télécharger vol.eso

Retour à la liste

Numérotation des lignes : 

vol

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

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