! 2.5 端部有间隙的杆的热膨胀
! 本程序来源于邢静忠编著的《ANSYS应用实例与分析》，科学出版社，2006年
!
FINISH
/CLEAR, START
! （1）定义分析类型、单元类型、平面单元厚度和材料的力学、热学参数
/FILNAME, EX2.5
/PREP7
/TITLE, EX2.5, THERMAL EXPANSION TO CLOSE A GAP AT A RIGID SURFACE.
ANTYPE, STATIC
ET, 1, CONTAC26
R, 1, 2.625E15
ET, 2, PLANE42, , , 3
R, 2, 1
MP, EX, 1, 72.4E3
MP, ALPX, 1, 2.25E-5
MP, NUXY, 1, 0
! （2）定义节点信息
N, 1, 2000, 1000
N, 2, 3000, 1000
N, 3, 3000, 4000
N, 4, 2000, 4000
N, 11, 1000, 998
N, 12, 4000, 998
! （3）定义单元信息
E, 1, 11, 12
E, 2, 11, 12
TYPE, 2
REAL, 2
E, 1, 2, 3, 4
TREF, 21
BFUNIF, TEMP, 77
! （4）定义位移约束
D, 3, ALL, , , 4
D, 1, UX, , , 2, 1
OUTPR, BASIC, LAST
FINISH
! （5）在求解模块开始求解
/SOLU
SOLVE
FINISH
! （6）在一般后处理模块, 定义水平应力和铅直应力单元表, 并提取3号单元的应力结果
/POST1
ETABLE, STRSX, S, X
ETABLE, STRSY, S, Y
*GET, STRSSX, ELEM, 3, ETAB, STRSX
*GET, STRSSY, ELEM, 3, ETAB, STRSY
*STATUS, PARM
FINISH
