/prep7 !進入prep7處理器
k,1$k,2,6$k,3,12$k,4,18$k,5,24$k,6,6,8$k,7,12,8$k,8,18,8 !創建關鍵點
l,1,2$l,2,3$l,3,4$l,4,5$l,1,6$l,6,7$l,7,8$l,5,8$l,2,6 !創建線
l,3,7$l,4,8$l,6,3$l,3,8
et,1,link1 !定義單元類型
r,1,0.01$r,2,0.005$r,3,0.0125 !定義單元實常數
mp,ex,1,2.1e11 !定義材料屬性
mp,prxy,1,0.3
lsel,s,tan1,y$latt,1,1,1 !選擇水平線並定義屬性
lsel,s,loc,y,1,7$lsel,r,loc,x,6,18$latt,1,2,1
lsel,s,loc,y,1,7$lsel,u,loc,x,6,18$latt,1,3,1
allsel,all
lesize,all,,,1 !定義各個線所劃分的單元個數
lmesh,all !對所有線進行單元劃分
finish
/solu !進入solu處理器
antype,0 !定義分析類型
dk,1,ux,,,,uy !約束關鍵點1的Ux,Uy
dk,5,uy !約束關鍵點5的Uy
fk,6,fy,-200000 !關鍵點6施加向下的荷載200000N
fk,8,fy,-200000 !關鍵點8施加向下的荷載200000N
fk,2,fy,-400000 !關鍵點2施加向下的荷載400000N
fk,3,fy,-400000 !關鍵點3施加向下的荷載400000N
fk,4,fy,-400000
lplot !繪制線
solve !執行求解
finish
/post1 !進入後處理器
pldisp !繪制變形圖
etable,mforce,smisc,1 !定義單元軸力表
etable,mstress,ls,1 !定義單元應力表
plls,mforce,mforce,1 !繪制單元軸力圖
plls,mstress,mstress,1 !繪制單元應力圖
prrsol