Télécharger la plaquette Cast3M


fr en

Télécharger tifol2.eso

Retour à la liste

Numérotation des lignes : 

tifol2

  1. C TIFOL2    SOURCE    CHAT      05/01/13    03:39:18     5004
  2. C TIFOL2    SOURCE    AM        94/02/25    22:57:00     1061
  3.       SUBROUTINE TIFOL2(XL,V,CONT,LHOOK,DDHOOK,IDEUX)
  4. C-----------------------------------------------------------------------
  5. C
  6. C    ROUTINE DE CALCUL DES CONTRAINTES DE LA POUTRE DROITE
  7. C    DE TIMOSHENKO MULTI-FIBRE D APRES TEDEL
  8. C
  9. C  ENTREE
  10. C    XL      LONGUEUR DE LA POUTRE DROITE
  11. C    V       VECTEUR DES DEPLACEMENTS LOCAUX AUX 2 NOEUDS DE LA POUTRE
  12. C    DDHOOK(LHOOK,LHOOK) MATRICE DE HOOK
  13. C    IDEUX   INDICE POUR DEFORMATIONS DU SECOND ORDRE
  14. C  SORTIE
  15. C    CONT    CONTRAINTES AU MILIEU 3 PAR NOEUD
  16. C
  17. C D'APRES TIFOLO DC 98
  18. C-----------------------------------------------------------------------
  19.       IMPLICIT INTEGER(I-N)
  20.       IMPLICIT REAL*8(A-H,O-Z)
  21.       DIMENSION CONT(*),V(*),DDHOOK(LHOOK,LHOOK),EPSI(3)
  22.       DATA P5/0.5D0/
  23. C
  24.       RL=1.D00/XL
  25. C
  26. C  DEFORMATIONS GENERALISEES
  27. C
  28.       EPSI(1) = (V(4)-V(1))*RL
  29.       EPSI(2) = (V(5)-V(2))*RL - (V(3)+V(6))*P5
  30.       EPSI(3) =-(V(3)-V(6))*RL
  31. C
  32. C  TERMES DU SECOND ORDRE
  33. C
  34.       IF(IDEUX.NE.0) THEN
  35.       ENDIF
  36. C
  37. C  CONTRAINTES GENERALISEES
  38. C
  39.       DO I=1,3
  40.         CONT(I)=0.D0
  41.         DO J=1,3
  42.           CONT(I)=CONT(I)+DDHOOK(I,J)*EPSI(J)
  43.         END DO
  44.       END DO
  45. C
  46.       RETURN
  47.       END
  48.  
  49.  
  50.  

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