ex8.7.inp

ansys有限元分析程序

! 8.7  机翼模型的振动分析
! 本程序来源于邢静忠编著的《ANSYS应用实例与分析》，科学出版社，2006年
!
FINISH	! 退出以前模块 
/CLEAR	! 清除内存中的所有数据
! （1）设置工程选项后, 通过关键点, 建立线和面
/FILNAME, EX8.7	! 定义文件名
/TITLE, EX8.7, Modal analysis of Airplane Wing Model.
/PREP7	! 进入前处理模块PREP7
K, 1	! 在（0, 0）位置定义机翼截面的第1个控制关键点
K, 2, 50.8	! 在（50.8mm, 0）位置定义第2个关键点
K, 3, 58.42, 5.08	! 在（58.42mm, 5.08mm）位置定义第3个关键点
K, 4, 48.26, 11.43	! 在（48.26mm, 11.43mm）位置定义第4个关键点
K, 5, 25.4, 6.35	! 在（25.4mm, 6.35mm）位置定义第5个关键点
L, 1, 2	! 过关键点1和2定义直线
L, 5, 1	! 过关键点5和1定义直线
! 多义线命令格式：SPLINE, P1, P2, P3, P4, P5, P6, XV1, YV1, ZV1, XV6, YV6, ZV6 
Spline, 2, 3, 4, 5, , , -1, , , -1, -0.25, 0	! 定义过2, 3, 4, 5的多义线SPLINE曲线, 在开始连接处斜率矢量为（-1, 0, 0）, 结束位移处的斜率矢量为（-1, -0.25, 0）。
A, 1, 2, 3, 4, 5	! 定义过关键点1, 2, 3, 4和5的线所围起来的面积
! （2）定义材料参数和单元类型, 用面单元剖分所有面
MP, EX, 1, 262	! 定义第1类材料的弹性模量EX=262 N/mm^2
MP, DENS, 1, 887e-12	! 定义第1类材料的密度DENS=887 kg/m^3
MP, NUXY, 1, 0.3	! 定义第1类材料的泊桑比NUXY=0.3
ET, 1, Plane42	! 定义第1类单元为四节点平面单元PLANE42
ET, 2, Solid45	! 定义第2类单元为八节点实体单元SOLID45
Esize, 6.35	! 指定单元剖分尺寸6.35 mm
AMESH, ALL	! 将所有面剖分为PLANE42单元
! （3）指定拉伸选项, 通过体拉伸生成体单元
TYPE, 2	! 切换单元类型为第2类SOLID45
EXTOPT, ESIZE, 10, 0,	! 拉伸生成选项, 生成10个体单元
EXTOPT, ACLEAR, 0	! 拉伸时不清除平面单元的网格
EXTOPT, ATTR, 0, 0, 0	! 保留体单元的特征类型不变
! 体拉伸命令格式：VEXT, NA1, NA2, NINC, DX, DY, DZ, RX, RY, RZ 
VEXT, 1, , , 0, 0, 524, , , ,	! 按照1号面, 执行体拉伸, Z方向增了DZ＝254mm
/VIEW, 1, 1, 1, 1	! 将1号窗口的视点改变为(1, 1, 1)等轴测方向
/AUTO 	! 以最佳比例显示
/REPLOT	! 重新绘制体拉伸生成的模型
FINISH	! 退出后模块
! （4）在求解模块选择节点, 施加位移约束
/SOLU	! 进入求解模块SOLU
ESEL, U, TYPE, , 1	! 取消选择单元类型是1的单元
NSEL, S, LOC, Z, 0	! 选择Z坐标为0的所有节点
D, ALL, ALL	! 对选择集中的所有节点施加固定点条件
ALLSEL, ALL	! 选择所有对象
! （5）指定求解选项, 开始模态求解
ANTYPE, 2	! 申明求解类型是模态分析
MODOPT, LANB, 5, 0, 0, , OFF, , 2	! 使用分块Lanczos方法求解前5阶振型和频率
SOLVE	! 开始模态分析的求解
FINISH	! 退出求解模块
! （6）在后处理模块中, 观察模态
/POST1	! 进入后处理模块POST1
SET, FIRST	! 读入第1阶频率和振型
PLDISP, 2,	! 图形显示第1阶振型
SET, NEXT	! 读入第2阶频率和振型
PLDISP, 2,	! 图形显示第2阶振型
SET, 1, 3	! 读入第3阶频率和振型
PLDISP, 2,	! 图形显示第3阶振型
SET, 1, 4	! 读入第4阶频率和振型
PLDISP, 2,	! 图形显示第4阶振型
SET, 1, 5	! 读入第5阶频率和振型
PLDISP, 2,	! 图形显示第5阶振型
ANMODE, 6, 0.15, , 0	! 用6帧每隔0.15秒钟一帧的动画显示振型随时间的振动
FINISH