4 files changed, 49 insertions, 0 deletions
diff --git a/2708/CH5/EX5.1/ex_5_1.sce b/2708/CH5/EX5.1/ex_5_1.sce
new file mode 100755
index 000000000..28b3255cf
--- /dev/null
+++ b/2708/CH5/EX5.1/ex_5_1.sce
@@ -0,0 +1,19 @@
+//Example 5.1 
+clc;
+// 1st part //critical angle
+u1=1.48;// refractive index of cladding
+u2=1.5;// refractive index of core
+u=1;// refractive index of air
+theta=asin(u1/u2);// critical angle in radian
+theta=theta*180/%pi;// to convert in degree
+disp(theta,"critical angle in degree")
+// 2nd part //fractional refractive index
+Fr=(u2-u1)/u2;// fractional refractive index
+Fr=Fr*100;// to convert in percent
+disp(Fr,"fractional refractive index in percentage")
+// 3rd part // acceptance angle
+A=asin(sqrt(u2^2-u1^2));// Acceptance angle in radian
+disp(A,"Acceptance angle in radian")
+// 4th part //numerical aperture
+NA=sin(A);// Numerical aperture
+disp(NA,"Numerical aperture ")
diff --git a/2708/CH5/EX5.2/ex_5_2.sce b/2708/CH5/EX5.2/ex_5_2.sce
new file mode 100755
index 000000000..4e45ee8cb
--- /dev/null
+++ b/2708/CH5/EX5.2/ex_5_2.sce
@@ -0,0 +1,11 @@
+//Example 5.2 
+clc;
+// 1st part // V number
+NA=.22;// Numerical aperture
+a=50/2;// radius of core
+w=.850;//wavelength in um
+V=2*%pi*a*NA/w;// V number
+disp(V,"V number")
+// 2nd part // number of modes
+N=(V^2)/4;// number of modes
+disp(N,"number of modes")
diff --git a/2708/CH5/EX5.3/ex_5_3.sce b/2708/CH5/EX5.3/ex_5_3.sce
new file mode 100755
index 000000000..4e7a151f5
--- /dev/null
+++ b/2708/CH5/EX5.3/ex_5_3.sce
@@ -0,0 +1,9 @@
+//Example 5.3 // refractive index  
+clc;
+// given data
+NA=.22;//Numerical Aperature
+Fr=.012;//Fractional refractive index
+u1=NA/sqrt(Fr*(2-Fr));// refractive index of core
+u2=sqrt(u1^2-NA^2);// refractive index of clad
+disp(u1,"Refractive index of core")
+disp(u2,"Refractive index of clad")
diff --git a/2708/CH5/EX5.4/ex_5_4.sce b/2708/CH5/EX5.4/ex_5_4.sce
new file mode 100755
index 000000000..f257f0872
--- /dev/null
+++ b/2708/CH5/EX5.4/ex_5_4.sce
@@ -0,0 +1,10 @@
+//Example 8.2 // Numerical Aperture & acceptance angle
+clc;
+//given data :
+u1=1.62;//refractive index of core
+u2=1.52;// refractive index of clad
+A=asin(sqrt(u1^2-u2^2));// acceptance angle in radian
+NA=sin(A);// numerical aperture
+A=A*180/%pi;// to convert in degree
+disp(A,"Acceptance angle in degree")
+disp(NA,"Numerical Aperture")