Télécharger acrilo.eso

Retour à la liste

Numérotation des lignes :

acrilo
  1. C ACRILO SOURCE PV 18/06/18 21:15:02 9860
  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 1 J=1,4
  24. DO 1 I=1,4
  25. 1 RP(I,J)= 0.
  26. C
  27. PI=2*ASIN(1.)
  28. SE=PI*RAY*RAY
  29. A=(SE*XL*RHOR**2*CREF**4)/(3*RHO*C**2)
  30. C
  31. RP(2,2)=A
  32. RP(2,4)=A/2
  33. RP(4,4)=A
  34. C
  35. C SYMETRISATION
  36. C
  37. DO 2 I=1,4
  38. DO 2 J=I,4
  39. 2 RP(J,I)=RP(I,J)
  40. C
  41. RETURN
  42. END
  43.  
  44.  
  45.  
  46.  
  47.  

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