summaryrefslogtreecommitdiff
path: root/2411/CH5/EX5.2/Ex5_2.sce
diff options
context:
space:
mode:
Diffstat (limited to '2411/CH5/EX5.2/Ex5_2.sce')
-rwxr-xr-x2411/CH5/EX5.2/Ex5_2.sce9
1 files changed, 9 insertions, 0 deletions
diff --git a/2411/CH5/EX5.2/Ex5_2.sce b/2411/CH5/EX5.2/Ex5_2.sce
new file mode 100755
index 000000000..ee6e87426
--- /dev/null
+++ b/2411/CH5/EX5.2/Ex5_2.sce
@@ -0,0 +1,9 @@
+// Scilab Code Ex5.2: Page-284 (2008)
+clc; clear;
+lambda_m = 4753e-010; // Wavelength from the sun at which maximum energy is emitted, m
+b = 2.88e-003; // Wein's constant, m-K
+T = b/lambda_m; // Temperature of the surface of sun
+printf("\nThe temperature of the surface of sun = %d K", ceil(T));
+
+// Result
+// The temperature of the surface of sun = 6060 K \ No newline at end of file