summaryrefslogtreecommitdiff
path: root/1847/CH7
diff options
context:
space:
mode:
Diffstat (limited to '1847/CH7')
-rwxr-xr-x1847/CH7/EX7.1/Ch07Ex1.sce13
-rwxr-xr-x1847/CH7/EX7.10/Ch07Ex10.sce18
-rwxr-xr-x1847/CH7/EX7.11/Ch07Ex11.sce11
-rwxr-xr-x1847/CH7/EX7.2/Ch07Ex2.sce16
-rwxr-xr-x1847/CH7/EX7.3/Ch07Ex3.sce18
-rwxr-xr-x1847/CH7/EX7.4/Ch07Ex4.sce10
-rwxr-xr-x1847/CH7/EX7.5/Ch07Ex5.sce10
-rwxr-xr-x1847/CH7/EX7.6/Ch07Ex6.sce11
-rwxr-xr-x1847/CH7/EX7.7/Ch07Ex7.sce15
-rwxr-xr-x1847/CH7/EX7.8/Ch07Ex8.sce12
-rwxr-xr-x1847/CH7/EX7.9/Ch07Ex9.sce11
11 files changed, 145 insertions, 0 deletions
diff --git a/1847/CH7/EX7.1/Ch07Ex1.sce b/1847/CH7/EX7.1/Ch07Ex1.sce
new file mode 100755
index 000000000..31a16bf66
--- /dev/null
+++ b/1847/CH7/EX7.1/Ch07Ex1.sce
@@ -0,0 +1,13 @@
+// Scilab Code Ex7.1:: Page-7.7 (2009)
+clc; clear;
+n1 = 1.6; // Refractive index of core material of fibre
+n2 = 1.3; // Refractive index of cladding material of fibre
+phi_C = asind(n2/n1); // Critical angle of optical fibre, degrees
+theta_Q = asind(sqrt(n1^2-n2^2)); // Acceptance angle of optical fibre, degrees
+
+printf("\nThe critical angle of optical fibre = %4.1f degrees", phi_C);
+printf("\nThe angle of acceptance cone = %5.1f degrees", 2*theta_Q);
+
+// Result
+// The critical angle of optical fibre = 54.3 degrees
+// The angle of acceptance cone = 137.7 degrees
diff --git a/1847/CH7/EX7.10/Ch07Ex10.sce b/1847/CH7/EX7.10/Ch07Ex10.sce
new file mode 100755
index 000000000..bf3247dcd
--- /dev/null
+++ b/1847/CH7/EX7.10/Ch07Ex10.sce
@@ -0,0 +1,18 @@
+// Scilab Code Ex7.10:: Page-7.14 (2009)
+clc; clear;
+n1 = 1.480; // Refractive index of core material
+n2 = 1.47; // Refractive index of cladding material
+lambda = 850e-006; // Wavelength of light used, m
+NA = sqrt(n1^2-n2^2); // Numerical aperture of the step index fibre
+theta0 = asind(NA); // Maximum acceptance angle for the fibre, degrees
+M_N = 1; // Number of modes in step index cable
+// As number of modes, M_N = 1/2*V^2, solving for V
+V = sqrt(2*M_N); // V-number for the fibre
+// As V = 2*%pi*a/lambda*NA, solving for a
+a = V*lambda/(2*%pi*NA); // Radius of core for single mode operation in step index fibre, m
+
+printf("\nThe radius of core for single mode operation in step index fibre = %3.1e", a);
+
+// Result
+// The radius of core for single mode operation in step index fibre = 1.1e-03
+// The ansswer is quoted wrong in the textbook
diff --git a/1847/CH7/EX7.11/Ch07Ex11.sce b/1847/CH7/EX7.11/Ch07Ex11.sce
new file mode 100755
index 000000000..929fcb0a8
--- /dev/null
+++ b/1847/CH7/EX7.11/Ch07Ex11.sce
@@ -0,0 +1,11 @@
+// Scilab Code Ex7.11: : Page-7.16 (2009)
+clc; clear;
+Pi = 1.5; // Input power to the optical fibre, mW
+Po = 0.5; // Output power to the optical fibre, mW
+L = 0.12; // Length of the optical fibre, km
+alpha_dB = 10/L*log10(Pi/Po); // Signal attenuation in optical fibre, dB/km
+
+printf("\nThe signal attenuation in optical fibre = %4.1f dB/km", alpha_dB);
+
+// Result
+// The signal attenuation in optical fibre = 39.8 dB/km
diff --git a/1847/CH7/EX7.2/Ch07Ex2.sce b/1847/CH7/EX7.2/Ch07Ex2.sce
new file mode 100755
index 000000000..503c1ac4d
--- /dev/null
+++ b/1847/CH7/EX7.2/Ch07Ex2.sce
@@ -0,0 +1,16 @@
+// Scilab Code Ex7.2:: Page-7.8 (2009)
+clc; clear;
+n1 = 1.50; // Refractive index of core material of fibre
+n2 = 1.47; // Refractive index of cladding material of fibre
+phi_C = asind(n2/n1); // Critical angle of optical fibre, degrees
+NA = sqrt(n1^2-n2^2); // Numerical aperture for the fibre
+theta_Q = asind(sqrt(n1^2-n2^2)); // Acceptance angle of optical fibre, degrees
+
+printf("\nThe critical angle of optical fibre = %4.1f degrees", phi_C);
+printf("\nThe numerical aperture for the fibre = %5.3f", NA);
+printf("\nThe angle of acceptance cone = %5.1f degrees", theta_Q);
+
+// Result
+// The critical angle of optical fibre = 78.5 degrees
+// The numerical aperture for the fibre = 0.298
+// The angle of acceptance cone = 17.4 degrees
diff --git a/1847/CH7/EX7.3/Ch07Ex3.sce b/1847/CH7/EX7.3/Ch07Ex3.sce
new file mode 100755
index 000000000..4aae2c44d
--- /dev/null
+++ b/1847/CH7/EX7.3/Ch07Ex3.sce
@@ -0,0 +1,18 @@
+// Scilab Code Ex7.3:: Page-7.8 (2009)
+clc; clear;
+n1 = 1.46; // Refractive index of the core material
+delta = 0.01; // Relative refractive index difference
+NA = n1*sqrt(2*delta); // Numerical aperture for the fibre
+theta_Q = %pi*NA^2; // Solid acceptance angle of optical fibre for small angles, radians
+// As relative refractive index, delta = 1-n2/n1, solving for n2
+n2 = n1*(1-delta); // Refractive index of cladding
+phi_C = asind(n2/n1); // Critical angle of optical fibre, degrees
+
+printf("\nThe numerical aperture for the fibre = %4.2f", NA);
+printf("\nThe solid acceptance angle of the optical fibre = %4.2f radians", theta_Q);
+printf("\nThe critical angle of optical fibre = %4.1f degrees", phi_C);
+
+// Result
+// The numerical aperture for the fibre = 0.21
+// The solid acceptance angle of the optical fibre = 0.13 radians
+// The critical angle of optical fibre = 81.9 degrees
diff --git a/1847/CH7/EX7.4/Ch07Ex4.sce b/1847/CH7/EX7.4/Ch07Ex4.sce
new file mode 100755
index 000000000..c86ffd927
--- /dev/null
+++ b/1847/CH7/EX7.4/Ch07Ex4.sce
@@ -0,0 +1,10 @@
+// Scilab Code Ex7.4:: Page-7.9 (2009)
+clc; clear;
+n1 = 1.54; // Refractive index of the core material
+NA = 0.45; // Numerical aperture for the fibre
+n2 = sqrt(n1^2-NA^2); // Refractive index of cladding
+
+printf("\nThe refractive index of cladding = %4.2f", n2);
+
+// Result
+// The refractive index of cladding = 1.47
diff --git a/1847/CH7/EX7.5/Ch07Ex5.sce b/1847/CH7/EX7.5/Ch07Ex5.sce
new file mode 100755
index 000000000..de3d50c50
--- /dev/null
+++ b/1847/CH7/EX7.5/Ch07Ex5.sce
@@ -0,0 +1,10 @@
+// Scilab Code Ex7.5:: Page-7.9 (2009)
+clc; clear;
+n1 = 1.544; // Refractive index of the core material
+n2 = 1.412; // Refractive index of cladding
+NA = sqrt(n1^2-n2^2); // Numerical aperture for the fibre
+
+printf("\nThe numerical aperture for an optical fibre = %4.2f", NA);
+
+// Result
+// The numerical aperture for an optical fibre = 0.62
diff --git a/1847/CH7/EX7.6/Ch07Ex6.sce b/1847/CH7/EX7.6/Ch07Ex6.sce
new file mode 100755
index 000000000..bcaced748
--- /dev/null
+++ b/1847/CH7/EX7.6/Ch07Ex6.sce
@@ -0,0 +1,11 @@
+// Scilab Code Ex7.6:: Page-7.9 (2009)
+clc; clear;
+n1 = 1.544; // Refractive index of the core material
+theta0 = 35; // Acceptance angel for an optical fibre, degrees
+// As theta0 = asind(sqrt(n1^2-n2^2)), solving for n2
+n2 = sqrt(n1^2-sind(theta0)^2); // Refractive index of cladding
+
+printf("\nThe refractive index of the cladding = %4.2f", n2);
+
+// Result
+// The refractive index of the cladding = 1.43
diff --git a/1847/CH7/EX7.7/Ch07Ex7.sce b/1847/CH7/EX7.7/Ch07Ex7.sce
new file mode 100755
index 000000000..edbcd05c6
--- /dev/null
+++ b/1847/CH7/EX7.7/Ch07Ex7.sce
@@ -0,0 +1,15 @@
+// Scilab Code Ex7.7:: Page-7.10 (2009)
+clc; clear;
+NA = 0.4; // Numerical aperture of the optical fibre
+n0 = 1; // Refractive index of fibre in air
+theta_a = asind(NA/n0); // Acceptance angle for meridional rays, degrees
+theta = 100; // Direction through which the skew rays are bent at each reflection, degrees
+r = theta/2; // Angle of reflection, degrees
+theta_as = asind(NA/(cosd(r)*n0)); // Acceptance angle for skew rays, degrees
+
+printf("\nAcceptance angle for meridional rays = %4.1f degrees", theta_a);
+printf("\nAcceptance angle for skew rays = %4.1f degrees", theta_as);
+
+// Result
+// Acceptance angle for meridional rays = 23.6 degrees
+// Acceptance angle for skew rays = 38.5 degrees
diff --git a/1847/CH7/EX7.8/Ch07Ex8.sce b/1847/CH7/EX7.8/Ch07Ex8.sce
new file mode 100755
index 000000000..2556a89d8
--- /dev/null
+++ b/1847/CH7/EX7.8/Ch07Ex8.sce
@@ -0,0 +1,12 @@
+// Scilab Code Ex7.8: : Page-7.13 (2009)
+clc; clear;
+NA = 0.16; // Numerical aperture of the step index fibre
+n1 = 1.50; // Refractive index of the core material
+d = 65e-006; // Diameter of the core, m
+lambda = 0.9e-006; // Wavelength of transmitted light, m
+V = %pi*d/lambda*NA; // V-number for the optical fibre
+
+printf("\nThe V-number for the optical fibre = %5.2f", V);
+
+// Result
+// The V-number for the optical fibre = 36.30
diff --git a/1847/CH7/EX7.9/Ch07Ex9.sce b/1847/CH7/EX7.9/Ch07Ex9.sce
new file mode 100755
index 000000000..c283ed7c2
--- /dev/null
+++ b/1847/CH7/EX7.9/Ch07Ex9.sce
@@ -0,0 +1,11 @@
+// Scilab Code Ex7.9:: Page-7.13 (2009)
+clc; clear;
+NA = 0.28; // Numerical aperture of the step index fibre
+d = 55e-006; // Diameter of the core, m
+lambda = 0.9e-006; // Wavelength of transmitted light, m
+M_N = (2.22*d*(NA)/lambda)^2; // Number of modes in the step index fibre
+
+printf("\nThe number of modes in the step index fibre = %4d degrees", M_N);
+
+// Result
+// The number of modes in the step index fibre = 1442 degrees
generated by cgit (git 2.34.1) at 2025-03-13 01:07:53 +0000