blob: 20fa4ac649bbe94d11638fe9313fc7da02257acb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
// Scilab Code Ex4.14:: Page-4.24 (2009)
clc; clear;
mu_o = 1.55; // Refractive index of ordinary wave
mu_e = 1.52; // Refractive index of extraordinary wave
lambda = 5500e-008; // Wavelength of light used, m
// As for a half wave plate, (mu_o - mu_e)*t = lambda/4, solving for t
t = lambda/(4*(mu_o - mu_e)); // The thickness of a quarter wave plate for wavelength, cm
printf("\nThe thickness of a quarter wave plate for wavelength = %4.2e cm", t);
// Result
// The thickness of a quarter wave plate for wavelength = 4.58e-004 cm
|
