1 files changed, 19 insertions, 0 deletions
diff --git a/1847/CH2/EX2.34/Ch02Ex34.sce b/1847/CH2/EX2.34/Ch02Ex34.sce
new file mode 100755
index 000000000..866613108
--- /dev/null
+++ b/1847/CH2/EX2.34/Ch02Ex34.sce
@@ -0,0 +1,19 @@
+// Scilab Code Ex2.34:: Page-2.26 (2009)
+clc; clear;
+t = 3.1e-05;    // Thickness of the soap film, cm
+mu = 1.33;      // Refractive index of the soap film
+r = 0;      // Angle of refraction of the light ray on the soap film, degrees
+// For bright fringe in reflected pattern,
+// 2*mu*t*cosd(r) = (2*n+1)*lambda/2
+lambda = zeros(3);  
+for n = 1:1:3
+    lambda(n) = 4*mu*t*cosd(r)/(2*(n-1)+1);     // Wavelengths for n = 1, 2 and 3
+    if lambda(n) > 4000e-008 & lambda(n) < 7500e-008 then
+        lambda_reflected = lambda(n);
+    end
+end
+
+printf("\nThe wavelength reflected strongly from the soap film = %5.3e cm", lambda_reflected);
+
+// Result
+// The wavelength reflected strongly from the soap film = 5.497e-05 cm