summaryrefslogtreecommitdiff
path: root/3411/CH7/EX7.2/Ex7_2.sce
diff options
context:
space:
mode:
Diffstat (limited to '3411/CH7/EX7.2/Ex7_2.sce')
-rw-r--r--3411/CH7/EX7.2/Ex7_2.sce13
1 files changed, 13 insertions, 0 deletions
diff --git a/3411/CH7/EX7.2/Ex7_2.sce b/3411/CH7/EX7.2/Ex7_2.sce
new file mode 100644
index 000000000..35c08b0ce
--- /dev/null
+++ b/3411/CH7/EX7.2/Ex7_2.sce
@@ -0,0 +1,13 @@
+//Example 7_2
+clc();
+clear;
+//To find the fraction of initial intensity
+alpha=-2.2
+l=2 //units in KM
+//Case (a) when L=2
+It_I0=10^(alpha*l/10)
+printf("The fraction of initial intensity left when L=2 It/I0=%.3f\n",It_I0)
+//Case (b) when L=6
+l=6 //units in KM
+It_I0=10^(alpha*l/10)
+printf("The fraction of initial intensity left when L=6 It/I0=%.3f\n",It_I0)