blob: 42b508c31068656ed087d1e4c03de745a6e7eab7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
//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);
|
