summaryrefslogtreecommitdiff
path: root/3710/CH1/EX1.4/Ex1_4.sce
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);