summaryrefslogtreecommitdiff
path: root/1847/CH2/EX2.36/Ch02Ex36.sce
diff options
context:
space:
mode:
Diffstat (limited to '1847/CH2/EX2.36/Ch02Ex36.sce')
-rwxr-xr-x1847/CH2/EX2.36/Ch02Ex36.sce20
1 files changed, 20 insertions, 0 deletions
diff --git a/1847/CH2/EX2.36/Ch02Ex36.sce b/1847/CH2/EX2.36/Ch02Ex36.sce
new file mode 100755
index 000000000..66f0c63de
--- /dev/null
+++ b/1847/CH2/EX2.36/Ch02Ex36.sce
@@ -0,0 +1,20 @@
+// Scilab Code Ex2.36:: Page-2.27 (2009)
+clc; clear;
+t = 4.5e-05; // Thickness of the soap film, cm
+mu = 1.33; // Refractive index of the soap film
+i = 45; // Angle of incidence of the light ray on the soap film, degrees
+// As mu = sind(i)/sind(r), solving for r
+r = asind(sind(i)/mu);
+// For dark fringe in reflected pattern,
+// 2*mu*t*cosd(r) = n*lambda, solving for lambda for different n's
+lambda = zeros(4);
+for n = 1:1:4
+ lambda(n) = 2*mu*t*cosd(r)/n; // Wavelengths for n = 1, 2, 3 and 4
+ if lambda(n) > 4000e-008 & lambda(n) < 7500e-008 then
+ lambda_absent = lambda(n);
+ end
+end
+printf("\nThe absent wavelength of reflected light in the visible spectrum = %4.2e", lambda_absent);
+
+// Result
+// The absent wavelength of reflected light in the visible spectrum = 5.07e-05