- 积分
- 1
- 注册时间
- 2010-10-21
- 仿真币
-
- 最后登录
- 1970-1-1
|
悬赏5仿真币未解决
本帖最后由 woaigechang 于 2011-11-7 15:53 编辑
而在卢剑锋的子程序中,
SYIELD=SYIEL0
DEQPL=(SMISES-SYIELD)/EG3
DSTRES=TOLER*SYIEL0/EG3
DEQMIN=HALF*DTIME*EXP(1.0D-4/C)
DO 130 KEWTON=1,NEWTON
DEQPL=MAX(DEQPL,DEQMIN)
CALL USERHARD(SYIELD,HARD,EQPLAS+DEQPL,PROPS(4))
TVP=C*LOG(DEQPL/DTIME)
TVP1=TVP+ONE
HARD1=HARD*TVP1+SYIELD*C/DEQPL 这个就应该是h了吧,求导好像不太对啊
SYIELD=SYIELD*TVP1
RHS=SMISES-EG3*DEQPL-SYIELD
DEQPL=DEQPL+RHS/(EG3+HARD1)
IF(ABS(RHS/EG3) .LE. DSTRES ) GOTO 140
根据后面userhead的子程序,
|
附件: 您需要 登录 才可以下载或查看,没有账号?注册
|