summaryrefslogtreecommitdiff
path: root/551/CH15/EX15.23/23.sce
blob: 370715ca35e33275230e629ddb6288c6d7119bcb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clc
A=0.12; //m^2
T=800; //K
a=5.67*10^(-8);

disp("(i) The total rate of energy emission =")
Eb=a*A*T^4;
disp(Eb)
disp("W")


disp("(ii) The intensity of normal radiation =")
Ibn=a*T^4/%pi;
disp(Ibn)
disp("W/m^2.sr")


disp("(iii) The wavelength of maximum monochromatic emissive power =")
wavelength=2898/T;
disp(wavelength)
disp("μm")