/PREP7 !进入前处理模块PREP7
ET,1,BEAM3 !定义梁单元BEAM3
MP,EX,1,3.0e10 !定义材料的弹性模量
MP,PRXY,1,0.2 !定义材料的泊松比
mp,dens,1,2500 !定义材料的密度
mp,alpx,1,1.2e-5 !定义材料的线膨胀系数
R,1,0.28,0.014934,0.8 !定义单元实常数:面积,惯性矩,截面高度K,1, ! 结点1坐标0，0
K,2,6.5 ! 结点2坐标6.5，0
l,1,2
lesize,1,,,65 !划分单元0.1米一个共65个
lmesh,1
D,1,ux !固定1号结点约束1号点x、y方向2号点y方向D,1,uy
D,2,uy
FINISH
/SOLU !进入求解模块
ANTYPE,2 !定义求解类型是模态分析
MSA VE,0 !使用全局组件为整个模型定义刚度矩阵MODOPT,SUBSP,5 !使用SuBSP方法求解前5阶振型和频率mxpand,5
SOLVE !开始求解
FINISH !退出后模块
/POST1 !进入后处理模块POST1
SET,1,1 !读入第一阶频率和振型
PLDISP ! 在图形窗口显示第一阶结构振型ANMODE,10,0.05 !用10帧每隔0.05秒钟的动画显示振型
/SOLU。