Télécharger po1eps.eso

Retour à la liste

Numérotation des lignes :

  1. C PO1EPS SOURCE CHAT 05/01/13 02:15:39 5004
  2. SUBROUTINE PO1EPS(COORD,UZDPG,RYDPG,RXDPG,XDPGE,YDPGE,DEFO)
  3. C-----------------------------------------------------------------------
  4. C CALCUL DES DEFORMATIONS POUR LE POI1
  5. C
  6. C ENTREE
  7. C COORD COORDONNEES DE L ELEMENT
  8. C UZDPG DEPLACEMENT PERPENDICULAIRE A LA SECTION SECTION
  9. C RYDPG ROTATION DE LA SECTION
  10. C RXDPG ......................
  11. C XDPGE COORDONNEES DU POINT AUTOUR DUQUEL SE FAIT LA
  12. C YDPGE SECTION EN DEFOS PLANES GENERALISEES
  13. C
  14. C SORTIE
  15. C DEFO DEFORMATION AU NOEUD
  16. C-----------------------------------------------------------------------
  17. IMPLICIT INTEGER(I-N)
  18. IMPLICIT REAL*8(A-H,O-Z)
  19. -INC CCREEL
  20. DIMENSION DEFO(*),COORD(3,*)
  21. *
  22. XX=COORD(1,1)
  23. YY=COORD(2,1)
  24. XXX=XDPGE-XX
  25. YYY=YY-YDPGE
  26. DEFO(1)=UZDPG+(RYDPG*XXX)+(RXDPG*YYY)
  27. RETURN
  28. END
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  

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