diff options
Diffstat (limited to '587/CH1/EX1.9/example1_9.sce')
| -rwxr-xr-x | 587/CH1/EX1.9/example1_9.sce | 15 |
1 files changed, 15 insertions, 0 deletions
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")
|