blob: c723347b98ad5505d536e978b0609af008da99a6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
clear;
clc;
printf('FUNDAMENTALS OF HEAT AND MASS TRANSFER \n Incropera / Dewitt / Bergman / Lavine \n EXAMPLE 12.8 Page 761 \n')// Example 12.8
// Total emissivity of cover glass to solar radiation
T = 5800 ;//[K] temperature of surface
e = .8;
stfncnstt = 5.67*10^-8; //[W/m^2.K^4] Stefan-Boltzmann constant
//From Table 12.1
//For wl1 = .3 micro-m and T = 5800 K, At wl1*T = 1740 micro-m.K
F0wl1 = .0335;
//For wl1 = .3 micro-m and T = 5800 K, At wl2*T = 14500 micro-m.K
F0wl2 = .9664;
//Hence from equation 12.29
t = .90*[F0wl2 - F0wl1];
printf('\n Total emissivity of cover glass to solar radiation = %.2f',t);
|
