16 files changed, 164 insertions, 0 deletions
diff --git a/3834/CH12/EX12.2.1/Ex12_2_1.jpg b/3834/CH12/EX12.2.1/Ex12_2_1.jpg
new file mode 100644
index 000000000..93828ad7a
--- /dev/null
+++ b/3834/CH12/EX12.2.1/Ex12_2_1.jpg
diff --git a/3834/CH12/EX12.2.1/Ex12_2_1.sce b/3834/CH12/EX12.2.1/Ex12_2_1.sce
new file mode 100644
index 000000000..3f8dbab99
--- /dev/null
+++ b/3834/CH12/EX12.2.1/Ex12_2_1.sce
@@ -0,0 +1,17 @@
+//Fiber Optics Communication Technology, by Djafer K. Mynbaev and Lovell L.scheiner
+//Windows 8
+//Scilab version- 6.0.0
+//Example 12.2.1
+clc;
+clear ;
+//given
+
+deltaf=100E9;//spacing in Hz
+lambda=1550;//wavelength in nm
+c=3E17;//speed of light in nm/s
+f=c/lambda;
+
+x=1/(f*f);
+deltalambda=c*deltaf*x;//Spacing between channels in nm
+
+mprintf("Spacing between channels is = %.2f nm",deltalambda);
diff --git a/3834/CH12/EX12.3.1/Ex12_3_1.jpg b/3834/CH12/EX12.3.1/Ex12_3_1.jpg
new file mode 100644
index 000000000..f3661a622
--- /dev/null
+++ b/3834/CH12/EX12.3.1/Ex12_3_1.jpg
diff --git a/3834/CH12/EX12.3.1/Ex12_3_1.sce b/3834/CH12/EX12.3.1/Ex12_3_1.sce
new file mode 100644
index 000000000..44e500d0b
--- /dev/null
+++ b/3834/CH12/EX12.3.1/Ex12_3_1.sce
@@ -0,0 +1,27 @@
+//Fiber Optics Communication Technology, by Djafer K. Mynbaev and Lovell L.scheiner
+//Windows 8
+//Scilab version- 6.0.0
+//Example 12.3.1
+clc;
+clear ;
+//given
+
+R=0.32;//Reflectance (power reflection coeeficient)
+
+//case 1 Gs value assumed as 2
+Gs=2;//assumed single-pass amplification factor
+
+x=Gs*((1-R)^2);
+y=(1-R*Gs)^2;
+Gfpa=x/y;
+
+mprintf("Gain of Fabry-Perot semiconductor optical amplifier = %.2f or %.1f dB for Gs=2",Gfpa,10*log10(Gfpa));
+
+//case 2 Gs value assumed as 3
+Gs2=3;//assumed single-pass amplification factor
+
+x2=Gs2*((1-R)^2);
+y2=(1-R*Gs2)^2;
+Gfpa2=x2/y2;//Gain of Fabry-Perot semiconductor optical amplifier
+
+mprintf("\nGain of Fabry-Perot semiconductor optical amplifier = %.2f or %.1f dB for Gs=3",Gfpa2,10*log10(Gfpa2));
diff --git a/3834/CH12/EX12.3.2/Ex12_3_2.jpg b/3834/CH12/EX12.3.2/Ex12_3_2.jpg
new file mode 100644
index 000000000..f86e2b991
--- /dev/null
+++ b/3834/CH12/EX12.3.2/Ex12_3_2.jpg
diff --git a/3834/CH12/EX12.3.2/Ex12_3_2.sce b/3834/CH12/EX12.3.2/Ex12_3_2.sce
new file mode 100644
index 000000000..5893eca02
--- /dev/null
+++ b/3834/CH12/EX12.3.2/Ex12_3_2.sce
@@ -0,0 +1,22 @@
+//Fiber Optics Communication Technology, by Djafer K. Mynbaev and Lovell L.scheiner
+//Windows 8
+//Scilab version- 6.0.0
+//Example 12.3.2
+clc;
+clear ;
+//given
+
+g=106;//maximum gain coefficient in 1/cm
+alpha=14;//loss coefficient of a cavity in 1/cm
+GAMA=0.8;//confinement factor
+L1=50E-3;//assumed length of a typical travelling-wave semiconductor amplifier in cm
+y=GAMA*g-alpha;
+z=y*L1;
+Gs1=exp(z);//Gain of a travelling-wave semiconductor amplifier
+mprintf("Gain of a travelling-wave semiconductor amplifier = %.2f.or  %.1f ",Gs1,10*log10(Gs1));
+//case 2
+L2=100E-3;//assumed length of a typical travelling-wave semiconductor amplifier in cm
+y=GAMA*g-alpha;
+z=y*L2;
+Gs2=exp(z);//Gain of a travelling-wave semiconductor amplifier
+mprintf("\nGain of a travelling-wave semiconductor amplifier = %.2f.or  %.1f ",Gs2,10*log10(Gs2));
diff --git a/3834/CH12/EX12.3.3/Ex12_3_3.jpg b/3834/CH12/EX12.3.3/Ex12_3_3.jpg
new file mode 100644
index 000000000..929e7762f
--- /dev/null
+++ b/3834/CH12/EX12.3.3/Ex12_3_3.jpg
diff --git a/3834/CH12/EX12.3.3/Ex12_3_3.sce b/3834/CH12/EX12.3.3/Ex12_3_3.sce
new file mode 100644
index 000000000..5c08c844f
--- /dev/null
+++ b/3834/CH12/EX12.3.3/Ex12_3_3.sce
@@ -0,0 +1,17 @@
+//Fiber Optics Communication Technology, by Djafer K. Mynbaev and Lovell L.scheiner
+//Windows 8
+//Scilab version- 6.0.0
+//Example 12.3.3
+clc;
+clear;
+//given
+
+x=0.96;//assumed R*Gs value
+L=500E-4;//assumed length of a typical travelling-wave semiconductor amplifier in cm
+n=3.6;//refractive index of SOA medium
+c=3e10//spped of light in vaccum in cm/s
+v=c/n//speed of light within resonant cavity in cm/s
+y=asin((1-x)/(2*sqrt(x)));
+BWfpa=((v/L)*y);//Bandwidth of Fabry-perot semiconductor amplifier
+mprintf("Bandwidth of Fabry-perot semiconductor amplifier = %.2f *10^9 rad/s.",BWfpa/1e9);//division by 1e9 to convert unit from rad/s to 10^9 rad/sec
+//the answer given in the book is wrong//
diff --git a/3834/CH12/EX12.3.4/Ex12_3_4.jpg b/3834/CH12/EX12.3.4/Ex12_3_4.jpg
new file mode 100644
index 000000000..cd9cc69a6
--- /dev/null
+++ b/3834/CH12/EX12.3.4/Ex12_3_4.jpg
diff --git a/3834/CH12/EX12.3.4/Ex12_3_4.sce b/3834/CH12/EX12.3.4/Ex12_3_4.sce
new file mode 100644
index 000000000..89fe16692
--- /dev/null
+++ b/3834/CH12/EX12.3.4/Ex12_3_4.sce
@@ -0,0 +1,20 @@
+//Fiber Optics Communication Technology, by Djafer K. Mynbaev and Lovell L.scheiner
+//Windows 8
+//Scilab version- 6.0.0
+//Example 12.3.4
+clc;
+clear ;
+//given
+
+Pis=300E-6;//input-signal power in W
+Pin=30E-9;//input noise power in w
+B=1E-9;//Bandwidth in m
+Pos=60E-3;//output signal power in W
+Pon=20E-6;// output noise  power in W
+
+SNRin=Pis/Pin;
+SNRout=Pos/Pon;
+
+Fn=SNRin/SNRout;
+
+mprintf("Noise figure of an optical amplifier = %.2f or %.1fdB",Fn,10*log10(Fn));
diff --git a/3834/CH12/EX12.3.5/Ex12_3_5.jpg b/3834/CH12/EX12.3.5/Ex12_3_5.jpg
new file mode 100644
index 000000000..d636b841f
--- /dev/null
+++ b/3834/CH12/EX12.3.5/Ex12_3_5.jpg
diff --git a/3834/CH12/EX12.3.5/Ex12_3_5.sce b/3834/CH12/EX12.3.5/Ex12_3_5.sce
new file mode 100644
index 000000000..8b0d824ee
--- /dev/null
+++ b/3834/CH12/EX12.3.5/Ex12_3_5.sce
@@ -0,0 +1,20 @@
+//Fiber Optics Communication Technology, by Djafer K. Mynbaev and Lovell L.scheiner
+//Windows 8
+//Scilab version- 6.0.0
+//Example 12.3.5
+clc;
+clear ;
+//given
+
+lambda=1300E-9;//operating wavelength in m
+c=3E8;//speed of light in m
+f=c/lambda;
+hf=1.53E-19;//photon energy in V
+nsp=3;//spontaneous emission factor
+G=1000;//by converting gain into absolut no.
+deltalambda=40E-9;//bandwidth of TWA in m
+//BW=f*(((deltalambda)/lambda)^2);//it is not giving correct answer
+BW=1.775E12;
+P_ASE = 2*nsp*hf*G*BW;//ASE power generated in mW
+
+mprintf("ASE power generated= %.1f mW",P_ASE*1000);//multiplication by 1e3 to convert unit from W to mW
diff --git a/3834/CH12/EX12.4.1/Ex12_4_1.jpg b/3834/CH12/EX12.4.1/Ex12_4_1.jpg
new file mode 100644
index 000000000..739fad669
--- /dev/null
+++ b/3834/CH12/EX12.4.1/Ex12_4_1.jpg
diff --git a/3834/CH12/EX12.4.1/Ex12_4_1.sce b/3834/CH12/EX12.4.1/Ex12_4_1.sce
new file mode 100644
index 000000000..0ed60d0bb
--- /dev/null
+++ b/3834/CH12/EX12.4.1/Ex12_4_1.sce
@@ -0,0 +1,23 @@
+//Fiber Optics Communication Technology, by Djafer K. Mynbaev and Lovell L.scheiner
+//Windows 8
+//Scilab version- 6.0.0
+//Example 12.4.1
+clc;
+clear ;
+//given
+
+//case 1 
+Pin=300E-6;//light input power in W
+Pout=60E-3;//output power in W
+
+Gain=Pout/Pin;//Gain
+x=log10(Gain);
+Gdb=10*x;//Gain of erbium-doped fiber for case in dB
+
+mprintf("Gain of erbium-doped fiber for case 1 = %.0f dB",Gdb);
+
+//case 2
+Pase=30E-6;//ASE power in W
+
+Gdb2=10*log10(Gain-(Pase/Pin));//Gain of erbium-doped fiber for case 2 in dB
+mprintf("\nGain of erbium-doped fiber for case 2 = %.0f dB",Gdb);
diff --git a/3834/CH12/EX12.4.2/Ex12_4_2.jpg b/3834/CH12/EX12.4.2/Ex12_4_2.jpg
new file mode 100644
index 000000000..fb678dc95
--- /dev/null
+++ b/3834/CH12/EX12.4.2/Ex12_4_2.jpg
diff --git a/3834/CH12/EX12.4.2/Ex12_4_2.sce b/3834/CH12/EX12.4.2/Ex12_4_2.sce
new file mode 100644
index 000000000..247b79e3f
--- /dev/null
+++ b/3834/CH12/EX12.4.2/Ex12_4_2.sce
@@ -0,0 +1,18 @@
+//Fiber Optics Communication Technology, by Djafer K. Mynbaev and Lovell L.scheiner
+//Windows 8
+//Scilab version- 6.0.0
+//Example 12.4.2
+clc;
+clear ;
+//given
+
+w1=10.5E-6;//MFD of transmission fibre in m
+lambda=1550E-9;//operating wavelength in m
+w2=5.3E-6;//assumed average MFD of Pirelli EDF-PAX-01 Fiber in m
+
+a=w1*w2;
+y=w2^2+w1^2;
+z=(2*a)/y;
+
+Ldb=-10*log10(z^2);//Connection loss in transmission fibre in dB
+mprintf("Connection loss in transmission fibre = %.2f dB",Ldb);//the answer vary due to rounding