summaryrefslogtreecommitdiff
path: root/1871/CH4/EX4.27/Ch04Ex27.sce
blob: b7125f39af802097b8154981906638ec680eded9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
// Scilab code Ex4.27 : Pg:167 (2008)
clc;clear;
lambda = 5890e-008;    // Wavelength of light, cm
mu = 1.5;    // Refractive index of oil
i = 30;    // Angle of incidence, degree
n = 8;    // Order of dark band
sin_r = sind(i)/mu;    // Sine of angle of reflection from Snell's Law, degree
cos_r = sqrt(1-sin_r^2);    // Cosine of angle of reflection from the trigonometric identity, degree
t = n*lambda/(2*mu*cos_r);    // The thickness of the oil film, cm
printf("\nThe thickness of the oil film = %5.3e cm", t);

// Result 
// The thickness of the oil film = 1.666e-004 cm