1 files changed, 14 insertions, 0 deletions
diff --git a/1958/CH9/EX9.2/Chapter9_example2.sce b/1958/CH9/EX9.2/Chapter9_example2.sce
new file mode 100755
index 000000000..ce6b13ed7
--- /dev/null
+++ b/1958/CH9/EX9.2/Chapter9_example2.sce
@@ -0,0 +1,14 @@
+clc
+clear
+//Input data
+r=1.39//Refractive index of the film 
+q=30//Angle observed in degrees
+w=[5125,5000]//Wavelengths of two consecutive dark bands in Angstrom
+
+//Calculations
+r1=asind(sind(q)/r)//Angle of reflection in degrees
+n=w(2)/(w(1)-w(2))//Constant value
+t=((n*w(1)*10^-8)/(2*r*cosd(r1)))/10^-4//Thickness of the film in cm *10^-4
+
+//Output
+printf('Thickness of the film is %3.4f *10^-4 cm',t)