summaryrefslogtreecommitdiff
path: root/587/CH2/EX2.19/example2_19.sce
diff options
context:
space:
mode:
Diffstat (limited to '587/CH2/EX2.19/example2_19.sce')
-rwxr-xr-x587/CH2/EX2.19/example2_19.sce15
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