summaryrefslogtreecommitdiff
path: root/3869/CH1/EX1.12/Ex1_12.sce
blob: f44d0c1c77dfe52a0e70f2a4aefd6ae210a1cd8b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
clear
//
//
//

//Variable declaration
mew=1.33        //refractive index
i=35*%pi/180      //angle of incidence(radian)
d=5*10**-5            //thickness(cm)
n1=1                  //order 
n2=2                  //order
n3=3                  //order 
n4=4                  //order

//Calculation
r=180/%pi*asin(sin(i)/mew)     //angle of reflection(degrees)
lamda1=2*mew*d*cos(r)/n1            //wavelength of light for 1st order(cm)
lamda2=2*mew*d*cos(r)/n2            //wavelength of light for 2nd order(cm)
lamda3=2*mew*d*cos(r)/n3            //wavelength of light for 3rd order(cm)
lamda4=2*mew*d*cos(r)/n4            //wavelength of light for 4th order(cm)

//Result
printf("\n wavelength of light for 1st order is %0.1f  *10**-5 cm",lamda1*10**5)
printf("\n answer in the book varies due to rounding off errors")
printf("\n wavelength of light for 2nd order is %0.2f  *10**-5 cm",lamda2*10**5)
printf("\n wavelength of light for 3rd order is %0.2f  *10**-5 cm",lamda3*10**5)
printf("\n wavelength of light for 4th order is %0.1f  *10**-5 cm",lamda4*10**5)