! 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