Télécharger pouep2.eso

Retour à la liste

Numérotation des lignes :

  1. C POUEP2 SOURCE CHAT 05/10/07 21:16:02 5202
  2. C POUEP2 SOURCE CHAT 89/05/26 21:33:43
  3. SUBROUTINE POUEP2(COORD,DEPLA,CARAC,DEFO,WORK,IDEUX,you,xnu)
  4. C-----------------------------------------------------------------------
  5. C ROUTINE DE CALCUL DES DEFORMATIONS POUR LA POUTRE DROITE EN 2D
  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 2-EME ORDRE
  13. C
  14. C SORTIE
  15. C DEFO DEFORMATIONS AUX 2 NOEUDS 3 PAR NOEUD
  16. C TRAVAIL
  17. C WORK(300)
  18. C-----------------------------------------------------------------------
  19. IMPLICIT INTEGER(I-N)
  20. IMPLICIT REAL*8(A-H,O-Z)
  21. DIMENSION DEFO(*),CARAC(*),COORD(3,*),P(2,2),
  22. . XE(2),YE(2),DEPLA(*)
  23. C
  24. XINZ=CARAC(2)
  25. SD=CARAC(1)
  26. sredy=carac(3)
  27. DO 2 I=1,2
  28. XE(I)=COORD(1,I)
  29. 2 YE(I)=COORD(2,I)
  30. XL=(XE(2)-XE(1))**2+(YE(2)-YE(1))**2
  31. XL=SQRT(XL)
  32. C
  33. C CALCUL DE LA MATRICE DE PASSAGE
  34. C
  35. CALL POUPA2(XE,YE,P,KERRE)
  36. C
  37. C PASSAGE DES DEPLACEMENTS EN AXES LOCAUX
  38. C
  39. CALL POUVE2(DEPLA,WORK,P,1)
  40. C
  41. C CALCUL DES DEFORMATIONS LOCALES
  42. C
  43. CALL PODEF2(WORK,DEFO,XL,IDEUX,xinz,sredy,you,xnu)
  44. RETURN
  45. END
  46.  
  47.  
  48.  
  49.  

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