1 files changed, 29 insertions, 0 deletions
diff --git a/1910/CH1/EX1.9/Chapter19.sce b/1910/CH1/EX1.9/Chapter19.sce
new file mode 100755
index 000000000..761767c11
--- /dev/null
+++ b/1910/CH1/EX1.9/Chapter19.sce
@@ -0,0 +1,29 @@
+// Display mode
+mode(0);
+// Display warning for floating point exception
+ieee(1);
+clear;
+clc;
+disp("Introduction to heat transfer by S.K.Som, Chapter 1, Example 9")
+//The Thickness(L) of wall= 150 mm or 0.15 m.
+//The wall on one side is exposed to air at temprature(Ta)= 60°C and on the other side to air at temprature(Tb) = 20°C
+//The average convective heat transfer coefficients are hbr1=40 W/(m^2°C) on the 60°C and hbr2= 10 W/(m^2°C) on 20°C side.
+//The thermal conductivity(k)=.8 W/(m°C)
+L=0.15;
+Ta=60;
+Tb=20;
+hbr1=40;
+hbr2=10;
+k=0.8;
+//Area(A=1 m^2 )since unit surface area is required.
+A=1;
+//The rate of heat transfer per unit surface area of wall is given by (Q/A)=(Ta-Tb)/((1/hbr1*A)+(L/(k*A))+(1/hbr2*A))
+disp("The rate of heat transfer per unit surface area of wall is given by Q/A=(Ta-Tb)/((1/hbr1*A)+(L/(k*A))+(1/hbr2*A))in W/m^2")
+//Let Q/A=F
+F=(Ta-Tb)/((1/hbr1*A)+(L/(k*A))+(1/hbr2*A))
+//The surface tempratures of wall on 60°C side is T1 and on 20°C side is T2
+disp("The surface tempratures of wall on 60°C side is T1 =Ta-(Q/(A*hbr1)) in °C")
+T1 =Ta-(F/hbr1)
+disp("The surface tempratures of wall on 20°C side is T2 =Tb+(Q/(A*hbr2)) in °C")
+T2 =Tb+(F/hbr2)
+