summaryrefslogtreecommitdiff
path: root/1847/CH2/EX2.18/Ch02Ex18.sce
diff options
context:
space:
mode:
Diffstat (limited to '1847/CH2/EX2.18/Ch02Ex18.sce')
-rwxr-xr-x1847/CH2/EX2.18/Ch02Ex18.sce16
1 files changed, 16 insertions, 0 deletions
diff --git a/1847/CH2/EX2.18/Ch02Ex18.sce b/1847/CH2/EX2.18/Ch02Ex18.sce
new file mode 100755
index 000000000..0d4c4f517
--- /dev/null
+++ b/1847/CH2/EX2.18/Ch02Ex18.sce
@@ -0,0 +1,16 @@
+// Scilab Code Ex2.18:: Page-2.15 (2009)
+clc; clear;
+mu = 1.5; // Refractive index of biprism
+lambda = 6600e-008; // Wavelength of light used, cm
+y1 = 40; // Distance of biprism from the source, cm
+y2 = 175; // Distance of biprism from the screen, cm
+D = y1 + y2; // Distance between slits and the screen, cm
+b = 0.04; // Fringe width of the interfernce pattern due to biprism, cm
+// As d = 2*(mu-1)*alpha*y1, solving for alpha
+alpha = lambda*D/(b*2*(mu-1)*y1) // Acute angle of the biprism, radian
+theta = (%pi-2*alpha); // Vertex angle of the biprism, radian
+
+printf("\nThe vertex angle of the biprism = %6.2f degrees", theta*180/%pi);
+
+// Result
+// The vertex angle of the biprism = 178.98 degrees