! 3.10  彈性地基半無限長梁在端部力和力偶作用下的變形
! 本程序來源于邢靜忠編著的《ANSYS應用實例與分析》，科學出版社，2006年
!
FINISH
/CLEAR, NOSTART
/FILNAME, EX3.10
/PREP7
/TITLE, EX3.10, BENDING OF A BEAM ON ELASTIC FOUNDATION.
! （1）設置分析類型、單元類型、實常數和材料參數
ANTYPE, STATIC
ET, 1, BEAM54
R, 1, 14838, 1831.3e4, 63.5, 63.5
RMODIF, 1, 16, 10.447
MP, EX, 1, 207e3
MP, PRXY, , 0.3
! （2）定義節點
N, 1
N, 14, 7265
FILL
! （3）定義單元
E, 1, 2
EGEN, 13, 1, 1
! （4）施加位移約束和節點荷載
D, 1, UX
F, 1, FY, -4448
F, 1, MZ, 1.13e6
OUTPR, , 1
FINISH
! （5）在求解模塊求解，提取位移計算結果
/SOLU
SOLVE
*GET, UY, NODE, 1, U, Y
*STATUS, PARM
FINISH