diff options
Diffstat (limited to '587/CH2/EX2.19/example2_19.sce')
-rwxr-xr-x | 587/CH2/EX2.19/example2_19.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/587/CH2/EX2.19/example2_19.sce b/587/CH2/EX2.19/example2_19.sce new file mode 100755 index 000000000..cdc440bfa --- /dev/null +++ b/587/CH2/EX2.19/example2_19.sce @@ -0,0 +1,15 @@ +clear;
+clc;
+
+//Example2.19[Heat Conduction in a two layer medium]
+//Given:-
+k_wire=15,k_ceramic=1.2;//[W/m.degree Celcius]
+r1=0.002,r2=0.007;//[m]
+e_gen=50*10^6;//[W/m^3]
+Ts=45;//[degree Celcius]
+//Solution:-
+T1=(((e_gen*(r1^2)*log(r2/r1))/(2*k_ceramic))+Ts);//[degree Celcius]
+disp("degree Celcius",T1,"The Interface temperature is")
+T_wire=T1+((e_gen*(r1^2))/(4*k_wire));//[degree Celcius]
+disp("degree Celcius",T_wire,"The temperature at the centreline(r=0) is")
+disp("Thus the temperature of the centreline is slightly above the interface temperature")
\ No newline at end of file |