blob: 4d494575f46c3e7d40b1814a20494783c52b616a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
clear;
clc;
// A Textbook on HEAT TRANSFER by S P SUKHATME
// Chapter 3
// Thermal Radiation
// Example 3.3
// Page 119
printf("Example 3.3, Page 119 \n\n")
a0_2=1; //absorptivity
a2_4=1; //absorptivity
a4_6=0.5; //absorptivity
a6_8=0.5; //absorptivity
a8_=0; //absorptivity
H0_2=0; //Irradiation in W/m^2 um
H2_4=750; //Irradiation in W/m^2 um
H4_6=750; //Irradiation in W/m^2 um
H6_8=750; //Irradiation in W/m^2 um
H8_=750; //Irradiation in W/m^2 um
Absorbed_radiant_flux=1*0*(2-0)+1*750*(4-2)+0.5*750*(8-4)+0;
H = 750*(8-2); //Incident flux
a = Absorbed_radiant_flux/H;
p = 1-a; //Since the surface is opaque
printf("\n Absorbed radiant flux = %d W/m^2",Absorbed_radiant_flux);
printf("\n Incident flux = %d W/m^2",H);
printf("\n Absorptivity = %.3f",a);
printf("\n Since the surface is opaque reflectivity = %.3f",p);
|
