!2.7  彈性地基半無限長梁在端部力和力偶作用下的變形
! 本程序來源于邢靜忠等編著的《ANSYS分析實例與工程應用》，機械工業出版社（2004年）
FINISH
/CLEAR, NOSTART
/FileName, EX2.7
/PREP7
/TITLE, EX2.7, BENDING OF A BEAM ON AN ELASTIC FOUNDATION
C***    STR. OF MATL., TIMOSHENKO, PART 2, 3RD ED., PAGE 12
! (1) 設置分析類型，單元類型，實常數和材料參數
ANTYPE,STATIC
ET,1,BEAM54
R,1,14839,1831.4e4,63.5,63.5
RMODIF,1,16,10.447
MP,EX,1,207e3
MP,PRXY,,0.3
! (2) 定義節點
N,1
N,14,7264
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
! (6) 將計算結果輸出到文件
*DIM,LABEL,CHAR,1,2
*DIM,VALUE,,1,3
LABEL(1,1) = 'END DISP  '
LABEL(1,2) = ' mm '
*VFILL,VALUE(1,1),DATA,-0.95536
*VFILL,VALUE(1,2),DATA,UY
*VFILL,VALUE(1,3),DATA,ABS(UY/0.95536)
/COM
/OUT, EX2_7, out
/COM,-------------------  EX2.7  RESULTS COMPARISON -------------
/COM,
/COM,                 |   TARGET   |   ANSYS   |   RATIO
/COM,
*VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3)
(1X,A8,A8,'   ',F10.5,'  ',F10.5,'   ',1F5.3)
/COM,----------------------------------------------------------
/OUT
FINISH
*LIST, EX2_7, out