FINISH
/CLEAR
/PREP7
!建立单元beam188
ET,1,BEAM188
!设置beam的section
SECTYPE, 1, BEAM, CTUBE, BEAM1, 0
SECOFFSET, CENT
SECDATA,0.01,0.015,0,0,0,0,0,0,0,0,0,0
!材料1 钢
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.1E11
MPDATA,PRXY,1,,0.269
MPDATA,DENS,1,,7850
!建立点
FLST,3,3,8
FITEM,3,0,0,0
FITEM,3,0,1,0
FITEM,3,0,2,0
K, ,P51X
!建立两条直线
LSTR, 1, 2
LSTR, 2, 3
!设置直线划分网格属性
LATT,1, ,1, , , ,1
!画网格
FLST,5,2,4,ORDE,2
FITEM,5,1 !选择直线
FITEM,5,-2
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,10, , , , ,1 !设置10等分
!*
FLST,2,2,4,ORDE,2
FITEM,2,1 FITEM,2,-2
LMESH,P51X
/UI,MESH,OFF
!建立载荷表格5行1列,并填写载荷表
*DIM,P(T),TABLE,5,1,1,time, ,
!*
*SET,P(1,0,1) , 0
*SET,P(2,0,1) , 0.01
*SET,P(2,1,1) , 1000
*SET,P(3,0,1) , 0.02
*SET,P(3,1,1) , 1200
*SET,P(4,0,1) , 0.03
*SET,P(4,1,1) , 1400
*SET,P(5,0,1) , 0.04
*SET,P(5,1,1) , 1600
!设置载荷
FLST,2,1,1,ORDE,1
FITEM,2,12
/GO
F,P51X,FX, %P%
/REPLOT,RESIZE
!添加约束
FLST,2,1,1,ORDE,1
FITEM,2,1
/GO
D,P51X, , , , , ,ALL, , , , ,
!设置分析类型,瞬态分析4,完全法
FINISH
/SOL ANTYPE,4
TRNOPT,FULL
LUMPM,0
!积分步长设置
NSUBST,50,0.05,0.01!50步,最大间隔0.05,最小间隔0.01,
OUTRES,ERASE
OUTRES,ALL,ALL
AUTOTS,1 !自动步长
TIME,0.5 !时间
!求解
FINISH
/SOL
/STATUS,SOLU
SOLVE