Télécharger la plaquette Cast3M


fr en

Télécharger cripq.eso

Retour à la liste

Numérotation des lignes : 

cripq

  1. C CRIPQ     SOURCE    CB215821  16/04/21    21:16:11     8920
  2.        FUNCTION CRIPQ(EC,QT,FNE,SNNP10,XLAM3)
  3. C-----------------------------------------------------------------------
  4. C
  5. C      DANS LE CADRE DU MODELE 3D MOHR COULOMB ELEMENTS JOINTS JOI1
  6. C       PLASTICITE EN COMPRESSION ECROUISSAGE ISOTROPE LINEAIRE
  7. C
  8. C-----------------------------------------------------------------------
  9. C ENTREES
  10. C     EC      = RAIDEUR A L'ORIGINE ELASTIQUE   °      °
  11. C     QT      = RAIDEUR TANGENTE RELIANT        F A EPS_TOTAL
  12. C     FNE     = LIMITE D'ELASTICITE
  13. C
  14. C     SNNP10  = ESTIMATION ELASTIQUE DE LA CONTRAINTE FINALE
  15. C     XLAM3   = MULTIPLICATEUR PLASTIQUE AU DEBUT DU PAS
  16. C
  17. C SORTIES
  18. C     CRIPQ   = VALEUR DU CRITERE PLASTIQUE
  19. C-----------------------------------------------------------------------
  20.        IMPLICIT INTEGER(I-N)
  21.        IMPLICIT REAL*8(A-H,O-Z)
  22. C
  23.        H=EC*QT/(EC-QT)
  24. C
  25. C--------CALCUL DU CRITERE DE PLASTICITE ECROUISSAGE ISOTROPE LINEAIRE
  26. C
  27.        CRIPQ=ABS(SNNP10)-H*XLAM3-FNE
  28. C
  29.        RETURN
  30.        END
  31.  
  32.  
  33.  
  34.  

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