ex8.1.inp

ansys有限元分析程序

! 8.1  圆形张紧薄膜的自由振动
! 本程序来源于邢静忠编著的《ANSYS应用实例与分析》，科学出版社，2006年
!
FINISH
/CLEAR, NOSTART	! 清除数据，不加载初始化文件
! （1）定义工程选项、分析类型、单元类型、材料参数和实常数
/FILNAME, EX8.1	! 定义工程文件名称为EX8.1
/PREP7	! 加载前处理模块/PREP7
/TITLE, EX8.1, VIBRATION OF A STRETCHED CIRCULAR MEMBRANE.
ANTYPE, STATIC	! 定义分析类型为静力分析
PSTRES, ON	! 打开预应力选项（该选项对于有预应力的结构振动非常重要）
ET, 1, SHELL51	! 定义第1类单元为轴对称壳单元SHELL51
MP, EX, 1, 207E9	! 定义第1类材料的弹性模量EX=207GPa
MP, PRXY, 1, 0.3	! 定义第1类材料的泊松比PRXY＝0.3
MP, DENS, 1, 7805	! 定义第1类材料的密度DENS＝7805kg/m^3
R, 1, 0.254e-3	! 定义第1类实常数定义壳体厚度0.254mm
! （2）通过节点定义建立模型
N, 1  	! 在坐标原点（0, 0, 0）定义第1号节点
N, 10, 0.381	! 在坐标（0, 0.381mm, 0）定义第10号节点
FILL	! 在1号节点和10号节点中间填充生成其余8个节点
E, 1, 2	! 过节点1和节点2定义轴对称壳单元
EGEN, 9, 1, 1	! 用前面定义的单元, 循环9次, 每次单元的节点号增加1, 生成其余8个单元
! （3）施加位移约束和荷载
D, 1, UX, , , , , ROTZ	! 约束1号节点的沿着X方向的线位移UX和绕Z轴的角位移ROTZ
D, 10, UY, , , , , UZ	! 约束10号节点的沿着Y方向的线位移UY和沿着Z轴的线位移UZ
F, 10, FX, 41924	! 在节点10的X方向施加集中力, 大小为41924N
FINISH	! 退出前处理模块PREP7
! （4）进入求解模块, 指定求解输出选项后求解
/SOLU 	! 加载求解模块
OUTPR, BASIC, 1	! 指定只输出第1阶模态的基本计算结果
SOLVE  	! 开始求解
FINISH 	! 退出求解模块SOLU
! （5）在一般后处理模块中, 定义单元表, 提取单元的应力值
/POST1 	! 进入一般后处理模块
ETABLE, STRS, LS, 1	! 以壳应力最大拉应力”LS, 1”为内容, 定义单元表STRS
*GET, STRSS, ELEM, 9, ETAB, STRS	! 从单元表STRS提取单元9的最大拉应力, 存入STRSS
FINISH	! 退出一般后处理模块
! （6）重新进入求解模块, 开始模态分析
/SOLU 	! 加载求解模块
ANTYPE, MODAL	! 指定分析类型是模态分析
PSTRES, ON	! 指定包含预应力效应
MXPAND, 3	! 展开前3阶模态
MODOPT, REDUC, , , , 9	! 用降阶方法求解前9阶模态
M, 1, UY, 9	! 定义节1到节点9的UY方向为主自由度方向
SOLVE	! 开始进行模态分析的求解
! （7）提取频率计算结果
*GET, FREQ1, MODE, 1, FREQ	! 提取第1阶频率计算结果, 存入变量FREQ1
*GET, FREQ2, MODE, 2, FREQ	! 提取第2阶频率计算结果, 存入变量FREQ2
*GET, FREQ3, MODE, 3, FREQ	! 提取第3阶频率计算结果, 存入变量FREQ3
*Status, parameters	! 列出内存变量的值
FINISH	! 退出后处理模块