! 8.3  懸臂長板的自由振動頻率
! 本程序來源于邢靜忠編著的《ANSYS應用實例與分析》，科學出版社，2006年
!
FINISH 
/CLEAR, NOSTART	! 清除數據, 不加載初始化文件
! （1）定義工程選項, 分析類型、單元類型、實常數、模態求解選項和材料參數
/FILNAME, EX8.3	! 定義工程文件名稱為EX8.3
/PREP7  	! 加載前處理模塊
SMRT, OFF	! 關閉智能化網格功能
/TITLE, EX8.3, VIBRATION OF A FLAT PLATE.
ANTYPE, MODAL 	! 指定分析類型是模態分析
ET, 1, SHELL63 	! 定義第1類型單元是結構殼單元SHELL63
R, 1, 25.4e-3  	! 定義殼體厚度 25.4 mm
MXPAND, 1      	! 展開第1階模態
MODOPT, REDUC, 2, , , 2	! 顯示前2階模態
MP, EX, 1, 207e9	! 定義第1類材料的彈性模量為EX = 207 GPa
MP, DENS, 1, 7780.81	! 定義第1類材料的密度DENS = 7780.81 kg/m^3
MP, NUXY, 1, 0	! 定義第1類材料的泊松比0
! （2）定義關鍵點、線, 通過對線的單元剖分得到有限元模型
K, 1, , -50.8e-3	! 在坐標(0, -50.8mm)定義第1個關鍵點
K, 2, 406.4e-3, -50.8e-3	! 在坐標(406.4mm, -50.8mm)定義第2個關鍵點
KGEN, 2, 1, 2, 1, , 101.6e-3	! 重復2次, 從關鍵點1到2, 增量為1, 每個節點的Y坐標增加101.6mm, 生成節點3和節點4
L, 1, 3	! 過關鍵點1和3定義線
L, 2, 4	! 過關鍵點2和4定義線
LESIZE, ALL, , , 2	! 指定所有線在單元剖分是剖分為2截
A, 1, 2, 4, 3	! 過節點1, 2, 3和4定義面
ESIZE, , 4	! 指定單元剖分網格數是4
AMESH, 1	! 對1號面進行網格剖分
! （3）選擇邊界上的節點, 施加位移邊界條件
/PNUM, NODE, 1	! 打開節點號顯示
NSEL, S, LOC, Y, 0	! 選擇所有Y＝0位置處的節點
M, ALL, UZ  	! 指定選擇集中的所有節點的UZ自由度為主自由度
NSEL, S, LOC, X, 406.4e-3	! 選擇所有X＝406.4mm位置處的節點
D, ALL, ALL	! 約束選擇集中所有節點的位移自由度
NSEL, ALL	! 選擇所有節點
OUTPR, ALL, 1	! 指定輸出第1階模態的所有計算結果
/REPLOT	! 重新繪制模型
FINISH	! 退出前處理模塊PREP7
! （4）在求解模塊求解模態分析
/SOLU	! 加載求解模塊
SOLVE	! 開始進行模態分析的求解
! （5）提取計算結果
*GET, FREQ, MODE, 1, FREQ	! 提取第1階頻率, 保存到變量FREQ中
*STATUS, PARM  	! 顯示內存變量的值
FINISH	! 退出求解模塊SOLUTION