Télécharger dphook.eso

Retour à la liste

Numérotation des lignes :

  1. C DPHOOK SOURCE CHAT 05/01/12 22:54:48 5004
  2. SUBROUTINE DPHOOK(EPSX,EPSY,EPSZ,EPSXY,SIGX,SIGY,SIGZ,SIGXY,
  3. 1 YNU,YOUN)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. C------------------------------------------------------------------
  7. C PERMET DE CALCULER LE TENSEUR SIGMA EN FONCTION DU TENSEUR
  8. C EPSILON EN DEFORMATION PLANE
  9. C------------------------------------------------------------------
  10. C
  11. HOOK=YOUN/(1.D0+YNU)/(1.D0-2.D0*YNU)
  12. SIGX=HOOK*((1.D0-YNU)*EPSX+YNU*EPSY)
  13. SIGY=HOOK*(YNU*EPSX+(1.D0-YNU)*EPSY)
  14. SIGZ=HOOK*YNU*(EPSX+EPSY)
  15. SIGXY=HOOK*(1.D0-2.D0*YNU)*EPSXY
  16. RETURN
  17. END
  18.  
  19.  

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