Télécharger xxccyy.eso

Retour à la liste

Numérotation des lignes :

  1. C XXCCYY SOURCE CHAT 05/01/13 04:15:48 5004
  2. FUNCTION XXCCYY ( XX , YY , YOUN , XNU)
  3. C Calcul du produit XXt*C*YY avec les hypotheses de contraintes planes
  4. C 16/06/95
  5. C
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8(A-H,O-Z)
  8. C
  9. C========================================================================
  10. C
  11. C ENTREES:
  12. C -------
  13. C
  14. C XX et YY: vecteurs contraintes avec 3 composantes
  15. C
  16. C YOUN : Module d'YOUN
  17. C XNU : Coefficient de Poisson
  18. C
  19. C SORTIES:
  20. C -------
  21. C XXCCYY = Scalaire resultat
  22. C
  23. C
  24. C========================================================================
  25. C
  26. DIMENSION XX(4), YY(4)
  27. C
  28. PARAMETER(UN=1.D0, UNDEMI=.5D0)
  29.  
  30. XXCCYY = (YOUN/(UN - XNU**2))*(XX(1)*YY(1) + XX(2)*YY(2)
  31. &+XNU*(XX(1)*YY(2)+XX(2)*YY(1)) + UNDEMI*(UN - XNU )*XX(4)*YY(4))
  32. C
  33. C#################################################################
  34. C Fin
  35. C#################################################################
  36. RETURN
  37. END
  38.  
  39.  
  40.  

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