summaryrefslogtreecommitdiff
path: root/1949/CH1/EX1.7/1_7.sce
blob: 91fb38b4f7288421d14ef397dad4e7bfa928f465 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Chapter-1,Example 1_7,Page 1-19
clc()

//Given Data:
i=30*%pi/180         //angle of incidence
u=1.43               //Refractive index of a soap film
lam=6*10^-7          //wavelength of light
n=1                  //For minimum thickness

//Calculations:
//u=sin i/sin r      //Snell's law   .So,
r=asin(sin(i)/u)     //angle of reflection

//Now, condition of minima in transmitted system is
//2ut*cos r=(2n-1)lam/2
t=lam/(2*2*u*cos(r))      //minimum thickness of film
printf('Minimum thickness of film is =%.9f m',t)