Télécharger cripq.eso

Retour à la liste

Numérotation des lignes :

  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