! 8.4  懸臂寬板的模態分析
! 本程序來源于邢靜忠編著的《ANSYS應用實例與分析》，科學出版社，2006年
!
FINISH 	! 退出以前模塊
/CLEAR, NOSTART	! 清除內存中的所有數據, 不讀入初始化文件
! （1）定義工程選項、單元類型、材料參數和實常數
/FILNAME, EX8.4	! 定義文件名稱EX8.4
/UNITS, SI	! 使用國際制單位
/TITLE, EX8.4, Vibration Analysis of Cantilever Plate.
/PREP7  	! 進入前處理模塊PREP7
ET, 1, SHELL63	! 定義第1類單元為殼單元SHELL63
MP, EX, 1, 2.07e11	! 定義第1類材料的彈性模量EX=207 GPa
MP, DENS, 1, 7800	! 定義第1類材料的密度DENS=7800 kg/m^3
MP, NUXY, 1, 0.33	! 定義第1類材料的泊松比NUXY=0.33
R, 1, 0.03	! 定義單元的第1類實常數:厚度為30mm
! （2）定義節點位置
N, 1, 0, -0.06	! 在（0, -60mm）定義1號節點
N, 11, 0.5, -0.06	! 在（500mm, -60mm）定義11號節點
FILL, 1, 11	! 填充生成1到11號節點中間的所有節點
N, 21, 0, 0	! 在（0, 0）定義21號節點
N, 31, 0.5, 0	! 在（500mm, 0）定義31號節點
FILL, 21, 31	! 填充生成21到31號節點中間的所有節點
N, 41, 0, 0.06	! 在（0, 60mm）定義41號節點
N, 51, 0.5, 0.06	! 在（500mm, 60mm）定義51號節點
FILL, 41, 51	! 填充生成41到51號節點中間的所有節點
! （3）定義單元
E, 1, 2, 22, 21	! 用節點1, 2, 22, 21定義第1個單元
EGEN, 10, 1, 1	! 按第1個單元的編號規則生成10次, 得到1到10單元
EGEN, 2, 20, 1, 10	! 按第1單元到第10個單元的編號模式生成2次, 增量為20, 得到11到20單元
FINISH 	! 退出前處理模塊/PREP7
! （4）進入求解模塊, 指定求解選項和位移約束后求解
/SOLU	! 進入求解模塊SOLUTION
ANTYPE, MODAL	! 申明求解類型是模態分析
MODOPT, LANB, 5, 0, 0, , OFF, , 2	! 使用分塊Lanczos方法求解前5階振型和頻率
D, 1, ALL, 0, 0, 11, 1	! 固定1號節點, 用增量1循環到11, 生成1到11號共11個固定點
SOLVE	! 開始模態分析的求解
FINISH	! 退出后模塊
! （5）在后處理模塊中, 圖形顯示和動畫顯示模態
/POST1	! 進入后處理模塊POST1
SET, LIST	! 列出各階頻率計算結果
/VIEW, 1, 1, 1, 1	! 切換到等軸測（1, 1, 1）方向
SET, FIRST	! 讀入第1階模態數據
PLDISP, 1	!  在圖形窗口顯示結構振型
SET, Next	! 讀入下一階振型數據, 使用多次可以依次得到各階振型和頻率
PLDISP, 1	! 在圖形窗口顯示結構振型
ANMODE, 10, 0.05	! 用10幀每隔0.05秒鐘的動畫顯示振型
FINISH