5 files changed, 37 insertions, 0 deletions
diff --git a/3020/CH8/EX8.1/ex8_1.sce b/3020/CH8/EX8.1/ex8_1.sce
new file mode 100755
index 000000000..9b53c6417
--- /dev/null
+++ b/3020/CH8/EX8.1/ex8_1.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+ue = 1.553; // Refractive index of extraordinary ray
+uo = 1.544; // Refractive index of the ordinary ray
+lambda = 6e-7; // Wavelength of light in meters
+t = lambda/(4*(ue-uo));
+disp('m',t,'The thickness of the quarter wave plate is') 
diff --git a/3020/CH8/EX8.2/ex8_2.sce b/3020/CH8/EX8.2/ex8_2.sce
new file mode 100755
index 000000000..baa08d3ad
--- /dev/null
+++ b/3020/CH8/EX8.2/ex8_2.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+ue = 1.553; // Refractive index of extraordinary ray
+uo = 1.544; // Refractive index of the ordinary ray
+lambda = 6e-7; // Wavelength of light in meters
+t = lambda/(2*(ue-uo));
+disp('m',t,'The thickness of the half wave plate is')
diff --git a/3020/CH8/EX8.3/ex8_3.sce b/3020/CH8/EX8.3/ex8_3.sce
new file mode 100755
index 000000000..4aebb6e50
--- /dev/null
+++ b/3020/CH8/EX8.3/ex8_3.sce
@@ -0,0 +1,8 @@
+clc;
+clear all;
+ue = 1.486; // Refractive index of extraordinary ray
+uo = 1.658; // Refractive index of the ordinary ray
+lambda = 6e-7; // Wavelength of light in meters
+t = lambda/(4*(uo-ue));
+disp('m',t,'The thickness of the quarter wave plate is') 
+//rounding off value due to scilab
diff --git a/3020/CH8/EX8.4/ex8_4.sce b/3020/CH8/EX8.4/ex8_4.sce
new file mode 100755
index 000000000..2544da946
--- /dev/null
+++ b/3020/CH8/EX8.4/ex8_4.sce
@@ -0,0 +1,8 @@
+clc;
+clear all;
+ue = 1.486; // Refractive index of extraordinary ray
+uo = 1.658; // Refractive index of the ordinary ray
+t = 1.64e-6; // Thickness
+lambda = t*2*(uo-ue);
+disp('m',lambda,'The wavelength of light is')
+//rounding off due to scilab
diff --git a/3020/CH8/EX8.5/ex8_5.sce b/3020/CH8/EX8.5/ex8_5.sce
new file mode 100755
index 000000000..500613f34
--- /dev/null
+++ b/3020/CH8/EX8.5/ex8_5.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+t = 12.5e-6; // Thickness in meters
+d = 0.01; // Difference in principal refractive index (uo-ue)
+lambda = 2*t*d;//The wavelength of light 
+disp('m',lambda,'The wavelength of light is')
+//rounding off due to scilab