Télécharger lisppa.eso

Retour à la liste

Numérotation des lignes :

  1. C LISPPA SOURCE CHAT 05/01/13 01:23:16 5004
  2. SUBROUTINE LISPPA(QSI,W,SIGY,GA,GB,A,B,C,D,E,F)
  3. C=======================================================================
  4. C CALCULE DES PARAMETRES POUR LA PLASTICITE DU LINESPRING
  5. C ENTREES
  6. C QSI = RAPPORT PROFONDEUR DE FISSURE SUR EPAISSEUR
  7. C W = EPAISSEUR DE LA COQUE
  8. C SIGY = CONTRAINTE ULTIME
  9. C SORTIES
  10. C GA,GB = PARAMETRES POUR CALCULER LE CRITERE
  11. C A,B,C,D,E,F = PARAMETRES POUR CALCULER LA DERIVE DU CRITERE
  12. C
  13. C EBERSOLT AVRIL 86
  14. C=======================================================================
  15. IMPLICIT INTEGER(I-N)
  16. IMPLICIT REAL*8(A-H,O-Z)
  17. PARAMETER(UNDEMI= .5D0,TRDEMI=1.5D0,DEUX=2.D0,UN=1.D0)
  18. PARAMETER(QUATRE=4.D0)
  19. C
  20. C CALCUL D UN CERTAIN NOMBRE DE PARAMETRES
  21. C
  22. GA= TRDEMI*QSI - QSI*QSI
  23. GB= UNDEMI*QSI - QSI*QSI
  24. XX= UN / (SIGY * W )
  25. YY= QUATRE / (SIGY * W * W )
  26. C
  27. A = (DEUX/(UN-GA) + DEUX/(UN+GB))*XX*XX
  28. B = (DEUX/(UN-GA) - DEUX/(UN+GB))*XX*YY
  29. C = (DEUX/(UN-GA) - DEUX/(UN+GB))*XX*YY
  30. D = (DEUX/(UN-GA) + DEUX/(UN+GB))*YY*YY
  31. E = (DEUX*GA/(UN-GA) - DEUX*GB/(UN+GB))*XX
  32. F = (DEUX*GA/(UN-GA) + DEUX*GB/(UN+GB))*YY
  33. C
  34. RETURN
  35. END
  36.  
  37.  

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