summaryrefslogtreecommitdiff
path: root/3828/CH3/EX3.4/Ex3_4.sce
blob: ae156440446909745831d3ecb20927477e4dd4c3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Chapter 3 : Polarization

clear;

//Variable declaration
lamda=6000*10**-8       //wavelength
no=1.544                //refractive index of O-ray
ne=1.553                //refractive index of E-ray

//Calculations
t=lamda/(4*(ne-no))/10**-3

//Result
mprintf("Thickness of a quarterwave plate= %.2f*10**-5 m",t)