blob: 8abd5be0ce75141be973ddb1c11323bd012ba906 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
//Example 1.4, Page Number 29
//Total Power Calculation
clc;
em=0.7 //Emissivity Of the Surface
T=2000 //Temperature in Kelvin
A=(10**-5) //Area in Meter Square
S=5.67*(10**-8) //Stefan-Boltzmann Constant in Watt per meter square Kelvin power four
W=em*S*A*(T**4) //W is the total power radiated in Watt
mprintf("The Total Power Radiated from the Source is %.2f W",W);
|