资源描述:
《umat二次开发超弹性本构》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、APPENDIXNeo-HookeanHyperelaticMaterialUserSubroutineThisprogramisbasedonthederivationofhyperelasticmaterialconstitutivemodelinSection4.4.Astressandstrainrelationshipwasderivedfromtheneo-Hookeanhyperelasticmaterialconstitutivemodelthatisnormallyrepresentedasthestrainenergywithstrainin
2、variants.subroutinevumat(CReadonly(unmodifiable)variables-1nblock,ndir,nshr,nstatev,nfieldv,nprops,lanneal,2stepTime,totalTime,dt,cmname,coordMp,charLength,3props,density,strainInc,relSpinInc,4tempOld,stretchOld,defgradOld,fieldOld,5stressOld,stateOld,enerInternOld,enerInelasOld,6tem
3、pNew,stretchNew,defgradNew,fieldNew,CWriteonly(modifiable)variables-7stressNew,stateNew,enerInternNew,enerInelasNew)Cinclude'vaba_param.inc'Cdimensionprops(nprops),density(nblock),coordMp(nblock,*),1charLength(nblock),strainInc(nblock,ndir+nshr),2relSpinInc(nblock,nshr),tempOld(nbloc
4、k),3stretchOld(nblock,ndir+nshr),4defgradOld(nblock,ndir+nshr+nshr),5fieldOld(nblock,nfieldv),stressOld(nblock,ndir+nshr),6stateOld(nblock,nstatev),enerInternOld(nblock),7enerInelasOld(nblock),tempNew(nblock),8stretchNew(nblock,ndir+nshr),8defgradNew(nblock,ndir+nshr+nshr),9fieldNew(
5、nblock,nfieldv),1stressNew(nblock,ndir+nshr),stateNew(nblock,nstatev),2enerInternNew(nblock),enerInelasNew(nblock)Ccharacter*80cmnameCif(cmname(1:6).eq.'VUMAT0')thencallVUMAT0(nblock,ndir,nshr,nstatev,nfieldv,nprops,lanneal,2stepTime,totalTime,dt,cmname,coordMp,charLength,3props,dens
6、ity,strainInc,relSpinInc,4tempOld,stretchOld,defgradOld,fieldOld,5stressOld,stateOld,enerInternOld,enerInelasOld,6tempNew,stretchNew,defgradNew,fieldNew,7stressNew,stateNew,enerInternNew,enerInelasNew)117elseif(cmname(1:6).eq.'VUMAT1')thencallVUMAT1(nblock,ndir,nshr,nstatev,nfieldv,n
7、props,lanneal,2stepTime,totalTime,dt,cmname,coordMp,charLength,3props,density,strainInc,relSpinInc,4tempOld,stretchOld,defgradOld,fieldOld,5stressOld,stateOld,enerInternOld,enerInelasOld,6tempNew,stretchNew,defgradNew,fieldNew,7stressNew,stateNew,enerInternNew,enerInelasNew)endifendC
8、subroutinevu