11 files changed, 92 insertions, 0 deletions
diff --git a/3020/CH12/EX12.1/ex12_1.sce b/3020/CH12/EX12.1/ex12_1.sce
new file mode 100755
index 000000000..9823f2724
--- /dev/null
+++ b/3020/CH12/EX12.1/ex12_1.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+delta = 0.02; // Relative refractive index
+n1 = 1.48; // Refractive index of the core
+r = 1-delta; // r = (n2/n1)
+thetac = asind(r); // Critical Angle
+disp('Degrees',thetac,'The critical angle of fiber is') 
diff --git a/3020/CH12/EX12.10/ex12_10.sce b/3020/CH12/EX12.10/ex12_10.sce
new file mode 100755
index 000000000..2673e4e82
--- /dev/null
+++ b/3020/CH12/EX12.10/ex12_10.sce
@@ -0,0 +1,8 @@
+clc;
+clear all;
+d = 50e-6; // Diameter of core in fiber in meters
+lambda = 1e-6; // Operating Wavelength in meters
+NA = 0.20; // Numerical Aperture
+Nstep = 4.9*((d*NA)/lambda)^2 // Number of modes propogating through step indexfiber is
+Ngrad = Nstep/2; // Number of modes propogating through step graded index fiber is
+disp('',Ngrad,'Number of modes propogating through graded index fiber is')
diff --git a/3020/CH12/EX12.11/ex12_11.sce b/3020/CH12/EX12.11/ex12_11.sce
new file mode 100755
index 000000000..4512a5b5a
--- /dev/null
+++ b/3020/CH12/EX12.11/ex12_11.sce
@@ -0,0 +1,13 @@
+clc;
+clear all;
+n1 = 1.50; // Refractive index of core
+n2 = 1.45 ; // Refractive index of cladding
+delta = (n1-n2)/n1; // Relative refractive index
+NA = n1*sqrt(2*delta) 
+disp('',NA,'The numerical aperture is')
+ia = asind(NA);// Acceptance angle
+disp('Degrees',ia,'The acceptace angle is')
+thetac = asind(n2/n1);// Critical Angle
+disp('Degress',thetac,'The critical angle of fiber is')
+
+// Slight variation in the answer of critical angle as compared to book... Checked in calculator... Book's mistake
diff --git a/3020/CH12/EX12.2/ex12_2.sce b/3020/CH12/EX12.2/ex12_2.sce
new file mode 100755
index 000000000..544f4c3d0
--- /dev/null
+++ b/3020/CH12/EX12.2/ex12_2.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+d = 6e-6; // Diameter of fiber in meters
+lambda = 1.5e-6; // Wavelength of laser source in meters
+n1 = 1.47; // Refractive index of core
+n2 = 1.43; // Refractice index of clad
+NA = sqrt(n1^2-n2^2); // Numerical Aperture
+N = 4.9*((d*NA)/lambda)^2 // Number of modes propogating through fiber is
+disp('',N,'Number of modes propogating through fiber is')
+// Slight variation in the answer as compared to book... Checked in calculator... Book's mistake
diff --git a/3020/CH12/EX12.3/ex12_3.sce b/3020/CH12/EX12.3/ex12_3.sce
new file mode 100755
index 000000000..39d8b93cc
--- /dev/null
+++ b/3020/CH12/EX12.3/ex12_3.sce
@@ -0,0 +1,6 @@
+clc;
+clear all;
+n1 = 1.55; // Refractive index of core
+n2 = 1.50; // Refractice index of clad
+NA = sqrt(n1^2-n2^2); // Numerical Aperture
+disp('',NA,'The numerical aperture of fiber is')
diff --git a/3020/CH12/EX12.4/ex12_4.sce b/3020/CH12/EX12.4/ex12_4.sce
new file mode 100755
index 000000000..2e0e7215f
--- /dev/null
+++ b/3020/CH12/EX12.4/ex12_4.sce
@@ -0,0 +1,6 @@
+clc;
+clear all;
+n1 = 1.60; // Refractive index of core
+n2 = 1.50; // Refractice index of clad
+NA = sqrt(n1^2-n2^2); // Numerical Aperture
+disp('',NA,'The numerical aperture of fiber is')
diff --git a/3020/CH12/EX12.5/ex12_5.sce b/3020/CH12/EX12.5/ex12_5.sce
new file mode 100755
index 000000000..111df2a0a
--- /dev/null
+++ b/3020/CH12/EX12.5/ex12_5.sce
@@ -0,0 +1,12 @@
+clc;
+clear all;
+n1 = 1.50; // Refractive index of core
+NA = 0.26 ; // Numerical Aperture
+d = 100e-6; // Diameter of core in fiber in meter
+lambda = 1e-6; // Wavelength of source in meter
+n2 = sqrt(n1^2-NA^2); //The refractive index of cladding 
+disp('',n2,'The refractive index of cladding is')
+ia = asind(NA);// Critical Angle
+disp('Degrees',ia,'The acceptace angle is')
+N = 4.9*((d*NA)/lambda)^2 // Number of modes propogating through fiber is
+disp('',N,'Number of modes propogating through fiber is')
diff --git a/3020/CH12/EX12.6/ex12_6.sce b/3020/CH12/EX12.6/ex12_6.sce
new file mode 100755
index 000000000..57248e7ec
--- /dev/null
+++ b/3020/CH12/EX12.6/ex12_6.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+P1 = 100; // Power injected into fiber in milliwatts
+P0 = 40;// Power ejected into fiber in milliwatts
+loss = 10*log10(P1/P0);
+disp('dB',loss,'The loss is ')
+// Slight variation in the answer as compared to book... Checked in calculator... Book's mistake
diff --git a/3020/CH12/EX12.7/ex12_7.sce b/3020/CH12/EX12.7/ex12_7.sce
new file mode 100755
index 000000000..0e8ff628a
--- /dev/null
+++ b/3020/CH12/EX12.7/ex12_7.sce
@@ -0,0 +1,8 @@
+clc;
+clear all;
+delta = 0.012; // Relative refractive index
+NA = 0.22;// Numerical Aperture
+n1 = NA/(sqrt(2*delta)); //The refractive index of core
+n2 = n1*(1-delta); // The refractice index of cladding
+disp('',n1,'The refractive index of core is')
+disp('',n2,'The refractive index of cladding is')
diff --git a/3020/CH12/EX12.8/ex12_8.sce b/3020/CH12/EX12.8/ex12_8.sce
new file mode 100755
index 000000000..3f7f545c4
--- /dev/null
+++ b/3020/CH12/EX12.8/ex12_8.sce
@@ -0,0 +1,8 @@
+clc;
+clear all;
+delta = 0.015; // Relative refractive index
+NA = 0.27;// Numerical Aperture
+n1 = NA/(sqrt(2*delta)); //The refractive index of core
+n2 = n1*(1-delta); // The refractice index of cladding
+disp('',n1,'The refractive index of core is')
+disp('',n2,'The refractive index of cladding is')
diff --git a/3020/CH12/EX12.9/ex12_9.sce b/3020/CH12/EX12.9/ex12_9.sce
new file mode 100755
index 000000000..ec865f57f
--- /dev/null
+++ b/3020/CH12/EX12.9/ex12_9.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+d = 60e-6; // Diameter of core in fiber in meters
+lambda = 2.7e-6; // Operating Wavelength in meters
+NA = 0.25; // Numerical Aperture
+N = 4.9*((d*NA)/lambda)^2 // Number of modes propogating through fiber is
+disp('',N,'Number of modes propogating through fiber is')