!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
