6 files changed, 82 insertions, 0 deletions
diff --git a/2072/CH24/EX24.1/EX24_1.sce b/2072/CH24/EX24.1/EX24_1.sce
new file mode 100755
index 000000000..943cd0a5a
--- /dev/null
+++ b/2072/CH24/EX24.1/EX24_1.sce
@@ -0,0 +1,17 @@
+//Chapter 24
+clc
+//Example 1
+//given
+L=1.2 // Seperation between screen and double-slit in meter
+d=3*10^-5 //distance between the two slits
+m=2 //second order bright fringe
+Y=4.5*10^-2 //distance of second order bright fringe from centerline
+//wavelength of light
+lambda=(Y*d)/(m*L)
+disp(lambda,"(A)  wavelength of light in meters")
+//distance between adjacent bright fringes
+//delta_Y=Y(m+1)-Ym
+delta_Y=lambda*L/d
+disp(delta_Y,"(B)  Distance between adjacent fringes in meters")
+
+
diff --git a/2072/CH24/EX24.2/EX24_2.sce b/2072/CH24/EX24.2/EX24_2.sce
new file mode 100755
index 000000000..aa3dc7989
--- /dev/null
+++ b/2072/CH24/EX24.2/EX24_2.sce
@@ -0,0 +1,11 @@
+errcatch(-1,"stop");mode(2);//Chapter 24
+clc
+//Example 2
+//given
+n=1.33 //refractive index of soap bubble
+lambda=602 //wavelength of light in nm
+//for constructive interference we have 2nt=lambda/2
+t=lambda/(4*n)
+disp(t,"Minimum thickness of soap bubble film in nm is")
+
+
diff --git a/2072/CH24/EX24.3/EX24_3.sce b/2072/CH24/EX24.3/EX24_3.sce
new file mode 100755
index 000000000..fb1adbe31
--- /dev/null
+++ b/2072/CH24/EX24.3/EX24_3.sce
@@ -0,0 +1,11 @@
+//Chapter 24
+clc
+//Example 3
+//given
+n=1.45 //refractive index of silicon monoxide
+lambda=552 //wavelength of light in nm
+//for destructive interference we have condition for minimn thickness 2t=lambda/2n
+t=lambda/(4*n)
+disp(t,"Minimum thickness of  film in nm is")
+
+
diff --git a/2072/CH24/EX24.5/EX24_5.sce b/2072/CH24/EX24.5/EX24_5.sce
new file mode 100755
index 000000000..a235639cb
--- /dev/null
+++ b/2072/CH24/EX24.5/EX24_5.sce
@@ -0,0 +1,10 @@
+//Chapter 24
+clc
+//Example 5
+//given
+n=1.6 //refractive index of plastic transparent layer
+lambda=780 //wavelength of laser light in nm
+//for destructive interference we have condition for minimn thickness 2t=lambda/2n
+t=lambda/(4*n)
+disp(t,"Pit depth in a CD in nm is")
+
diff --git a/2072/CH24/EX24.6/EX24_6.sce b/2072/CH24/EX24.6/EX24_6.sce
new file mode 100755
index 000000000..bf2759d32
--- /dev/null
+++ b/2072/CH24/EX24.6/EX24_6.sce
@@ -0,0 +1,15 @@
+//Chapter 24
+clc
+//Example 6
+//given
+lambda=580*10^-9 //wavelength of incident light in meter
+a=0.30*10^-3 //slit width in meter
+L=2 //distance of screen from slit in meters
+//The first dark fringe corresponds to m=+1 or -1
+m=1
+sin_theta=m*lambda/a
+//From fig 24.16 tan_theta=y/L and since theta is very small we have sin_theta=tan_theta hence sin_theta=y/L
+y=L*sin_theta 
+disp(y," Position of first dark fringe in meters is")
+
+
diff --git a/2072/CH24/EX24.7/EX24_7.sce b/2072/CH24/EX24.7/EX24_7.sce
new file mode 100755
index 000000000..5d5ce6639
--- /dev/null
+++ b/2072/CH24/EX24.7/EX24_7.sce
@@ -0,0 +1,18 @@
+//Chapter 24
+clc
+//Example 7
+//given
+lambda=632.8 //wavelength of monochromatic light from helium-neon laser in meter
+a=6000 //lines in diffraction grating per cm
+d=10^7/a//slit seperation in nm
+//for the first order maximum we have m=1
+sin_theta1=lambda/d
+theta1=asind(sin_theta1)
+disp(theta1,"Angle in degrees at which first order maxima is observed is ")
+//for the second order maximum we have m=2
+sin_theta2=2*lambda/d
+theta2=asind(sin_theta2)
+disp(theta2,"Angle in degrees at which second order maxima is observed is ")
+disp("for higher order number of diffraction the the solutions are non realistic")
+
+