Télécharger la plaquette Cast3M


fr en

Télécharger tidef2.eso

Retour à la liste

Numérotation des lignes : 

tidef2

  1. C TIDEF2    SOURCE    CHAT      05/01/13    03:38:14     5004
  2. C TIDEF2    SOURCE    IANIS     95/09/18    21:19:14     1823
  3.       SUBROUTINE TIDEF2(V,DEFO,XL,IDEUX)
  4. C-----------------------------------------------------------------------
  5. C
  6. C    ROUTINE DE CALCUL DES DEFORMATIONS DE LA POUTRE DROITE
  7. C
  8. C  ENTREE
  9. C    V       VECTEUR DES DEPLACEMENTS LOCAUX AUX 2 NOEUDS DE LA POUTRE
  10. C    XL      LONGUEUR
  11. C    IDEUX   INDICE POUR DEFORMATIONS DU 2-EME ORDRE
  12. C
  13. C  SORTIE
  14. C    DEFO    DEFORMATIONS AU MILIEU  3 PAR NOEUD
  15. C
  16. C    PP 4/9/92
  17. C-----------------------------------------------------------------------
  18.       IMPLICIT INTEGER(I-N)
  19.       IMPLICIT REAL*8(A-H,O-Z)
  20.       DIMENSION DEFO(*),V(*)
  21.       DATA P5/0.5D0/
  22. C
  23.       RL=1.D00/XL
  24.       RL2=RL*RL
  25. C
  26. C  DEFORMATIONS GENERALISEES
  27. C
  28.       EPS  = (V(4)-V(1))*RL
  29.       EPTY = (V(5)-V(2))*RL - (V(3)+V(6))*P5
  30.       XSIZ =-(V(3)-V(6))*RL
  31. C
  32. C  REMPLISSAGE DU TABLEAU DEFO
  33. C
  34.       DEFO(1)=EPS
  35.       DEFO(2)=EPTY
  36.       DEFO(3)=XSIZ
  37. C
  38.       IF(IDEUX.EQ.0) RETURN
  39. C
  40. C  TERMES DU SECOND ORDRE pour la membrane
  41. C
  42.       AUX1=0.5D0*(EPS**2+((V(5)-V(2))*RL)**2)
  43.       DEFO(1) = DEFO(1) + AUX1
  44.       RETURN
  45.       END
  46.  
  47.  
  48.  
  49.  

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