summaryrefslogtreecommitdiff
path: root/1026/CH8/EX8.17
diff options
context:
space:
mode:
Diffstat (limited to '1026/CH8/EX8.17')
-rwxr-xr-x1026/CH8/EX8.17/Example8_17.sce43
1 files changed, 21 insertions, 22 deletions
diff --git a/1026/CH8/EX8.17/Example8_17.sce b/1026/CH8/EX8.17/Example8_17.sce
index 99b6e0535..31025b009 100755
--- a/1026/CH8/EX8.17/Example8_17.sce
+++ b/1026/CH8/EX8.17/Example8_17.sce
@@ -1,23 +1,22 @@
-//chapter8,Example8_17,pg 210
-
-grat=1/6000
-
-f=30
-
-n=2
-
-lam1=5770*10^-8
-
-lam2=5460*10^-8
-
-dlam=lam1-lam2
-
-lam=lam2
-
-cos(theta)=sqrt(1-(((n*lam)/grat)^2))
-
-dl=((n*f)/(grat*cos(theta)))*dlam
-
-printf("linear separation of two spectral lines\n")
-
+//chapter8,Example8_17,pg 210
+
+grat=1/6000
+
+f=30
+
+n=2
+
+lam1=5770*10^-8
+
+lam2=5460*10^-8
+
+dlam=lam1-lam2
+
+lam=lam2
+
+theta=acos(sqrt(1-(((n*lam)/grat)^2)))
+dl=((n*f)/(grat*cos(theta)))*dlam
+
+printf("linear separation of two spectral lines\n")
+
printf("dl=%.4f cm",dl) \ No newline at end of file