blob: c39690689d05d43f815403364cd4450ff4e39ff0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
clear;
clc;
printf('FUNDAMENTALS OF HEAT AND MASS TRANSFER \n Incropera / Dewitt / Bergman / Lavine \n EXAMPLE 12.2 Page 734\n')// Example 12.2
// Total Irradiation
x=[0 5 20 25];
y=[0 1000 1000 0];
clf();
plot2d(x,y,style=5,rect=[0,0,30,1100]);
xtitle("Spectral Distribution", "wavelength (micro-m)", "G (W/m^2.micro-m)");
//By Equation 12.4
G = 1000*(5-0)/2+1000*(20-5)+1000*(25-20)/2;
printf("\n G = %i W/m^2",G);
//END
|
