blob: b6ad157f96c8c15ffc354be6892dea633643952e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
clc;
clear all;
disp("rate of energy emmission")
A=0.12;//m^2
T=527+273;// K
sigma=5.67*10^(-8);
Eb=sigma*A*T^4;//W
disp("W",Eb,"The total rate of energy emmision, Eb =")
Ibn=sigma*(T/100)^4/10^(-8);// W/m^2 sr
disp("W/m^2 .sr",Ibn,"Intensity of normal radiation , Ibn =")
lmax=2898/T;//mu.m
disp("mu m",lmax, "Wavelength of maximum monochromatic emmissive power = ")
|
