1 files changed, 20 insertions, 0 deletions
diff --git a/534/CH1/EX1.1/1_1_Wall_Heat_Loss.sce b/534/CH1/EX1.1/1_1_Wall_Heat_Loss.sce
new file mode 100644
index 000000000..e92a71d6a
--- /dev/null
+++ b/534/CH1/EX1.1/1_1_Wall_Heat_Loss.sce
@@ -0,0 +1,20 @@
+clear;
+clc;
+printf('FUNDAMENTALS OF HEAT AND MASS TRANSFER \n Incropera / Dewitt / Bergman / Lavine \n EXAMPLE 1.1   Page 5 ')//Example 1.1
+// Find Wall Heat Loss - Problem of Pure Conduction Unidimensional Heat
+
+L=.15;    //[m] - Thickness of conducting wall
+delT = 1400 - 1150;  //[K] - Temperature Difference across the Wall
+A=.5*1.2; //[m^2] - Cross sectional Area of wall = H*W
+k=1.7;    //[W/m.k] - Thermal Conductivity of Wall Material
+
+//Using Fourier's Law eq 1.2
+Q = k*delT/L;    //[W/m^2] - Heat Flux
+
+q = A*Q;          //[W] - Rate of Heat Transfer  
+
+printf("\n \n Heat Loss through the Wall = %.2f W",q);
+//END
+
+
+