ex8.7.inp

ansys有限元分析程序

! 8.7  机翼模型的振动分析
! 本程序来源于邢静忠编著的《ANSYS应用实例与分析》，科学出版社，2006年
!
FINISH
/CLEAR
! （1）设置工程选项后, 通过关键点, 建立线和面
/FILNAME, EX8.7
/TITLE, EX8.7, Modal analysis of Airplane Wing Model.
/PREP7
K, 1
K, 2, 50.8
K, 3, 58.42, 5.08
K, 4, 48.26, 11.43
K, 5, 25.4, 6.35
L, 1, 2
L, 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
A, 1, 2, 3, 4, 5
! （2）定义材料参数和单元类型, 用面单元剖分所有面
MP, EX, 1, 262
MP, DENS, 1, 887e-12
MP, NUXY, 1, 0.3
ET, 1, Plane42
ET, 2, Solid45
Esize, 6.35
AMESH, ALL
! （3）指定拉伸选项, 通过体拉伸生成体单元
TYPE, 2
EXTOPT, ESIZE, 10, 0, 
EXTOPT, ACLEAR, 0
EXTOPT, ATTR, 0, 0, 0
! 体拉伸命令格式：VEXT, NA1, NA2, NINC, DX, DY, DZ, RX, RY, RZ
VEXT, 1, , , 0, 0, 524, , , , 
/VIEW, 1, 1, 1, 1
/AUTO
/REPLOT
FINISH
! （4）在求解模块选择节点, 施加位移约束
/SOLU
ESEL, U, TYPE, , 1
NSEL, S, LOC, Z, 0
D, ALL, ALL
ALLSEL, ALL
! （5）指定求解选项, 开始模态求解
ANTYPE, 2
MODOPT, LANB, 5, 0, 0, , OFF, , 2
SOLVE
FINISH
! （6）在后处理模块中, 观察模态
/POST1
SET, FIRST
PLDISP, 2, 
SET, NEXT
PLDISP, 2, 
SET, 1, 3
PLDISP, 2, 
SET, 1, 4
PLDISP, 2, 
SET, 1, 5
PLDISP, 2, 
ANMODE, 6, 0.15, , 0
FINISH