//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
//Example 1.4
//OS=Windows XP sp3
//Scilab version 5.5.2
clc;
clear;

//given
A=1e-5;//source area in m^2 
T=2e3;//temperature of the source in K
Epsilon=0.7//emissivity of the surface
Sigma=5.67e-8//value of Stefan's constant in SI Units

W=Epsilon*Sigma*A*T^4//total power radiated from the source in W
mprintf("\n Total power radiated from the source = %.2f W",W);