! 8.5 固支圆板的自由振动
! 本程序来源于邢静忠编著的《ANSYS应用实例与分析》，科学出版社，2006年
!
FINISH
/CLEAR, NOSTART
! （1）设置工程选项、单元类型、材料参数
/FILNAME, EX8.5
/PREP7
SMRT, OFF
/TITLE, EX8.5, NATURAL FREQUENCY OF A FLAT CIRCULAR PLATE WITH CLAMPED EDGE.
ET, 1, PLANE2, , , 1
MP, EX, 1, 207E9
MP, PRXY, , 0.3
MP, DENS, 1, 7801.6
! （2）定义关键点、线和面, 并将面剖分为面单元
K, 1
K, 2, 0.4318
KGEN, 2, 1, 2, 1, , 0.0127
L, 1, 2
L, 3, 4
LESIZE, ALL, , , 10
ESIZE, , 1
A, 1, 2, 4, 3
AMESH, 1
! （3）选择边界节点, 施加位移约束
NSEL, R, LOC, X, 0
D, ALL, UX
NSEL, ALL
DK, 2, ALL, , , 1
DK, 4, UX, , , 1
FINISH
! （4）指定求解类型和求解方法后, 开始模态分析的求解
/SOLU
ANTYPE, MODAL
MODOPT, SUBSP, 9
EQSLVE, PCG
SOLVE
! （5）提取频率计算结果
*GET, F1, MODE, 1, FREQ
*GET, F2, MODE, 2, FREQ
*GET, F3, MODE, 3, FREQ
*STATUS, PARM
FINISH
