Sources Esope | Cast3M

lispq
C LISPQ     SOURCE    CHAT      05/01/13    01:23:23     5004
      SUBROUTINE LISPQ(XNE,XME,W,SIGY,GA,GB,QSI,Q)
C=======================================================================
C    CALCULE LE CRITERE POUR LA PLASTICITE DU LINESPRING
C   ENTREE
C    XNE,XME= EFFORT DE MEMBRANE ET DE TRACTION
C    W      = EPAISSEUR DE LA COQUE OU DU LINESPRING
C    SIGY   = CONTRAINTES ULTIME
C    GA GB  = CONSTANTES POUR CALCULER LE CRITERE
C    QSI    = RAPPORT PROFONDEUS SUR EPAISSEUR
C   SORTIES
C    Q      = VALEUR DE LA FONCTION CRITERE
C         EBERSOLT AVRIL 85
C======================================================================
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      PARAMETER(QUATRE=4.D0,UN=1.0D0,DEUX=2.D0)
C
      XNB= XNE / ( SIGY * W )
      XMB= XME *QUATRE / ( SIGY * W *W )
C
      XXA = XNB + XMB + GA
      XXB =-XNB + XMB + GB
C
      XXA = XXA * XXA / (UN - GA)
      XXB = XXB * XXB / (UN + GB)
C
      Q = XXA + XXB - DEUX +QSI
      RETURN
      END