/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
