initial commit / add all books

3 files changed, 58 insertions, 0 deletions

diff --git a/2216/CH13/EX13.1/ex_13_1.sce b/2216/CH13/EX13.1/ex_13_1.sce
new file mode 100755
index 000000000..2a1e9e3fd
--- /dev/null
+++ b/2216/CH13/EX13.1/ex_13_1.sce
@@ -0,0 +1,31 @@
+//Example 13.1: plot
+clc;
+clear;
+close;
+lod=[0;20;40;60;80;100;160];//in micro meter
+slong=[1.0;0.95;0.92;0.89;0.86;0.83;0.80];//
+lad=[0;10;20;30;40;50;60;70;80;90;100];//in micro meter
+slat=[0;0.1;0.2;0.3;0.4;0.5;0.6;0.7;0.8;0.9;1.0];//
+add=[0;1;2;3;4;5;6;7;8;9;10];//
+sang=[0;0.5;0.6;0.7;0.8;0.9;1.0;1.1;.12];//
+t=0:20:200;
+s1=1.0:-0.03:0.7;//
+subplot(131)
+plot(t,s1);//
+xtitle("Variation of Slong as a function of Δ x (with Δy=0 and Δθ=0) ")
+xlabel("Longitudinal displacement Δ x (micro meter)")
+ylabel("Slong (normalised)")
+t1=0:10:100;
+s2=1:-0.1:0;//
+subplot(132)
+plot(t1,s2);//
+xtitle("Variation of Slat as a function of Δ y (with Δx=0 and Δθ=0) ")
+xlabel("Lateral displacement Δ y (micro meter)")
+ylabel("Slat (normalised)")
+t2=0:1:10;
+s3=1.0:-0.03:0.7;//
+subplot(133)
+plot(t2,s3);//
+xtitle("Variation of Sang as a function of Δ θ (with Δx=0 and Δy=0) ")
+xlabel("Angular displacement Δ θ (deg)")
+ylabel("Sang (normalised)")
diff --git a/2216/CH13/EX13.2/ex_13_2.sce b/2216/CH13/EX13.2/ex_13_2.sce
new file mode 100755
index 000000000..d7aa4bde1
--- /dev/null
+++ b/2216/CH13/EX13.2/ex_13_2.sce
@@ -0,0 +1,14 @@
+//Example 13.2: phase change
+clc;
+clear;
+close;
+format('v',6)
+//given data :
+n=1.45;// index of core
+a=10^-5;// in C^-1
+b=5.1*10^-7;// in C^-1
+lamda=.633*10^-6;// in m
+// formula:- (1/L)*(del_fi/del_T)=((2*PI)/lamda)[(n/L)*(del_L/del_T)+(del_n/del_T)]
+//let we assume a=del_n/del_T, b=(1/L)*(del_L/del_T), c=(1/L)*(del_fi/del_T)
+c=((2*%pi)/lamda)*((n*b)+a);
+disp(c,"phase change,(rad/m°C) = ")
diff --git a/2216/CH13/EX13.3/ex_13_3.sce b/2216/CH13/EX13.3/ex_13_3.sce
new file mode 100755
index 000000000..9e83d80c6
--- /dev/null
+++ b/2216/CH13/EX13.3/ex_13_3.sce
@@ -0,0 +1,13 @@
+//Example 13.3: phase shift
+clc;
+clear;
+close;
+//given data :
+format('e',9)
+L=500;// in m
+D=0.1;//in m
+ohm=7.3*10^-5;// in rad s^-1
+lamda=0.85*10^-6;// in m
+c=3*10^8;// in m/s
+del_fi=(2*%pi*L*D*ohm)/(c*lamda);
+disp(del_fi,"phase shift,del_fi(rad) = ")