Télécharger la plaquette Cast3M


fr en

Télécharger pogylo.eso

Retour à la liste

Numérotation des lignes : 

pogylo

  1. C POGYLO    SOURCE    CB215821  26/08/24    21:17:42     12622          
  2.       SUBROUTINE POGYLO(RP,XL,RHO,SD,XINX,XINY,XINZ)
  3. C-----------------------------------------------------------------------
  4. C
  5. C    ROUTINE DE CALCUL DE LA MATRICE DE COUPLAGE
  6. C    GYROSCOPIQUE ELEMENTAIRE D UNE
  7. C    POUTRE DROITE EN AXES LOCAUX
  8. C    D APRES TEDEL et ROTOR
  9. C
  10. C
  11. C  ENTREE
  12. C    XL      LONGUEUR
  13. C    SD      SECTION DROITE
  14. C    XINX    INERTIE IX
  15. C    XINY    INERTIE IY
  16. C    XINZ    INERTIE IZ
  17. C    RHO     MASSE VOLUMIQUE
  18. C  SORTIE
  19. C    RP      MATRICE DE COUPLAGE GYROSCOPIQUE ELEMENTAIRE 12X12
  20. C
  21. C     Didier COMBESCURE Mars 2003
  22. C
  23. C
  24. C-----------------------------------------------------------------------
  25.       IMPLICIT INTEGER(I-N)
  26.       IMPLICIT REAL*8(A-H,O-Z)
  27.       DIMENSION RP(12,12)
  28. C
  29. C  INITIALISATIONS
  30. C
  31. C
  32.       DO 121 J=1,12
  33.       DO 120 I=1,12
  34.       RP(I,J)=0.D00
  35.   120 CONTINUE
  36.   121 CONTINUE
  37. C
  38.       RHOGI = RHO*XINX
  39.       RG1P = (RHOGI*6.D0)/(5.D0*XL)
  40.       RG1M = (RHOGI*(-6.D0))/(5.D0*XL)
  41.       RG2P = (RHOGI)/(10.D0)
  42.       RG2M = ((-1.D0)*RHOGI)/(10.D0)
  43.       RG3P = (RHOGI*XL)/(30.D0)
  44.       RG3M = ((-1.D0)*RHOGI*XL)/(30.D0)
  45.       RG4P = ((2.D0)*RHOGI*XL)/(15.D0)
  46.       RG4M = (-(2.D0)*RHOGI*XL)/(15.D0)
  47. C
  48. C  REMPLISSAGE DE LA MATRICE
  49. C  FY1
  50.       RP(2,3)=RG1P
  51.       RP(2,5)=RG2M
  52.       RP(2,9)=RG1M
  53.       RP(2,11)=RG2M
  54. C  FZ1
  55.       RP(3,2)=RG1M
  56.       RP(3,6)=RG2M
  57.       RP(3,8)=RG1P
  58.       RP(3,12)=RG2M
  59. C  MY1
  60.       RP(5,2)=RG2P
  61.       RP(5,6)=RG4P
  62.       RP(5,8)=RG2M
  63.       RP(5,12)=RG3M
  64. C  MZ1
  65.       RP(6,3)=RG2P
  66.       RP(6,5)=RG4M
  67.       RP(6,9)=RG2M
  68.       RP(6,11)=RG3P
  69. C  FY2
  70.       RP(8,3)=RG1M
  71.       RP(8,5)=RG2P
  72.       RP(8,9)=RG1P
  73.       RP(8,11)=RG2P
  74. C  FZ2
  75.       RP(9,2)=RG1P
  76.       RP(9,6)=RG2P
  77.       RP(9,8)=RG1M
  78.       RP(9,12)=RG2P
  79. C  MY2
  80.       RP(11,2)=RG2P
  81.       RP(11,6)=RG3M
  82.       RP(11,8)=RG2M
  83.       RP(11,12)=RG4P
  84. C  MZ2
  85.       RP(12,3)=RG2P
  86.       RP(12,5)=RG3P
  87.       RP(12,9)=RG2M
  88.       RP(12,11)=RG4M
  89. C
  90.       RETURN
  91.       END
  92.  
  93.  
  94.  
  95.  
  96.  

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