From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 587/CH3/EX3.3/example3_3.sce | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 587/CH3/EX3.3/example3_3.sce

(limited to '587/CH3/EX3.3')

diff --git a/587/CH3/EX3.3/example3_3.sce b/587/CH3/EX3.3/example3_3.sce
new file mode 100755
index 000000000..fffe46cb8
--- /dev/null
+++ b/587/CH3/EX3.3/example3_3.sce
@@ -0,0 +1,30 @@
+clear;
+clc;
+
+//Example3.3[:Heat Loss through double pane windows]
+//Given:-
+k_g=0.78;//Thermal conductitvity of glass [W/m.K]
+k_a=0.026;//Thermal conductivity of air space[W/m.K]
+L_g=.004;//Thickness of glass layer[m]
+L_a=0.01;//Thickness of air space[m]
+h_in=10;//ConvectionHeat transfer coefficient on the inner surface of the window[W/m^2]
+h_out=40;//ConvectionHeat transfer coefficient on the outer surface of the window[W/m^2]
+T_1=20;//Outer wall Temperature [degree Celcius]
+T_2=-10;//Inner wall Temperature [degree Celcius]
+//Solution:-
+A=(0.8*1.5);//Area of glass window[m^2]
+//Convection Resistances
+R_conv1=1/(h_in*A);//Due to convection heat transfer between inner atmosphere and glass[degree Celcius/W]
+R_conv2=1/(h_out*A);//Due to convection heat transfer between outer atmosphere and glass[degree Celcius/W]
+//Conduction Resistances
+R_cond1=L_g/(k_g*A);//Due to conduction heat transfer through the glass[degree Celcius/W]
+R_cond2=R_cond1;//Glass Medium is seperated by air spac hence two glass mediums are created[degree Celcius/W]
+R_cond3=L_a/(k_a*A);//Due to conduction heat transfer through the air space[degree Celcius/W]
+//Net Resistance offered by window is the sum of all the individual resistances written in the oreder of their occurence
+R_total=R_conv1+R_cond1+R_cond2+R_cond3+R_conv2;//[degree Celcius/W]
+disp("degree Celcius/W",R_total,"The net resistance offered is")
+Q_=(T_1-T_2)/R_total;//[W]
+disp("W",Q_,"The steady rate of Heat transfer through the window is")
+//Inner surface temperature of the window is given by
+T1=T_1-(Q_*R_conv1);//[degree Celcius]
+disp("degree Celcius",T1,"Inner Surface Temperature of the window is")
\ No newline at end of file
-- 
cgit