Télécharger la plaquette Cast3M


fr en

Télécharger xxccyy.eso

Retour à la liste

Numérotation des lignes : 

xxccyy

  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