Télécharger bilipo.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  54. C
  55. DIMENSION SIG0(*),DEPST(*),VAR0(*),XMAT(*),XCAR(*),
  56. . SIGF(*),VARF(*) ,DEFP(*)
  57. C
  58. C-----------------------------------------------------------------------
  59. C
  60. C ELASTIC STRESS INCREMENT FOR ALL STRESS COMPONENT EXCEPT MOMY
  61. C
  62. CISA=0.5D0*XMAT(1)/(1.D0+XMAT(2))
  63. C SIGF(1)=SIG0(1) + DSIGT(1)
  64. SIGF(1)=SIG0(1) + XMAT(1)*XCAR(4)*DEPST(1)
  65. C SIGF(2)=SIG0(2) + DSIGT(2)
  66. SIGF(2)=SIG0(2) + CISA*XCAR(5)*DEPST(2)
  67. C SIGF(3)=SIG0(3) + DSIGT(3)
  68. SIGF(3)=SIG0(3) + CISA*XCAR(6)*DEPST(3)
  69. C SIGF(4)=SIG0(4) + DSIGT(4)
  70. SIGF(4)=SIG0(4) + CISA*XCAR(1)*DEPST(4)
  71. C SIGF(6)=SIG0(6) + DSIGT(6)
  72. SIGF(6)=SIG0(6) + XMAT(1)*XCAR(3)*DEPST(6)
  73. C
  74. C ELASTIC AND PLASTIC BENDING STIFFNESS
  75. C
  76. EIY = XMAT(1)*XCAR(2)
  77. EYIY = XMAT(5)*XCAR(2)
  78. C
  79. C
  80. C Y-CURVATURE INCREMENT
  81. C
  82. C DCOURY = DSIGT(5) / EIY
  83. DCOURY = DEPST(5)
  84. C
  85. C CALL TO THE SCALAR BILINEAR PLASTIC MODEL COMPUTING MOMY
  86. C
  87. FEP0 = SIG0(5) - VAR0(3)
  88. FE0 = VAR0(3)
  89. CALL BILINE(DCOURY,XMAT(6),EIY, EYIY, VARF(2),
  90. > FE0,FEP0,SIGF(5),DEPSE)
  91. C
  92. C FINAL INTERNAL VARIABLE
  93. C
  94. VARF(1)=VAR0(1)+DEPSE
  95. VARF(3)=FE0
  96. VARF(4)=VAR0(4)+DCOURY
  97. C
  98. C PLASTIC DEFORMATION INCREMENT
  99. C
  100. DEFP(1) = 0.D0
  101. DEFP(2) = 0.D0
  102. DEFP(3) = 0.D0
  103. DEFP(4) = 0.D0
  104. DEFP(5) = DEPSE
  105. DEFP(6) = 0.D0
  106. RETURN
  107. END
  108.  
  109.  
  110.  

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