滞回分析的ANSYS 实现

滞回分析的ANSYS 实现
用ANSYS可以实现结构的滞回分析,这在地震反应分析等多个方面很有用处,下面是一个简单的命令流,希望对大家有所启发。

FINI
/CLEAR
/PREP7
!定义单元类型,实常数,材料特性
ET,1,SHELL143
R,1,12, , , , ,
MP,EX,1,210000
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

!分为4个荷载步进行求解
!第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

返回ansys文章列表>>>