/FILNAME, Beam,1 ！定义工作文件名。

/TITLE, Beam Analysis ！定义工作标题。

/PREP7
!定义单元。

ET,1,BEAM188
!定义材料属性。

MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.1e5
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7.9e-6
! 定义杆件截面■200。

SECTYPE, 1, BEAM, RECT, , 0 SECOFFSET, CENT
SECDATA,10,10,0,0,0,0,0,0,0,0
!建立几何模型。

K,1, ,, ,
K,2,350,, ,
!生成立柱。

LSTR, 1, 2
!以上完成几何模型。

!以下进行网格划分。

FLST,5,1,4,ORDE,1
FITEM,5,1
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,50, , , , ,1 !定义单元大小。

!分配、划分平板结构。

LMESH, 1
!分析类型施加载荷并求解。

ANTYPE,2 ！定义分析类型及求解设置。

MSAVE,0 ！模态提取方法。

MODOPT,LANB,40
EQSLV,SPAR
MXPAND,40, , ,0 ！模态扩展设置。

LUMPM,0
PSTRES,0
MODOPT,LANB,40,0,0, ,OFF
!施加约束。

FLST,2,2,3,ORDE,2
FITEM,2,1
FITEM,2,-2
/GO
DK,P51X, , , ,0,ALL, , , , , ,
!求解。

FINISH
/SOL
/STA TUS,SOLU
SOLVE
!以下进入谐响应分析模式。

*AFUN,DEG !指定角度单位为度。

FLST,2,1,1,ORDE,1
FITEM,2,81
/GO
FINISH
/SOL !重新进入ANSYS求解器。

ANTYPE,3 !分析类型为谐响应分析。

HROPT,FULL !求解方法为FULL法。

HROUT,ON
LUMPM,0
EQSLV,FRONT,0,
PSTRES,1 !包含了预应力。

!施加载荷。

FLST,2,1,1,ORDE,1
FITEM,2,24
/GO
F,P51X,FY,-400*cos(30),-400*sin(30)
FLST,2,1,1,ORDE,1
FITEM,2,36
/GO
F,P51X,FY,300*cos(5),300*sin(5)
HARFRQ,0,100, !设置载荷子步。

NSUBST,200,
KBC,1
!求解。

FINISH
/SOL
/STA TUS,SOLU
SOLVE。