/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
!分析类型施加载荷并求解。

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

MSAVE,0 ！模态提取方法。

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

LUMPM,0
PSTRES,0
MODOPT,LANB,10,0,0, ,OFF
MXPAND,10,0,0,1,0.001,
!施加约束。

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

FINISH
/SOL
/STATUS,SOLU
SOLVE
!定义谱分析。

FINISH
/SOLUTION
ANTYPE,8
SPOPT,PSD,10,1
PSDUNIT,1,DISP,386.4,
PSDFRQ,1, ,13.8,40,50.6,73,120 !定义谱—频率表。

PSDFRQ,1, ,134,178,233, ,
PSDV AL,1,1,4,0.6,3,5
PSDV AL,1,6,2,6, ,
FLST,2,2,1,ORDE,2 !施加谱。

FITEM,2,1
FITEM,2,-2
D,P51X,UX,1.0
PFACT,1,BASE, !计算PSD激励参与系数。

PSDRES,DISP,REL !设置输出选项。

PSDRES,VELO,OFF
PSDRES,ACEL,OFF
FINISH
/SOLUTION
ANTYPE,8 !重新进入谱分析。

PSDCOM,0,10, !合并模态。

!求解。

FINISH
/SOL
/STATUS,SOLU
SOLVE。