2 files changed, 29 insertions, 0 deletions
diff --git a/3685/CH18/EX18.1/Ex18_1.sce b/3685/CH18/EX18.1/Ex18_1.sce
new file mode 100644
index 000000000..7e5766770
--- /dev/null
+++ b/3685/CH18/EX18.1/Ex18_1.sce
@@ -0,0 +1,24 @@
+clc
+ho = 12 // Outside convective heat transfer coefficient in W/m^2K 
+x1 = 0.23// Thickness of brick in m
+k1 = 0.98 // Thermal conductivity of brick in W/mK
+x2 = 0.08 // Thickness of foam in m
+k2 = 0.02// Thermal conductivity of foam in W/mK
+x3 = 1.5// Thickness of wood in cm
+k3 = 0.17// Thermal conductivity of wood in W/cmK
+hi = 29// Inside convective heat transfer coefficient in W/m^2K 
+A = 90 // Total wall area in m^2
+to = 22// outside air temperature in degree Celsius
+ti = -2 // Inside air temperature in degree Celsius
+printf("\n Example 18.1\n")
+U = (1/((1/ho)+(x1/k1)+(x2/k2)+(x3*1e-2/k3)+(1/hi)))// Overall heat transfer coefficient
+Q = U*A*(to-ti) // Rate of heat transfer
+R = (1/ho)+(x1/k1)
+t2 = to-Q*R/A // Temperature at inside surface of brick
+
+printf("\n The rate of heat removal is %f W",Q)
+
+printf("\n Temperature at inside surface of brick is %f degree celcius",t2)
+
+//The answers vary due to round off error
+
diff --git a/3685/CH18/EX18.1/Ex18_1.txt b/3685/CH18/EX18.1/Ex18_1.txt
new file mode 100644
index 000000000..6aeaee358
--- /dev/null
+++ b/3685/CH18/EX18.1/Ex18_1.txt
@@ -0,0 +1,5 @@
+ 
+ Example 18.1
+
+ The rate of heat removal is 486.404842 W
+ Temperature at inside surface of brick is 20.281222 degree celcius 
+\ No newline at end of file