- 积分
- 0
- 注册时间
- 2009-7-20
- 仿真币
-
- 最后登录
- 1970-1-1
|
发表于 2013-12-27 15:42:17
|
显示全部楼层
来自 广东广州
最后这段是根据什么公式或理论求各向应力的?
有点没读懂?XNU是代表什么变量?
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
* MYSTRE: 求各向应力
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
*
SUBROUTINE MYSTRE(EC,XNU,STRAIN1,STRESSOLD1,STRAIN4
1 ,STRESSOLD4,STRAIN6,STRESSOLD6,
2 TS1,TS2,TS3,TS4,TS5,TS6)
*
INCLUDE 'VABA_PARAM.INC'
*
PARAMETER ( ZERO = 0.D0,HALF = 0.5D0,ONE=1.D0,TWO=2.D0)
*
* 应力计算中,对于单轴模型,应力22,33,23的值为零。
*
TWOMU = EC/(ONE+XNU)
ALAMDA = TWOMU*XNU/(ONE-TWO*XNU)
STRAIN2 = (-XNU)*STRAIN1
STRAIN2 = (-XNU)*STRAIN1
TRACE = STRAIN1+STRAIN2+STRAIN3
*
TS1 = STRESSOLD1+TWOMU*STRAIN1+ALAMDA*TRACE
TS2 = ZERO
TS3 = ZERO
TS4 = STRESSOLD4+TWOMU*STRAIN4
TS5 = ZERO
TS6 = STRESSOLD6+TWOMU*STRAIN6
*
RETURN
END |
|