summaryrefslogtreecommitdiff
path: root/1871/CH4/EX4.25/Ch04Ex25.sce
blob: 1f107cf89b2b4f8d77ea90aaf26e33e4915ebce3 (plain)
1
2
3
4
5
6
7
8
9
10
11
// Scilab code Ex4.25 : Pg:167 (2008)
clc;clear;
lambda = 5880e-008;    // Wavelength of light, cm
mu = 1.5;    // Refractive index of mica
r = 60;    // Angle of reflection in the plate, degree
n = 1;    // Order of fringes for the smallest thickness
t = n*lambda/(2*mu*cosd(r));    // The smallest thickness of the glass plate, cm
printf("\nThe smallest thickness of the glass plate = %4.0f angstrom", t/1e-008);

// Result 
// The smallest thickness of the glass plate = 3920 angstrom