北京理工大学 | 李明健
假设有如图所示的两个同轴厚壁圆筒,其材质不同,内侧圆筒内、外半径分别为
不考虑内热源,已知稳态热传导微分方程为:
其中
边界条件为以下定温边界条件:
在两个筒的界面处,应该同时满足温度连续和热流连续条件如下:
方程(2)的通解为:
将以上边界条件代入,可以得到待定系数,回代后,得到温度解析解为:
假设
1clear; clc;
2r1=1;r2=2;r3=3;
3k1=1;k2=2;
4T0=10;T00=100;
5r_ = linspace(r1,r3,200);
6for i = 1:length(r_)
7 r=r_(i);
8 if r>=r1 && r<=r2
9 T(i)=T0+(T00-T0)*log(r/r1)/(log(r2/r1)+k1/k2*log(r3/r2));
10 else
11 T(i)=T00+(T00-T0)*k1/k2*log(r/r3)/(log(r2/r1)+k1/k2*log(r3/r2));
12 end
13end
14plot(r_,T)
采用有限元方法求解该问题,ansys apdl 代码如下:
xxxxxxxxxx
501finish
2/clear
3/prep7
4ET,1,279
5mp,kxx,1,1
6mp,kxx,2,2
7r1=1
8r2=2
9r3=3
10h=1
11T1=10
12T2=100
13cylind,r1,r2,0,h,0,360
14cylind,r2,r3,0,h,0,360
15vglue,all
16numcmp,all
17alls
18ESIZE,0.2
19VSEL,s,,,1,
20mat,1
21vsweep,all
22VSEL,s,,,2
23mat,2
24vsweep,all
25alls
26csys,1
27nsel,s,loc,x,r1
28d,all,temp,T1
29nsel,s,loc,x,r3
30d,all,temp,T2
31alls
32/solu
33solve
34csys,0
35/post1
36PATH,p1,2,30,200,
37PPATH,1,,r1,0,0
38PPATH,2,,r3,0,0
39AVPRIN,0, ,
40PDEF, p1,Temp, ,AVG
41PAGET,rstz,TABLE
42*CREATE,out,mac
43*cfopen,T,dat
44*VWRITE,'r','T'
45%C, %C
46*VWRITE,rstz(1,1),rstz(1,5)
47%G, %G
48*cfclose
49*END
50/INPUT,out,mac
有限元计算结果如下:
解析解和有限元结果对比如下:
可见解析解和有限元结果是一致的。该解析解可用于验证传热方面数值模拟算法代码的准确性,特别是含界面的热传导问题。