! 8.3  懸臂長板的自由振動頻率
! 本程序來源于邢靜忠編著的《ANSYS應用實例與分析》，科學出版社，2006年
!
FINISH
/CLEAR, NOSTART
! （1）定義工程選項, 分析類型、單元類型、實常數、模態求解選項和材料參數
/FILNAME, EX8.3
/PREP7
SMRT, OFF
/TITLE, EX8.3, VIBRATION OF A FLAT PLATE.
ANTYPE, MODAL
ET, 1, SHELL63
R, 1, 25.4e-3
MXPAND, 1
MODOPT, REDUC, 2, , , 2
MP, EX, 1, 207e9
MP, DENS, 1, 7780.81
MP, NUXY, 1, 0
! （2）定義關鍵點、線, 通過對線的單元剖分得到有限元模型
K, 1, , -50.8e-3
K, 2, 406.4e-3, -50.8e-3
KGEN, 2, 1, 2, 1, , 101.6e-3
L, 1, 3
L, 2, 4
LESIZE, ALL, , , 2
A, 1, 2, 4, 3
ESIZE, , 4
AMESH, 1
! （3）選擇邊界上的節點, 施加位移邊界條件
/PNUM, NODE, 1
NSEL, S, LOC, Y, 0
M, ALL, UZ
NSEL, S, LOC, X, 406.4e-3
D, ALL, ALL
NSEL, ALL
OUTPR, ALL, 1
/REPLOT
FINISH
! （4）在求解模塊求解模態分析
/SOLU
SOLVE
! （5）提取計算結果
*GET, FREQ, MODE, 1, FREQ
*STATUS, PARM
FINISH