用ANSYS进行滞回分析

VibInfo

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