diff options
Diffstat (limited to '3869/CH1/EX1.12/Ex1_12.sce')
| -rw-r--r-- | 3869/CH1/EX1.12/Ex1_12.sce | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/3869/CH1/EX1.12/Ex1_12.sce b/3869/CH1/EX1.12/Ex1_12.sce new file mode 100644 index 000000000..f44d0c1c7 --- /dev/null +++ b/3869/CH1/EX1.12/Ex1_12.sce @@ -0,0 +1,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) |