! 2.4  平行桿件與剛性梁連接的熱應(yīng)力問題
．ANSYS程序
FINISH	! 退出以前模塊
/CLEAR, START	! 清除系統(tǒng)中的所有數(shù)據(jù), 讀入啟動文件設(shè)置
! （1）定義分析類型、單元類型、截面面積和材料的力學(xué)、熱學(xué)參數(shù)
/FILNAME, EX2.4	! 指定當前工程文件名
/PREP7	! 進入前處理模塊
/TITLE, EX2.4, THERMALLY LOADED SUPPORT STRUCTURE.
ANTYPE, STATIC	! 定義分析類型為靜力分析
ET, 1, LINK1	! 定義第1類單元為二維桿單元LINK1
R, 1, 65e-6	! 定義第1類實常數(shù), 桿件截面面積65mm^2
MP, EX, 1, 100E9	! 定義第1類材料銅的彈性模量100 GPa
MP, ALPX, 1, 1.6E-5	! 定義第1類材料銅的熱膨脹系數(shù)1.6E-5
MP, EX, 2, 210E9	! 定義第2類材料鐵的彈性模量210 GPa
MP, ALPX, 2, 1.3E-5	! 定義第2類材料鐵的熱膨脹系數(shù)1.3E-5
TREF, 70 	! 設(shè)定參考溫度為70度
! （2）定義節(jié)點位置信息
N, 1, -1	! 在（-1m, 0）定義1號節(jié)點
N, 3, 1 	! 在（1m, 0）定義3號節(jié)點
FILL	! 用填充命令在1號和3號節(jié)點之間生成2號節(jié)點
N, 4, -1, -1	! 在（-1m, -1m）定義4號節(jié)點
N, 6, 1, -1  	! 在（1m, -1m）定義6號節(jié)點
FILL	! 用填充命令在4號和6號節(jié)點之間生成5號節(jié)點
! （3）定義單元信息
E, 1, 4	! 過節(jié)點1、4定義銅桿單元, 使用默認的單元類型和材料類型
E, 3, 6	! 過節(jié)點3、6定義銅桿單元
MAT, 2	! 改變材料類型號為2（對應(yīng)為鐵）
E, 2, 5	! 過節(jié)點2、5定義鐵桿單元
CP, 1, UY, 5, 4, 6	! 定義5、4、6這3個節(jié)點的UY為耦合自由度, 即3者的UY位移相等
! （4）定義位移約束和荷載（外力和溫度荷載）
D, 1, ALL, , , 3	! 定義1號節(jié)點到3號節(jié)點全部固定
F, 5, FY, -4000	! 在5號節(jié)點施加-Y方向4000N的集中力
BFUNIF, TEMP, 80	! 溫度從原來的70度均勻升到80度
FINISH	! 退出前處理模塊PREP7
! （5）在求解模塊, 定義求解選項, 并開始求解
/SOLU	! 進入求解模塊
OUTPR, BASIC, 1	! 選擇第1荷載步的基本輸出項目
OUTPR, NLOAD, 1	! 指定輸出第1荷載步的內(nèi)容
NSUBST, 1	! 指定當前求解的荷載步
SOLVE	! 開始求解
FINISH	! 退出求解模塊SOLU
! （6）在一般后處理模塊中, 尋找特定位置的節(jié)點和單元, 并提取它們的內(nèi)力
/POST1   	! 進入后處理模塊
STEEL_N  = NODE (, , , )	! 選擇距離（0, 0, 0）最近的節(jié)點, 保存到變量STEEL_N
COPPER_N = NODE (1, 0, 0)	! 選擇距離（1, 0, 0）最近的節(jié)點, 保存到變量COPPER_N
STEEL_E = ENEARN (STEEL_N)	! 選擇距離STEEL_N節(jié)點最近的單元, 將編號保存到變量STEEL_E
COPPER_E = ENEARN (COPPER_N)	! 選擇距離COPPER_N節(jié)點最近的單元, 將編號保存到變量COPPER_E
ETABLE, STRS_ST, LS, 1	! 用軸向應(yīng)力（LS, 1）定義單元表STRS_ST
ETABLE, STRS_CO, LS, 1	! 用軸向應(yīng)力（LS, 1）定義單元表STRS_CO
*GET, STRSS_ST, ELEM, STEEL_E, ETAB, STRS_ST	! 從單元表STRS_ST提取STEEL_E單元的應(yīng)力, 存入變量STRSS_ST
*GET, STRSS_CO, ELEM, COPPER_E, ETAB, STRS_CO	! 從單元表STRS_CO提取COPPER_E單元的應(yīng)力, 存入變量STRSS_CO
*STATUS, PARM	! 顯示所有內(nèi)存變量的值
FINISH	! 退出后處理模塊