! 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