summaryrefslogtreecommitdiff
path: root/1871/CH4/EX4.23/Ch04Ex23.sce
diff options
context:
space:
mode:
Diffstat (limited to '1871/CH4/EX4.23/Ch04Ex23.sce')
-rwxr-xr-x1871/CH4/EX4.23/Ch04Ex23.sce20
1 files changed, 20 insertions, 0 deletions
diff --git a/1871/CH4/EX4.23/Ch04Ex23.sce b/1871/CH4/EX4.23/Ch04Ex23.sce
new file mode 100755
index 000000000..1c2f4477e
--- /dev/null
+++ b/1871/CH4/EX4.23/Ch04Ex23.sce
@@ -0,0 +1,20 @@
+// Scilab code Ex4.23 : Pg:159 (2008)
+clc;clear;
+a = 1; // Assume amplitude of the wave from coherent sources to be unity
+D = 1; // The distance between the slits and the screen, m
+d = 5e-004/2; // Half the separation between two slits, m
+mu = 1.5; // The refractive index of glass plate
+t = 1.5e-006; // Thickness of glass plate, m
+lambda = 5000e-010; // Wavelength of light used, m
+x0 = D/(2*d)*(mu - 1)*t; // The lateral shift of central fringe, m
+delta = (mu - 1)*t; // Path difference created due to the introduction of the thin glass plate, m
+kro_delta = 2*%pi/lambda*delta; // Phase difference, rad
+a1 = a, a2 = a; // Amplitude of waves from coherent sources
+I = a1^2 + a2^2 + 2*a1*a2*cos(kro_delta); // Intensity of central fringe
+printf("\nThe lateral shift of central fringe = %4.2f cm", x0*100);
+printf("\nThe intensity of central fringe = %d", I);
+
+// Result
+// The lateral shift of central fringe = 0.15 cm
+// The intensity of central fringe = 0
+// The first answer is given wrong in the textbook \ No newline at end of file