summaryrefslogtreecommitdiff
path: root/1172/CH1/EX1.27/Example1_27.sce
diff options
context:
space:
mode:
Diffstat (limited to '1172/CH1/EX1.27/Example1_27.sce')
-rwxr-xr-x1172/CH1/EX1.27/Example1_27.sce20
1 files changed, 20 insertions, 0 deletions
diff --git a/1172/CH1/EX1.27/Example1_27.sce b/1172/CH1/EX1.27/Example1_27.sce
new file mode 100755
index 000000000..1d7cf310e
--- /dev/null
+++ b/1172/CH1/EX1.27/Example1_27.sce
@@ -0,0 +1,20 @@
+clc
+// Given That
+lambda1 = 5.9e-5 // wavelength in cm
+lambda2 = 5.896e-5 //wavelength in cm
+lambda = 5.89e-5 // wavelength in cm
+grating_element = 4000 // lines per cm
+t = 4 // width of grating in cm
+n = 1 // for first order spectrum
+//Sample Problem 27 Page No. 58
+printf("\n # Problem 27 # \n")
+printf(" \n Standard formula used \n lambda / d_lambda = n*N”)\n")
+
+N = t * grating_element
+ Resolv_pow = lambda /(lambda2 - lambda)
+ N = Resolv_pow / n
+
+ if (grating_element > N ) then
+ printf("Grating will well resolve two spectral lines. \n")
+ end
+