Télécharger la plaquette Cast3M


fr en

Télécharger acrilo.eso

Retour à la liste

Numérotation des lignes : 

acrilo

  1. C ACRILO    SOURCE    CB215821  26/08/24    21:15:06     12622          
  2.       SUBROUTINE ACRILO(RP,XL,RAY,RHO,RHOR,C,CREF)
  3. C-----------------------------------------------------------------------
  4. C
  5. C    ROUTINE DE CALCUL DE LA MATRICE DE MASSE ELEMENTAIRE D'UN
  6. C    TUYAU ACOUSTIQUE PUR EN AXES LOCAUX
  7. C
  8. C  ENTREE
  9. C    XL      LONGUEUR
  10. C    RAY     RAYON DU TUYAU FLUIDE
  11. C    RHO     MASSE VOLUMIQUE DU FLUIDE
  12. C    RHOR    MASSE VOLUMIQUE DE REFERENCE
  13. C    C       CELERITE DU FLUIDE
  14. C    CREF    CELERITE DE REFERENCE
  15. C  SORTIE
  16. C    RP      MATRICE DE RIGIDITE ELEMENTAIRE 4X4
  17. C
  18. C-----------------------------------------------------------------------
  19.       IMPLICIT INTEGER(I-N)
  20.       IMPLICIT REAL*8(A-H,O-Z)
  21.       DIMENSION RP(4,*)
  22. C
  23.       DO 3 J=1,4
  24.       DO 1 I=1,4
  25.       RP(I,J)= 0.
  26.     1 CONTINUE
  27.     3 CONTINUE
  28. C
  29.       PI=2*ASIN(1.)
  30.       SE=PI*RAY*RAY
  31.       A=(SE*XL*RHOR**2*CREF**4)/(3*RHO*C**2)
  32. C
  33.       RP(2,2)=A
  34.       RP(2,4)=A/2
  35.       RP(4,4)=A
  36. C
  37. C SYMETRISATION
  38. C
  39.       DO 4 I=1,4
  40.       DO 2 J=I,4
  41.       RP(J,I)=RP(I,J)
  42.     2 CONTINUE
  43.     4 CONTINUE
  44. C
  45.       RETURN
  46.       END
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  

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