- 积分
- 0
- 注册时间
- 2020-5-2
- 仿真币
-
- 最后登录
- 1970-1-1
|
有没有做过的前辈可以解答下,我最近在做ZWT本构模型的二次开发,只是编了
[img],前面σ= C0 ε+αε2 +βε3 一小部分,一计算就出现负体积,单位制检查过没有问题,希望做过的前辈解答下,不甚感激。 p1~p4:
1173.0(Mpa) –131120(Mpa) 6.329×106(Mpa) 0.28
- subroutine umat41 (cm,eps,sig,epsp,hsv,dt1,capa,
- . etype,time,temp,failel,crv,cma)
- dimension cm(*),eps(*),sig(*),hsv(*)
- character*(*) etype
- hsv(1)=hsv(1)+eps(1)
- hsv(2)=hsv(2)+eps(2)
- hsv(3)=hsv(3)+eps(3)
- hsv(4)=hsv(4)+eps(4)
- hsv(5)=hsv(5)+eps(5)
- hsv(6)=hsv(6)+eps(6)
- ga=1./((1.+cm(4))*(1.-2.*cm(4)))
- hsv(7)=ga*((1.-cm(4))*hsv(1)+cm(4)*(hsv(2)+hsv(3)))
- hsv(8)=ga*((1.-cm(4))*hsv(2)+cm(4)*(hsv(1)+hsv(3)))
- hsv(9)=ga*((1.-cm(4))*hsv(3)+cm(4)*(hsv(1)+hsv(2)))
- hsv(10)=ga*((1.-2.*cm(4))/2.*hsv(4))
- hsv(11)=ga*((1.-2.*cm(4))/2.*hsv(5))
- hsv(12)=ga*((1.-2.*cm(4))/2.*hsv(6))
- sig(1)=sig(1)+(cm(1)+2.*cm(2)*hsv(7)+
- . 3.*cm(3)*(hsv(7))**2)
- . *ga*((1.-cm(4))*eps(1)+cm(4)*(eps(2)+eps(3)))
- sig(2)=sig(2)+(cm(1)+2.*cm(2)*hsv(8)
- . +3.*cm(3)*(hsv(8))**2)
- . *ga*((1.-cm(4))*eps(2)+cm(4)*(eps(1)+eps(3)))
- sig(3)=sig(3)+(cm(1)+2.*cm(2)*hsv(9)
- . +3.*cm(3)*(hsv(9))**2)
- . *ga*((1.-cm(4))*eps(3)+cm(4)*(eps(1)+eps(2)))
- sig(4)=sig(4)+(cm(1)+2.*cm(2)*hsv(10)
- . +3.*cm(3)*(hsv(10))**2)
- . *ga*((1.-2.*cm(4))/2*eps(4))
- sig(5)=sig(5)+(cm(1)+2.*cm(2)*hsv(11)
- . +3.*cm(3)*(hsv(11))**2)
- . *ga*((1.-2.*cm(4))/2*eps(5))
- sig(6)=sig(6)+(cm(1)+2.*cm(2)*hsv(12)
- . +3.*cm(3)*(hsv(12))**2)
- . *ga*((1.-2.*cm(4))/2*eps(6))
- return
- end
复制代码 |
|