10 files changed, 115 insertions, 0 deletions
diff --git a/24/CH37/EX37.1/Example37_1.sce b/24/CH37/EX37.1/Example37_1.sce
new file mode 100755
index 000000000..7ec34c8ff
--- /dev/null
+++ b/24/CH37/EX37.1/Example37_1.sce
@@ -0,0 +1,18 @@
+exec('degree_rad.sci', -1)
+
+//Given that
+lambda = 650*10^-9  //in meter
+theta = dtor(15)  //in radians
+
+//Sample Problem 37-1a
+printf("**Sample Problem 37-1a**\n")
+//We know that [a*sin(theta) = m*lambda] for m=Integer
+m = 1
+a = m*lambda/sin(theta)
+printf("The slit width is equal to %fnm\n", a*10^9)
+
+//Sample Problem 37-1b
+printf("\n**Sample Problem 37-1b**\n")
+m = 3/2  //for first side maxima
+lambdaDESH = a*sin(theta)/ m
+printf("The wavelength of the light is equal to %fnm", lambdaDESH*10^9)
+\ No newline at end of file
diff --git a/24/CH37/EX37.1/Example37_1_result.txt b/24/CH37/EX37.1/Example37_1_result.txt
new file mode 100755
index 000000000..623b78cae
--- /dev/null
+++ b/24/CH37/EX37.1/Example37_1_result.txt
@@ -0,0 +1,5 @@
+**Sample Problem 37-1a**
+The slit width is equal to 2511.407148nm
+
+**Sample Problem 37-1b**
+The wavelength of the light is equal to 433.333333nm 
+\ No newline at end of file
diff --git a/24/CH37/EX37.2/Example37_2.sce b/24/CH37/EX37.2/Example37_2.sce
new file mode 100755
index 000000000..952aa3218
--- /dev/null
+++ b/24/CH37/EX37.2/Example37_2.sce
@@ -0,0 +1,11 @@
+//Sample Problem 37-2
+printf("**Sample Problem 37-2**\n")
+I = [];
+for m = 1:3
+   theta = (m+.5)*%pi
+      I = [I, (sin(theta)/theta)^2]
+end
+printf("The intensities of secondary maximas relative to intensity of CBF is-\n")
+printf("\tI1/Im = %.4f\n", I(1))
+printf("\tI2/Im = %.4f\n", I(2))
+printf("\tI3/Im = %.4f", I(3))
+\ No newline at end of file
diff --git a/24/CH37/EX37.2/Example37_2_result.txt b/24/CH37/EX37.2/Example37_2_result.txt
new file mode 100755
index 000000000..f6481b5df
--- /dev/null
+++ b/24/CH37/EX37.2/Example37_2_result.txt
@@ -0,0 +1,5 @@
+**Sample Problem 37-2**
+The intensities of secondary maximas relative to intensity of CBF is-
+	I1/Im = 0.0450
+	I2/Im = 0.0162
+	I3/Im = 0.0083 
+\ No newline at end of file
diff --git a/24/CH37/EX37.3/Example37_3.sce b/24/CH37/EX37.3/Example37_3.sce
new file mode 100755
index 000000000..7277f7842
--- /dev/null
+++ b/24/CH37/EX37.3/Example37_3.sce
@@ -0,0 +1,14 @@
+//Given that
+d = 32*10^-3  //in meter
+f= 24*10^-2  //in meter
+lam = 550*10^-9  //in meter
+
+//Sample Problem 37-3a
+printf("**Sample Problem 37-3a**\n")
+theta = 1.22*lam/d
+printf("Angular sepration should be equal to %erad\n", theta)
+
+//Sample Problem 37-3b
+printf("\n**Sample Problem 37-3b**\n")
+deltaX = f*theta
+printf("The sepration between the two images is %em", deltaX)
+\ No newline at end of file
diff --git a/24/CH37/EX37.3/Example37_3_result.txt b/24/CH37/EX37.3/Example37_3_result.txt
new file mode 100755
index 000000000..916cdda74
--- /dev/null
+++ b/24/CH37/EX37.3/Example37_3_result.txt
@@ -0,0 +1,5 @@
+**Sample Problem 37-3a**
+Angular sepration should be equal to 2.096875e-005rad
+
+**Sample Problem 37-3b**
+The sepration between the two images is 5.032500e-006m 
+\ No newline at end of file
diff --git a/24/CH37/EX37.4/Example37_4.sce b/24/CH37/EX37.4/Example37_4.sce
new file mode 100755
index 000000000..85daa3b73
--- /dev/null
+++ b/24/CH37/EX37.4/Example37_4.sce
@@ -0,0 +1,14 @@
+//Given that
+l = 405*10^-9  //in meter
+d = 19.44*10^-6  //in meter
+a = 4.050*10^-6  //in meter
+
+//Sample Problem 37-4a
+printf("**Sample Problem 37-4a**\n")
+n = floor(d/a)
+printf("The number of bright fringes are %d\n", 2*n+1)
+
+//Sample Problem 37-4b
+printf("\n**Sample Problem 37-4b**\n")
+num = ceil(2*d/a)
+printf("The number of bright fringes within either of the first side peak is %d", num/2 - 1)
+\ No newline at end of file
diff --git a/24/CH37/EX37.4/Example37_4_result.txt b/24/CH37/EX37.4/Example37_4_result.txt
new file mode 100755
index 000000000..226cf85ff
--- /dev/null
+++ b/24/CH37/EX37.4/Example37_4_result.txt
@@ -0,0 +1,5 @@
+**Sample Problem 37-4a**
+The number of bright fringes are 9
+
+**Sample Problem 37-4b**
+The number of bright fringes within either of the first side peak is 4 
+\ No newline at end of file
diff --git a/24/CH37/EX37.5/Example37_5.sce b/24/CH37/EX37.5/Example37_5.sce
new file mode 100755
index 000000000..d161a2088
--- /dev/null
+++ b/24/CH37/EX37.5/Example37_5.sce
@@ -0,0 +1,30 @@
+exec('degree_rad.sci', -1)
+
+//Given that
+N = 1.26*10^4
+w = 25.4*10^-3  //in meter
+l1 = 589*10^-9  //in meter
+l2 = 589.59*10^-9  //in meter
+
+//Sample Problem 37-5a
+printf("**Sample Problem 37-5a**\n")
+d = w/N
+m = 1
+theta = asin(m*l1/d)
+theta = rtod(theta)
+printf("The first order maxima occurs at an angle of %fdegree from the center\n", theta)
+
+//Sample Problem 37-5b
+printf("\n**Sample Problem 37-5b**\n")
+theta = rtod(theta)
+D = m/(d*cos(theta))
+deltaL = l2-l1
+deltaTHETA = D*deltaL
+printf("The anglar sepration between the two first orderlines is %erad\n", deltaTHETA)
+
+//Sample Problem 37-5c
+printf("\n**Sample Problem 37-5c**\n")
+Lavg = (l1+l2)/2
+R = Lavg/(m*deltaL)
+N = R/m
+printf("The least number of rulings a grating can have is %d", N)
+\ No newline at end of file
diff --git a/24/CH37/EX37.5/Example37_5_result.txt b/24/CH37/EX37.5/Example37_5_result.txt
new file mode 100755
index 000000000..2927f4bb3
--- /dev/null
+++ b/24/CH37/EX37.5/Example37_5_result.txt
@@ -0,0 +1,8 @@
+**Sample Problem 37-5a**
+The first order maxima occurs at an angle of 16.988581degree from the center
+
+**Sample Problem 37-5b**
+The anglar sepration between the two first orderlines is 3.372079e-004rad
+
+**Sample Problem 37-5c**
+The least number of rulings a grating can have is 998
+\ No newline at end of file