summaryrefslogtreecommitdiff
path: root/2510/CH11/EX11.3/Ex11_3.sce
diff options
context:
space:
mode:
Diffstat (limited to '2510/CH11/EX11.3/Ex11_3.sce')
-rwxr-xr-x2510/CH11/EX11.3/Ex11_3.sce9
1 files changed, 9 insertions, 0 deletions
diff --git a/2510/CH11/EX11.3/Ex11_3.sce b/2510/CH11/EX11.3/Ex11_3.sce
new file mode 100755
index 000000000..0af8b179b
--- /dev/null
+++ b/2510/CH11/EX11.3/Ex11_3.sce
@@ -0,0 +1,9 @@
+//Variable declaration:
+syms l //Wavelength (mu.m)
+I = 40*exp(-l**2) //Intensity of radiation (Btu/h.ft^2.mu.m)
+
+//Calculation:
+E = eval(integrate(I, l,0,%inf)) //Total emissive power (Btu/h.ft^2)
+
+//Result:
+printf("The total emissive power is : %.1f Btu/h.ft^2.",E)