initial commit / add all books

5 files changed, 94 insertions, 0 deletions

diff --git a/2216/CH9/EX9.1/ex_9_1.sce b/2216/CH9/EX9.1/ex_9_1.sce
new file mode 100755
index 000000000..ce70445c4
--- /dev/null
+++ b/2216/CH9/EX9.1/ex_9_1.sce
@@ -0,0 +1,11 @@
+//Example 9.1: The thickness
+clc;
+clear;
+close;
+format('v',7)
+//given data :
+lamda=589.3*10^-9;// in m
+ne=1.553;
+no=1.544;
+x=(lamda/(4*(ne-no)))*10^3;
+disp(x,"The thickness of the a quarter wave plate,x(mm) = ")
diff --git a/2216/CH9/EX9.2/ex_9_2.sce b/2216/CH9/EX9.2/ex_9_2.sce
new file mode 100755
index 000000000..542cc876a
--- /dev/null
+++ b/2216/CH9/EX9.2/ex_9_2.sce
@@ -0,0 +1,11 @@
+//Example 9.2: The thickness
+clc;
+clear;
+close;
+//given data :
+format('v',7)
+lamda=589.3*10^-9;// in m
+ne=1.486;
+no=1.658;
+x=(lamda/(2*(no-ne)))*10^3;
+disp(x,"The thickness of the a quarter wave plate,x(mm) = ")
diff --git a/2216/CH9/EX9.3/ex_9_3.sce b/2216/CH9/EX9.3/ex_9_3.sce
new file mode 100755
index 000000000..6ff3343f7
--- /dev/null
+++ b/2216/CH9/EX9.3/ex_9_3.sce
@@ -0,0 +1,20 @@
+//Example 9.3:change in refractive index ,net phase shiftand Vpi
+clc;
+clear;
+close;
+format('v',6)
+v=5;//kV
+l=1;//cm
+ez=(v*10^3)/(l*10^-2);//in V/m
+no=1.51;//
+r63=10.5*10^-12;//m/V
+dn=((1/2)*no^3*r63*ez);//
+h=550;//nm
+dfi=((2*%pi*dn*l*10^-2)/(h*10^-9));//
+fi=2*dfi;//
+vpi=((h*10^-9)/(2*no^3*r63))*10^-3;//kV
+disp(dfi,"change in refrative index is")
+disp(fi,"net phase shift is")
+format('v',4)
+disp(vpi,"Vpi in kV is")
+//refractive index and phase shift is in the form of pi in the textbook
diff --git a/2216/CH9/EX9.4/ex_9_4.sce b/2216/CH9/EX9.4/ex_9_4.sce
new file mode 100755
index 000000000..5b4f232e8
--- /dev/null
+++ b/2216/CH9/EX9.4/ex_9_4.sce
@@ -0,0 +1,29 @@
+//Example 9.4:phase difference,additional phase difference and Vpi
+clc;
+clear;
+close;
+format('v',7)
+disp("part (a)")
+h=550;//nm
+l=3;//cm
+no=1.51;//
+ne=1.47;//
+dfi=((2*%pi*l*10^-2*(no-ne))/(h*10^-9));//
+disp(dfi,"phase differnce is")
+//phase difference is in the form of pi in the textbook
+disp("part (b)")
+no=1.51;//
+r63=26.4*10^-12;//m/V
+V=200;//
+d=0.25;//cm
+dfi=((%pi*r63*no^3*(V)*(l*10^-2))/(h*10^-9*d*10^-2));//
+disp(dfi,"additional phase differnce is")
+//additional phase difference is in the form of pi in the textbook
+disp("part (c)")
+r63=26.4*10^-12;//m/V
+format('v',5)
+V=200;//
+d=0.25;//cm
+dfi=((%pi*r63*no^3*(V)*(l*10^-2))/(h*10^-9*d*10^-2));//
+vpi=((h*10^-9)/(no^3*r63))*(d/l);//V
+disp(vpi,"Vpi in V is")
diff --git a/2216/CH9/EX9.5/ex_9_5.sce b/2216/CH9/EX9.5/ex_9_5.sce
new file mode 100755
index 000000000..0100d36e1
--- /dev/null
+++ b/2216/CH9/EX9.5/ex_9_5.sce
@@ -0,0 +1,23 @@
+//Example 9.5: angle and relative intensity
+clc;
+clear;
+close;
+//given data :
+disp("part (a)")
+format('v',5)
+m=1;
+l=633*10^-9;// in m
+f=5*10^6;// in Hz
+v=1500;//in m/s
+n=1.33;// for water
+A=v/f;
+theta=asind((l/(n*A)));
+disp(theta,"angle (degree) =  ")
+disp("part (b)")
+format('v',6)
+del_n=10^-5;
+L=1*10^-2;// in m
+lamda=633*10^-9;// in m
+eta=(%pi^2*del_n^2*L^2)/lamda^2;
+disp(eta,"The relative intensity = ")
+