Télécharger la plaquette Cast3M


fr en

Télécharger timst2.eso

Retour à la liste

Numérotation des lignes : 

timst2

  1. C TIMST2    SOURCE    PV        22/04/19    16:18:13     11344          
  2. C TIMST2    SOURCE    AM        93/01/12    21:36:48     781
  3.       SUBROUTINE TIMST2(COORD,DEPLA,CARAC,CONT,WORK,IDEUX)
  4. C-----------------------------------------------------------------------
  5. C  ROUTINE DE CALCUL DES CONTRAINTES POUR LA POUTRE DROITE
  6. C
  7. C  ENTREE
  8. C          DEPLA   DEPLACEMENTS
  9. C          CARAC   TABLEAU DE CARACTERISTIQUES GEOMETRIQUES ET
  10. C                  MATERIELLES DE LA POUTRE  ( 11 VALEURS )
  11. C          COORD   COORDONNEES DES 2 NOEUDS
  12. C          IDEUX   INDICE POUR DEFORMATIONS DU SECOND ORDRE
  13. C
  14. C  SORTIE
  15. C          CONT    CONTRAINTES AU MILIEU
  16. C  TRAVAIL
  17. C          WORK(300)
  18. C
  19. C     CLONE DE POUSTR PP 4/9/92
  20. C
  21. C       CAS 2D
  22. C    INSPIRE DE TIMSTR
  23. C    D.COMBESCURE 1998
  24. C
  25. C-----------------------------------------------------------------------
  26.       IMPLICIT INTEGER(I-N)
  27.       IMPLICIT REAL*8(A-H,O-Z)
  28.       DIMENSION CONT(*),CARAC(*),COORD(3,*),VECT(2),P(2,2),
  29.      .          XE(2),YE(2),DEPLA(*),WORK(*)
  30. C
  31.       SD=CARAC(1)
  32.       XINZ=CARAC(2)
  33.       SREDY=CARAC(3)
  34.       YOUN=CARAC(4)
  35.       CISAIL=CARAC(5)
  36.       DO 2 I=1,2
  37.       XE(I)=COORD(1,I)
  38.   2   YE(I)=COORD(2,I)
  39.       XL=(XE(2)-XE(1))**2+(YE(2)-YE(1))**2
  40.       XL=SQRT(XL)
  41. C
  42. C  CALCUL DE LA MATRICE DE PASSAGE
  43. C
  44.       CALL POUPA2(XE,YE,P,KERRE)
  45. C
  46. C  PASSAGE DES DEPLACEMENTS EN AXES LOCAUX
  47. C
  48.       CALL POUVE2(DEPLA,WORK,P,1)
  49. C
  50. C  CALCUL DES CONTRAINTES LOCALES
  51. C
  52.       CALL TIMOL2(WORK,CONT,XL,YOUN,CISAIL,SD,SREDY,XINZ,IDEUX)
  53.       RETURN
  54.       END
  55.  
  56.  
  57.  
  58.  

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