summaryrefslogtreecommitdiff
path: root/3828/CH1/EX1.6/Ex1_6.sce
blob: d66143f77c964388b5ecde989b633f386bbcabdf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//Chapter 1 : Wave Optics

clear;

//Variable declaration
lamda=5890*10**-10   //wavelength
myu=1.5              //refractive index of glass
n=1                  //first minimum
r=60                 //angle in degrees

//Calculations
t=(n*lamda)/(2*myu*0.5)/10**-7

//Result
mprintf("Thickness of the film t= %.3f*10**-4 mm",t)