在荷載步之間改變材料屬性例子

! 材料泊松比隨荷載增加而逐步增大

FINISH

/CLEAR

/PREP7

FORCE=1. !初始荷載

FC=30. !極限荷載

NSTEP=30 !加載步數

EMU0=0.2 !初始泊松比爲 0.2

EMUU=0.499 !最終泊松比爲 0.499

SVM=0. !VON MISES 應力

!*

ET,1,SOLID45

!*

!*

MP,EX,1,30E3

MP,NUXY,1,EMU0

!建立模型

BLC4,0,0,100,100,100

ESIZE,100,0,

VMESH,ALL

/SOLU

!輸出 RESTART 文件

RESCONTRL,DEFINE,ALL,-1,1

NLGEOM,1

D,2,ALL

D,4,UY

D,5,UY

D,6,UY

D,5,UX

FINISH

SAVE

!分步加載 264

*DO,I,1,NSTEP

FINISH

/SOLU

!使用重啓動功能

*IF,I,GT,1,THEN

ANTYPE,,REST,

PARRES, CHANGE , PARAM, TXT,

*ENDIF

! 如果荷載超過強度的 50%，則線性提高泊松比

*IF,SVM,GE,FC*0.5,THEN

MP,EX,1,30E3

MP,NUXY,1,EMU0+(EMUU-EMU0)*(SVM/FC-0.5)/0.5

*ENDIF

!得到下一步荷載

FORCE=FORCE+1

!加載

SFE,ALL,4,PRES, , FORCE, , ,

SOLVE

FINISH

/POST1

!得到 VON MISES 應力

*GET,SVM,ELEM,1,NMISC, 4

PARSAV, ALL, PARAM, TXT,

FINISH

*ENDDO

作者：XuJC