/FILNAME,Elastic-Plasitc,1
/TITLE, Elastic-Plasitc Analysis
!前处理。

/PREP7
!**定义梁单元189。

ET,1,BEAM189 !定义单元。

!**梁截面1。

SECTYPE, 1, BEAM, HREC, , 0 !定义梁截面。

SECOFFSET, CENT
SECDATA,50,100,6,6,6,6,0,0,0,0 !定义梁截面完成。

!**定义材料。

MPTEMP,,,,,,,, !定义弹塑性材料模型。

MPTEMP,1,0
MPDATA,EX,1,,2.05e5
MPDATA,PRXY,1,,0.3
TB,BISO,1,1,2,
TBTEMP,0
TBDATA,,150,18600,,,, !定义弹塑性材料模型。

!**建立几何模型。

K,1, , , ,
K,2 ,900,
K,3 ,,50
LSTR, 1, 2
!**网格划分。

FLST,5,1,4,ORDE,1 !定义网格密度。

FITEM,5,1
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,50, , , , ,1 !定义网格密度完成。

CM,_Y,LINE !网格划分。

LSEL, , , , 1
CM,_Y1,LINE
CMSEL,S,_Y
CMSEL,S,_Y1
LATT,1, ,1, , 3, ,1
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
LMESH, 1 !网格划分完成。

!施加载荷及求解。

FINISH
/SOL
!**施加约束。

FLST,2,1,3,ORDE,1 !施加约束。

FITEM,2,1
/GO
DK,P51X, , , ,0,UX,UY,UZ,ROTX, , ,
FLST,2,1,3,ORDE,1
FITEM,2,2
/GO
DK,P51X, , , ,0,UY,UZ,ROTX, , , , !施加约束完成。

!**加载。

FLST,2,50,2,ORDE,2
FITEM,2,1
FITEM,2,-50
SFBEAM,P51X,1,PRES,100, , , , , ,
LSWRITE,1, !定义载荷步1完成。

FLST,2,50,2,ORDE,2 !定义载荷步2。

FITEM,2,1
FITEM,2,-50
SFEDELE,P51X,1,PRES
LSWRITE,2, !定义载荷步2完成。

!设定求解步并求解。

LSSOLVE,1,2,1,。