blob: e08a5d6517b667d6f01de9c3750d3736cce881f8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
//Chapter 1 : Wave Optics
clear;
//Variable declaration
lamda=5.1*10**-7 //wavelength
myu=4/3 //refractive index of glass
r=45 //angle in degrees
sin_i=4/5
n=50
//Calculations
sin_r=sin_i/myu
cos_r=(1-sin_r**2)**0.5
t=(n*lamda)/(2*myu*cos_r)/10**-5
//Result
mprintf("Thickness of the film t= %.1f*10**-5 m",t)
|
