diff options
Diffstat (limited to '1847/CH4/EX4.12/Ch04Ex12.sce')
| -rwxr-xr-x | 1847/CH4/EX4.12/Ch04Ex12.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/1847/CH4/EX4.12/Ch04Ex12.sce b/1847/CH4/EX4.12/Ch04Ex12.sce new file mode 100755 index 000000000..ff5f86759 --- /dev/null +++ b/1847/CH4/EX4.12/Ch04Ex12.sce @@ -0,0 +1,12 @@ +// Scilab Code Ex4.12:: Page-4.23 (2009)
+clc; clear;
+lambda = 5893e-008; // Wavelength of light used, m
+t = 0.005; // Thickness of the crystal, cm
+// As for quarter wave plate, mu_diff*t = (mu_o - mu_e)*t = lambda/4, solving for mu_diff
+mu_diff = lambda/(4*t); // The difference in refractive indices of rays, cm
+printf("\nThe least thickness of plate for which emergent beam is plane polarised = %4.2e cm", mu_diff);
+
+// Result
+// The least thickness of plate for which emergent beam is plane polarised = 2.95e-003 cm
+
+
|