1、/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,BI
2、SO,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,_
3、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,
