1 files changed, 35 insertions, 0 deletions
diff --git a/2471/CH9/EX9.2/Ex9_2.sce b/2471/CH9/EX9.2/Ex9_2.sce
new file mode 100755
index 000000000..4719ebd5d
--- /dev/null
+++ b/2471/CH9/EX9.2/Ex9_2.sce
@@ -0,0 +1,35 @@
+clear ;
+clc;
+// Example 9.2
+printf('Example 9.2\n\n');
+printf('Page No. 255\n\n');
+
+//given
+L_Br = 0.105;// Length of brickwork in m
+L_Bl = 0.100;// Length of blockwork in m
+L_C = 0.05;// Length of cavity in m
+K_Br = 0.84;// Thermal conductivity of brickwork in W/m-K
+K_Bl = 0.22;// Thermal conductivity of blockwork in W/m-K
+K_C_in = 0.033;// Thermal conductivity of insulation in cavity in W/m-K
+R_Ex = 0.055;// Resistance of external surface in W/m^2-K
+
+//As R = L/K
+R_Br = (L_Br/K_Br);// Resistance of brickwork in W/m^2-K
+R_Bl = (L_Bl/K_Bl);// Resistance of blockwork in W/m^2-K
+R_C = 0.18;// Resistance of cavity in W/m^2-K
+
+//Without insulation of cavity
+R_T = 0.938;// Total Resistance in W/m^2-K
+// Thermal transmittance - U = (1/R_T)
+U = (1/R_T);// in W/m^2-K
+printf('The U-value of external wall is %.2f W/sq.m K \n',U)
+
+//With insulation of cavity
+//As R = L/K
+R_C_in = (L_C/K_C_in);// Resistance of insulation in cavity in W/m^2-K
+In = R_C_in - R_C;// Net increase in W/m^2-K
+R_T_New = R_T + In;// New total resistance in W/m^2-K
+// Thermal transmittance - U = (1/R_T)
+U_New = (1/R_T_New);// in W/m^2-K
+printf('The new  U-value is with foamed insulation %.3f W/sq.m K',U_New)
+