ex8.1.inp

ansys有限元分析程序

! 8.1  圆形张紧薄膜的自由振动
! 本程序来源于邢静忠编著的《ANSYS应用实例与分析》，科学出版社，2006年
!
FINISH
/CLEAR, NOSTART
! （1）定义工程选项、分析类型、单元类型、材料参数和实常数
/FILNAME, EX8.1
/PREP7
/TITLE, EX8.1, VIBRATION OF A STRETCHED CIRCULAR MEMBRANE.
ANTYPE, STATIC
PSTRES, ON
ET, 1, SHELL51
MP, EX, 1, 207E9
MP, PRXY, 1, 0.3
MP, DENS, 1, 7805
R, 1, 0.254e-3
! （2）通过节点定义建立模型
N, 1
N, 10, 0.381
FILL
E, 1, 2
EGEN, 9, 1, 1
! （3）施加位移约束和荷载
D, 1, UX, , , , , ROTZ
D, 10, UY, , , , , UZ
F, 10, FX, 41924
FINISH
! （4）进入求解模块, 指定求解输出选项后求解
/SOLU
OUTPR, BASIC, 1
SOLVE
FINISH
! （5）在一般后处理模块中, 定义单元表, 提取单元的应力值
/POST1
ETABLE, STRS, LS, 1
*GET, STRSS, ELEM, 9, ETAB, STRS
FINISH
! （6）重新进入求解模块, 开始模态分析
/SOLU
ANTYPE, MODAL
PSTRES, ON
MXPAND, 3
MODOPT, REDUC, , , , 9
M, 1, UY, 9
SOLVE
! （7）提取频率计算结果
*GET, FREQ1, MODE, 1, FREQ
*GET, FREQ2, MODE, 2, FREQ
*GET, FREQ3, MODE, 3, FREQ
*Status, parameters
FINISH