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/CH1/EX1.9/example1_9.sce | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 587/CH1/EX1.9/example1_9.sce

(limited to '587/CH1/EX1.9')

diff --git a/587/CH1/EX1.9/example1_9.sce b/587/CH1/EX1.9/example1_9.sce
new file mode 100755
index 000000000..3fba653e8
--- /dev/null
+++ b/587/CH1/EX1.9/example1_9.sce
@@ -0,0 +1,15 @@
+clear;
+clc;
+
+//Example1.9[Radiation Effect on Thermal Comfort]
+//Given:-
+T_room=22+273;//Temperature fo room[K]
+T_wntr=10+273;//Average Temperature of inner surfaces of walls,floors and the cieling in winter[K]
+T_smmr=25+273;//Average Temperature of inner surfaces of walls,floors and the cieling in summer[K]
+T_outr=30+273;//Average outer surface temperature of the person[K]
+A=1.4;//The exposed surface area[m^2]
+e=0.95;//Emissivity of person
+sigma=5.67*(10^(-8));//Stefan's constant
+Q_rad_wntr=e*sigma*A*((T_outr^4)-(T_wntr^4));//[W]
+Q_rad_smmr=e*sigma*A*((T_outr^4)-(T_smmr^4));//[W]
+disp("W",Q_rad_smmr,"and",round(Q_rad_wntr),"The net rates of radiation heat transfer from the body to the surrounding walls,ceiling, and floor in winter and summer are respectively")
-- 
cgit