summaryrefslogtreecommitdiff
path: root/3869/CH1/EX1.28/Ex1_28.sce
blob: d98865686acad38205d85318d002f9ec20f68e67 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clear
//
//
//

//Variable declaration
i=60*%pi/180       //angle of incidence(radian)
mew=1.33          //refractive index
t=1.5*10**-6      //thickness(m)
lamda=5*10**-7    //wavelength(m)

//Calculation
r=(180/%pi)*asin(sin(i)/mew)     //angle of reflection(degrees)
r=(r)*%pi/180            //angle of reflection(degrees)

n=2*mew*t*cos(r)/lamda                    //order of interference

//Result
printf("\n order of interference is %0.3f  ",n)