1 files changed, 16 insertions, 0 deletions
diff --git a/965/CH2/EX2.13/13.sci b/965/CH2/EX2.13/13.sci
new file mode 100644
index 000000000..5cc2a4ccf
--- /dev/null
+++ b/965/CH2/EX2.13/13.sci
@@ -0,0 +1,16 @@
+clc;
+clear all;
+disp("pipe location distance")
+L=1.2;//m thickness of wall
+// temperature of wall surfaces
+t1= 200;// degree C
+t2=60;// degree C
+t= 120;// degree C
+//k= 0.28*(1+0.036*t);// thermal conductivity relation 
+// rate of heat transfer Q= km*(A/L)*(t1-t2)
+// 0.28*(1+(0.036/2)*(200+60))*(A/1.2)*(200-60)=0.28*(1+(0.036/2)*(200+120))*(A/x)*(200-120)
+x=151.42/185.54;//m
+disp("m",x,"the distance at which the pipe should be imbedded from hot surface = ")
+
+
+