Télécharger la plaquette Cast3M


fr en

Télécharger bilipo.eso

Retour à la liste

Numérotation des lignes : 

bilipo

  1. C BILIPO    SOURCE    CHAT      05/01/12    21:40:11     5004
  2.       SUBROUTINE BILIPO(SIG0,DEPST,VAR0,XMAT,XCAR,SIGF,VARF,DEFP)
  3. C-----------------------------------------------------------------------
  4. C
  5. C    DRIVER OF THE BILINEAR PLASTIC BENDING MODEL
  6. C
  7. C  INPUT:
  8. C
  9. C    SIG0             INITIAL GENERALIZED STRESS
  10. C    DEPST            INCREMENT OF GENERALIZED STRAIN
  11. C    XMAT             MATERIAL CHARACTERISTICS
  12. C    XCAR             GEOMETRIC CHARACTERISTICS
  13. C    VAR0             INITIAL INTERNAL VARIABLE
  14. C
  15. C  OUTPUT:
  16. C
  17. C    SIGF             FINAL GENERALIZED STRESS
  18. C    VARF             FINAL INTERNAL VARIABLE
  19. C    DEFP             INCREMENT OF PLASTIC DEFORMATION
  20. C
  21. C  GENERALIZED STRESS (.=0 OR F):
  22. C
  23. C    MOMY = SIG.(5)
  24. C
  25. C  MATERIAL CHARACTERISTICS:
  26. C
  27. C    E    = XMAT(1)   ELASTIC YOUNG MODULUS
  28. C    NU   = XMAT(2)   POISSON RATIO
  29. C    EAYI = XMAT(5)   PLASTIC MODULUS
  30. C    YMOM = XMAT(7)   YIELDING MOMENT
  31. C
  32. C  GEOMETRIC CHARACTERISTICS:
  33. C
  34. C    INRX = XCAR(1)   X-INERTIAL TORSION
  35. C    INRY = XCAR(2)   Y-INERTIAL BENDING        <-----
  36. C    INRZ = XCAR(3)   Z-INERTIAL BENDING
  37. C    SECT = XCAR(4)   SECTION
  38. C    SRDY = XCAR(5)   TRANSVERSE SHEAR'S REDUCED SECTION
  39. C    SRDZ = XCAR(6)   TRANSVERSE SHEAR'S REDUCED SECTION
  40. C
  41. C  INTERNAL VARIABLE (.=0 OR F):
  42. C
  43. C    EPSE = VAR.(1)   CUMULATED PLASTIC CURVATURE
  44. C    EITA = VAR.(2)   TANGENT Y-BENDING STIFFNESS
  45. C    MOEY = VAR.(3)   ELASTIC BENDING
  46. C    COUY = VAR.(4)   CURVATURE
  47. C
  48. C-----------------------------------------------------------------------
  49. C  P. PEGON      14/9/92 renewed new ECOU 24/11/95
  50. C-----------------------------------------------------------------------
  51.       IMPLICIT INTEGER(I-N)
  52.       IMPLICIT REAL*8(A-H,O-Z)
  53.  
  54. -INC PPARAM
  55. -INC CCOPTIO
  56. C
  57.       DIMENSION SIG0(*),DEPST(*),VAR0(*),XMAT(*),XCAR(*),
  58.      .          SIGF(*),VARF(*) ,DEFP(*)
  59. C
  60. C-----------------------------------------------------------------------
  61. C
  62. C  ELASTIC STRESS INCREMENT FOR ALL STRESS COMPONENT EXCEPT MOMY
  63. C
  64.       CISA=0.5D0*XMAT(1)/(1.D0+XMAT(2))
  65. C     SIGF(1)=SIG0(1) + DSIGT(1)
  66.       SIGF(1)=SIG0(1) + XMAT(1)*XCAR(4)*DEPST(1)
  67. C     SIGF(2)=SIG0(2) + DSIGT(2)
  68.       SIGF(2)=SIG0(2) + CISA*XCAR(5)*DEPST(2)
  69. C     SIGF(3)=SIG0(3) + DSIGT(3)
  70.       SIGF(3)=SIG0(3) + CISA*XCAR(6)*DEPST(3)
  71. C     SIGF(4)=SIG0(4) + DSIGT(4)
  72.       SIGF(4)=SIG0(4) + CISA*XCAR(1)*DEPST(4)
  73. C     SIGF(6)=SIG0(6) + DSIGT(6)
  74.       SIGF(6)=SIG0(6) + XMAT(1)*XCAR(3)*DEPST(6)
  75. C
  76. C  ELASTIC AND PLASTIC BENDING STIFFNESS
  77. C
  78.       EIY    = XMAT(1)*XCAR(2)
  79.       EYIY   = XMAT(5)*XCAR(2)
  80. C
  81. C
  82. C  Y-CURVATURE INCREMENT
  83. C
  84. C     DCOURY = DSIGT(5) / EIY
  85.       DCOURY = DEPST(5)
  86. C
  87. C  CALL TO THE SCALAR BILINEAR PLASTIC MODEL COMPUTING MOMY
  88. C
  89.       FEP0 = SIG0(5) - VAR0(3)
  90.       FE0  = VAR0(3)
  91.       CALL BILINE(DCOURY,XMAT(6),EIY, EYIY, VARF(2),
  92.      >          FE0,FEP0,SIGF(5),DEPSE)
  93. C
  94. C  FINAL INTERNAL VARIABLE
  95. C
  96.       VARF(1)=VAR0(1)+DEPSE
  97.       VARF(3)=FE0
  98.       VARF(4)=VAR0(4)+DCOURY
  99. C
  100. C  PLASTIC DEFORMATION INCREMENT
  101. C
  102.       DEFP(1) = 0.D0
  103.       DEFP(2) = 0.D0
  104.       DEFP(3) = 0.D0
  105.       DEFP(4) = 0.D0
  106.       DEFP(5) = DEPSE
  107.       DEFP(6) = 0.D0
  108.       RETURN
  109.       END
  110.  
  111.  
  112.  

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