diff options
Diffstat (limited to '1309/CH11/EX11.5/ch11_5.sce')
| -rwxr-xr-x | 1309/CH11/EX11.5/ch11_5.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/1309/CH11/EX11.5/ch11_5.sce b/1309/CH11/EX11.5/ch11_5.sce new file mode 100755 index 000000000..d9237a5d1 --- /dev/null +++ b/1309/CH11/EX11.5/ch11_5.sce @@ -0,0 +1,12 @@ +clc; +clear; +printf("\t\t\tChapter11_example5\n\n\n"); +// Estimation of the surface temperature of the sun and the emitted heat flux +lambda_max=0.5e-6; // maximum wavelength in m +// From Wien’s Displacement Law we can write lambda_max*T=2.898e-3 m.K +T=2.898e-3/lambda_max; +printf("\nThe Surface Temperature of the Sun is %d K",T); +// The heat flux is given by the Stefan-Boltzmann Equation as q=sigma*T^4 +sigma=5.675e-8; // value of Stefan-Boltzmann constant in W/(m^2.K^4) +q=sigma*T^4; +printf("\nThe heat flux emitted is %.3e W/sq.m",q); |