! 3.10  彈性地基半無限長梁在端部力和力偶作用下的變形
! 本程序來源于邢靜忠編著的《ANSYS應(yīng)用實例與分析》，科學(xué)出版社，2006年
!
FINISH
/CLEAR, NOSTART	! 清除數(shù)據(jù)，不加載初始化文件
/FILNAME, EX3.10	! 定義文件名稱
/PREP7	! 加載前處理模塊
/TITLE, EX3.10, BENDING OF A BEAM ON ELASTIC FOUNDATION.
! （1）設(shè)置分析類型、單元類型、實常數(shù)和材料參數(shù)
ANTYPE, STATIC	! 定義分析類型為靜力分析
ET, 1, BEAM54	! 定義第1類單元為非對稱梁單元
R, 1, 14838, 1831.3e4, 63.5, 63.5	! 定義第1類實常數(shù): 梁的截面積14838mm^2，慣性矩1831.3cm^4，中性軸距離上下邊緣的距離都為63.5mm 
RMODIF, 1, 16, 10.447	! 彈性地基的線剛度10.447 N/mm^2
MP, EX, 1, 207e3	! 定義第1類材料的彈性模量EX = 207 GPa
MP, PRXY, , 0.3	! 定義第1類材料的泊松比PRXY = 0.3
! （2）定義節(jié)點
N, 1	! 在坐標原點(0, 0, 0)定義第1號節(jié)點
N, 14, 7265	! 在坐標 (7265mm, 0, 0)定義第14號節(jié)點
FILL	! 在第1號節(jié)點和第14號節(jié)點之間填充生成其余節(jié)點
! （3）定義單元
E, 1, 2	! 過1號節(jié)點和2號節(jié)點定義單元
EGEN, 13, 1, 1	! 循環(huán)13次，按照前面單元的模式，生成其余的12個單元
! （4）施加位移約束和節(jié)點荷載
D, 1, UX 	! 固定1號節(jié)點的X方向的線位移UX
F, 1, FY, -4448	! 在1號節(jié)點的-Y方向施加大小為4448N的集中力
F, 1, MZ, 1.13e6	! 在1號節(jié)點施加大小為1.13e6N.mm的集中力偶
OUTPR, , 1	! 設(shè)置輸出第1個荷載步的基本計算結(jié)果，默認值是BASIC
FINISH	! 退出前處理模塊PREP7
! （5）在求解模塊求解，提取位移計算結(jié)果
/SOLU	! 加載求解模塊
SOLVE	! 開始求解
*GET, UY, NODE, 1, U, Y	! 提取第1號節(jié)點的Y方向的線位移UY，并保存到變量UY
*STATUS, PARM	! 顯示內(nèi)存變量的內(nèi)容
FINISH