! 7.7 自由-自由梁的纵向自由振动
! 本程序来源于邢静忠编著的《ANSYS应用实例与分析》，科学出版社，2006年
!
FINISH
/CLEAR, NOSTART ! 清除数据, 不加载初始化文件
! （1）定义工程选项、单元类型、材料参数和实常数
/FILNAME, EX7.7 ! 定义文件名称
/PREP7 ! 加载前处理模块
/TITLE, EX7.7, LONGITUDINAL VIBRATION OF A FREE-FREE ROD
ANTYPE, MODAL ! 指定分析类型为模态分析
ET, 1, BEAM3 ! 定义第1类单元为二维弹性梁单元BEAM3
R, 1, 1, 1, 1 ! 定义梁的截面积为AREA=1, 抗弯惯性矩为IZZ=1和截面高度为HEIGHT=1
MODOPT, LANB, 3 ! 选择分块LANCZOS特征值求解器, 求解前3阶模态
MP, EX, 1, 207E9 ! 定义第1类材料的弹性模量EX ＝ 207 GPa
MP, DENS, 1, 7802 ! 定义第1类材料的密度DENS ＝ 7802 kg/m^3
MP, PRXY, , 0.3 ! 定义第1类材料的泊松比PRXY ＝ 0.3
! （2）通过关键点的定义建立模型
K, 1 ! 在坐标原点（0, 0, 0）定义第1个关键点
K, 2, 20.32 ! 在坐标(20.32m, 0)定义第2个关键点
L, 1, 2 ! 过关键点1, 2定义直线
ESIZE, , 11 ! 指定单元剖分格数为11
LMESH, 1 ! 对直线1进行单元剖分
OUTPR, BASIC, 1 ! 输出第1阶频率的基本内容
D, ALL, UY, , , , , ROTZ ! 约束所有节点在Y方向的自由度UY和绕Z轴转动自由度ROTZ
FINISH ! 退出前处理模块PREP7
! （3）在求解模块, 开始模态分析的求解
/SOLU ! 加载求解模块
SOLVE ! 开始求解
FINISH ! 退出求解模块SOLUTION
! （4）在一般后处理模块中, 获取频率计算结果
/POST1 ! 加载后处理
*GET, FREQ1, MODE, 1, FREQ ! 获取第1阶频率计算结果, 存入变量FREQ1
*GET, FREQ2, MODE, 2, FREQ ! 获取第2阶频率计算结果, 存入变量FREQ2
*GET, FREQ3, MODE, 3, FREQ ! 获取第3阶频率计算结果, 存入变量FREQ3
*STATUS, PARM ! 显示内存变量的值
FINISH ! 退出后处理模块
