|
/PREP7
!定义单元类型，实常数，材料特性
ET,1,SHELL143
R,1,12, , , , ,
MP,EX,1,196784
MP,NUXY,1,0.3
!双线性随动强化模型
TB,BKIN,1,1,2,1
TBDATA,,310,600,,,,
!定义关键点、线、面
K,1,54,0,0
K,2,-54,0,0
K,3,54,0,1000
K,4,-54,0,1000
A,1,2,4,3
!定义边界荷强迫位移,划分网格
AESIZE,ALL,27,
MSHAPE,0,2D
MSHKEY,0
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CMSEL,S,_Y
AMESH,_Y1
*do,i,1,5
D,i,ALL,0
*enddo
OUTPR,BASIC,ALL,
OUTRES,ALL,ALL,
!第1荷载步
D,46,ux,60
TIME,1
AUTOTS,0
NSUBST,10, , ,1
KBC,0
LSWRITE,01,
!第2荷载步
D,46,ux,-60
TIME,3
AUTOTS,0
NSUBST,20, , ,1
KBC,0
LSWRITE,02,
!第3荷载步
D,46,ux,60
TIME,5
AUTOTS,0
NSUBST,20, , ,1
KBC,0
LSWRITE,03,
!第4荷载步
D,46,ux,-60
TIME,7
AUTOTS,0
NSUBST,20, , ,1
KBC,0
LSWRITE,04,
!求解
FINISH
/SOLU
LSSOLVE,1,4,1,
!画出荷载位移曲线
FINISH
/POST26
NSOL,2,46,U,X,
RFORCE,3,46,F,X,
XVAR,2
PLVAR,3, , , , , , , , , ,
|