initial commit / add all books

18 files changed, 232 insertions, 0 deletions

diff --git a/3547/CH5/EX5.1/5_1.jpg b/3547/CH5/EX5.1/5_1.jpg
new file mode 100644
index 000000000..1d6bbdd2d
--- /dev/null
+++ b/3547/CH5/EX5.1/5_1.jpg
diff --git a/3547/CH5/EX5.1/Ex5_1.sce b/3547/CH5/EX5.1/Ex5_1.sce
new file mode 100644
index 000000000..3278fded7
--- /dev/null
+++ b/3547/CH5/EX5.1/Ex5_1.sce
@@ -0,0 +1,34 @@
+// Example no.5.1

+// To calculate (a) the photon incidence rate, (b) the photon absorption rate, and, (c) the quantum efficiency.

+// Page no.196

+

+clc;

+clear all;

+// Given data

+lambda=550*10^(-9);                         // The wavelength of electromagnetic wave in m

+c=3*10^8;                                   // Speed of ligth in air

+h=6.626*10^(-34);                           // Planck's constant

+alpha=10^4;                                 // absorption coefficient

+W=3*10^-4;                                  // width of the active region

+Pi=1*10^-9;                                 // optical power

+eta=0.9;                                    // the fraction of photocarriers that contribute to the photocurrent

+Rp=0;                                       // the power transmission coefficient at the air–semiconductor interface

+

+// (a) the photon incidence rate

+Eph=(h*c)/lambda;                          // The energy of a photon

+Rincident=Pi/Eph;                          // The photon incidence rate

+

+// Display result on command window

+printf('\n The photon incidence rate = %0.2f X 10^9 photon/s',Rincident*10^-9);

+

+// (b) the photon absorption rate

+Rabs=(Rincident*(1-exp(-alpha*W)));        // The photon absorption rate

+

+// Display result on command window

+printf('\n The photon absorption rate = %0.2f X 10^9 photon/s',Rabs*10^-9)

+

+//c) the quantum efficiency

+neta=(1-Rp)*eta*(1-exp(-alpha*W));          // The quantum efficiency

+

+// Display result on command window

+printf('\n The quantum efficiency = %0.3f',neta)

diff --git a/3547/CH5/EX5.2/5_2.jpg b/3547/CH5/EX5.2/5_2.jpg
new file mode 100644
index 000000000..e496bdf9b
--- /dev/null
+++ b/3547/CH5/EX5.2/5_2.jpg
diff --git a/3547/CH5/EX5.2/Ex5_2.sce b/3547/CH5/EX5.2/Ex5_2.sce
new file mode 100644
index 000000000..0a5f9096f
--- /dev/null
+++ b/3547/CH5/EX5.2/Ex5_2.sce
@@ -0,0 +1,23 @@
+// Example no.5.2

+// To calculate (a) the responsivity R and (b) the cutoff wavelength 

+// Page no.198

+

+clc;

+clear;

+

+// Given data

+neta=0.9;                                        // The quantum efficiency

+Eg=1.42;                                         // The band-gap energy in eV

+lambda=1.1;                                      // The operating (free-space) wavelength in micrometer

+

+// (a) The responsivity 

+R=(neta*lambda)/1.24;                            // The responsivity in A/W

+

+// Display result on command window

+printf('\n The responsivity = %0.1f A/W',R)                                                             //Wrong answer in book

+

+// (b) The cutoff wavelength 

+lambdac=1.2/Eg;                                //The cutoff wavelength in micrometer

+

+// Display result on command window

+printf('\n The cutoff wavelength = %0.3f micrometer',lambdac)                                             //Wrong answer in book

diff --git a/3547/CH5/EX5.3/5_3.jpg b/3547/CH5/EX5.3/5_3.jpg
new file mode 100644
index 000000000..035c60355
--- /dev/null
+++ b/3547/CH5/EX5.3/5_3.jpg
diff --git a/3547/CH5/EX5.3/Ex5_3.sce b/3547/CH5/EX5.3/Ex5_3.sce
new file mode 100644
index 000000000..af7850728
--- /dev/null
+++ b/3547/CH5/EX5.3/Ex5_3.sce
@@ -0,0 +1,17 @@
+// Example no.5.3

+// To find quantum efficiency at different wavelength and same responsivity

+// Page no.199

+

+clc;

+clear;

+

+// Given data

+lambda1=0.7;                                         // The radiation wavelength in micrometer

+R=0.4;                                               // The responsivity in A/W

+lambda2=0.5;                                         // The reduced wavelength in micrometer

+neta1=(R*1.24)/lambda1;                              // The quantum efficiency for 0.7micrometer wavelength

+neta2=neta1*(lambda2/lambda1);                       // The quantum efficiency for reduced wavelength 0.5micrometer 

+

+// Display result on command window

+printf('\n The quantum efficiency for 0.7 micrometer wavelength = %0.4f',neta1)

+printf('\n The quantum efficiency for reduced wavelength of 0.5 micrometer = %0.3f',neta2)

diff --git a/3547/CH5/EX5.4/5_4.jpg b/3547/CH5/EX5.4/5_4.jpg
new file mode 100644
index 000000000..fbbebbb61
--- /dev/null
+++ b/3547/CH5/EX5.4/5_4.jpg
diff --git a/3547/CH5/EX5.4/Ex5_4.sce b/3547/CH5/EX5.4/Ex5_4.sce
new file mode 100644
index 000000000..788e958ba
--- /dev/null
+++ b/3547/CH5/EX5.4/Ex5_4.sce
@@ -0,0 +1,20 @@
+// Example no.5.4

+// To determine the refractive index and thickness of the antireflection coating

+// Page no.199

+

+clc;

+clear;

+

+// Given data

+lambda=680*10^-9;                                   // Wavelength of red ligth in meter

+nair=1;                                             // Refractive index of air

+nsilicon=3.6;                                       // Refractive index of silicon

+nAR=sqrt(nair*nsilicon);                            // Refractive index of antireflection coating

+tAR=lambda/(4*nAR);                                 // Thickness of antireflection coating

+

+// Display result on command window

+printf('\n Refractive index of antireflection coating = %0.1f ',nAR)

+printf('\n Thickness of antireflection coating = %0.0f nm',tAR*10^9)

+

+

+

diff --git a/3547/CH5/EX5.5/5_5.jpg b/3547/CH5/EX5.5/5_5.jpg
new file mode 100644
index 000000000..994a5b655
--- /dev/null
+++ b/3547/CH5/EX5.5/5_5.jpg
diff --git a/3547/CH5/EX5.5/Ex5_5.sce b/3547/CH5/EX5.5/Ex5_5.sce
new file mode 100644
index 000000000..3d7d58c5c
--- /dev/null
+++ b/3547/CH5/EX5.5/Ex5_5.sce
@@ -0,0 +1,21 @@
+// Example 5.5

+// To calculate the inaccuracy with which resonator should be fabricated

+// Page no.216

+

+clc;

+clear;

+

+// Given data

+R1=0.9;                                        // Reflectivity at point A

+integer=4;

+n=3.5;                                         // Reflection index of silicon

+F=%pi/(1-sqrt(R1));                            // The finesse of the resonator and also called as the ratio of the free spectral range

+lambda0=850;                                   // Wavelength in nanometer

+L=integer*lambda0/(2*n);                       // Resonator length in nanometer

+

+// The inaccuracy with which resonator should be fabricated

+deltaL=L*0.5/F;

+

+// Display result on command window

+printf('\n Resonator length = %0.0f nm',L)

+printf('\n The inaccuracy in length with which resonator should be fabricated = %0.0f nm',deltaL)

diff --git a/3547/CH5/EX5.6/5_6.jpg b/3547/CH5/EX5.6/5_6.jpg
new file mode 100644
index 000000000..e0152654d
--- /dev/null
+++ b/3547/CH5/EX5.6/5_6.jpg
diff --git a/3547/CH5/EX5.6/Ex5_6.sce b/3547/CH5/EX5.6/Ex5_6.sce
new file mode 100644
index 000000000..cae6bd779
--- /dev/null
+++ b/3547/CH5/EX5.6/Ex5_6.sce
@@ -0,0 +1,34 @@
+// Example no.5.6

+// To find the peak current if (a) LO power = 10 dBm, (b) LO power = −10 dBm for the single-branch receiver

+// Page no.229

+

+clc;

+clear;

+

+// Given data

+L=100;                                           // Length of fiber

+loss=0.2*L;                                      // Total fiber loss

+PtdBm=12;                                        // The peak power of the signal at the transmitter

+R=0.9;                                           // Responsivity in A/W

+PrdBm=PtdBm-loss;                                // The power at the receiver

+

+// (a) the peak current LO power = 10 dBm

+PLO1dBm=10;                                         // Power at local oscillator in dBm

+PLO1=10^(0.1*PLO1dBm);                              // Power at local oscillator in mW

+Pr=10^(0.1*PrdBm);                                  // Power at receiver in mW

+Id1=R*sqrt(Pr*PLO1);                                // The peak current at LO power = 10dBm

+I1=R*Pr/2+R*sqrt(Pr*PLO1);                          // The peak current after ignoring the d.c. term

+

+// Display result on command window

+printf('\n The peak current at LO power 10dBm = %0.4f mA',Id1)

+printf('\n The peak current after ignoring the d.c. term = %0.3f mA',I1)

+

+// (b) the peak current LO power = -10 dBm

+PLO2dBm=-10;                                      // Power at local oscillator in dBm

+PLO2=10^(0.1*PLO2dBm);                            // Power at local oscillator in mW

+Id2=R*sqrt(Pr*PLO2);                              // The peak current at LO power = -10dBm

+I2=R*Pr/2+R*sqrt(Pr*PLO2);                        // The peak current after ignoring the d.c. term

+

+// Display result on command window

+printf('\n The peak current at LO power -10dBm = %0.4f mA',Id2)

+printf('\n The peak current after ignoring the d.c. term = %0.4f mA',I2)

diff --git a/3547/CH5/EX5.7/5_7.jpg b/3547/CH5/EX5.7/5_7.jpg
new file mode 100644
index 000000000..d25d832be
--- /dev/null
+++ b/3547/CH5/EX5.7/5_7.jpg
diff --git a/3547/CH5/EX5.7/Ex5_7.sce b/3547/CH5/EX5.7/Ex5_7.sce
new file mode 100644
index 000000000..ac192211a
--- /dev/null
+++ b/3547/CH5/EX5.7/Ex5_7.sce
@@ -0,0 +1,33 @@
+// Example no.5.7

+// To find the peak current if (a) LO power = 10 dBm, (b) LO power = −10 dBm for the balanced receiver

+// Page no.234

+

+clc;

+clear;

+

+// Given data

+L=100;                                            // Length of fiber

+loss=0.2*L;                                       // Total fiber loss

+PtdBm=12;                                         // The peak power of the signal at the transmitter

+R=0.9;                                            // Responsivity in A/W

+PrdBm=PtdBm-loss;                                 // The power at the receiver

+

+// (a) the peak current LO power = 10 dBm

+PLO1dBm=10;                                       // Power at local oscillator in dBm

+PLO1=10^(0.1*PLO1dBm);                            // Power at local oscillator in mW

+Pr=10^(0.1*PrdBm);                                // Power at receiver in mW

+Id1=2*R*sqrt(Pr*PLO1);                            // The peak current LO power = 10 dBm

+

+// Display result on command window

+printf('\n The peak current for LO power 10 dBm = %0.4f mA',Id1)

+

+// (b) the peak current LO power = -10 dBm

+PLO2dBm=-10;                                      // Power at local oscillator in dBm

+PLO2=10^(0.1*PLO2dBm);                            // Power at local oscillator in mW

+Id2=2*R*sqrt(Pr*PLO2);                            // The peak current LO power = -10 dBm

+

+// Display result on command window

+printf('\n The peak current for LO power -10 dBm = %0.4f mA',Id2)

+

+// comment on the intermodulation cross-talk in a single-branch receiver and the balanced receiver

+printf('\n A single-branch receiver would have a significant amount of cross-talk. In contrast, for a balanced receiver, intermodulation cross-talk is canceled out \n due to the balanced detection.') 

diff --git a/3547/CH5/EX5.8/5_8.jpg b/3547/CH5/EX5.8/5_8.jpg
new file mode 100644
index 000000000..0616aefec
--- /dev/null
+++ b/3547/CH5/EX5.8/5_8.jpg
diff --git a/3547/CH5/EX5.8/Ex5_8.sce b/3547/CH5/EX5.8/Ex5_8.sce
new file mode 100644
index 000000000..1e0478f4b
--- /dev/null
+++ b/3547/CH5/EX5.8/Ex5_8.sce
@@ -0,0 +1,19 @@
+// Example no.5.8

+// To find the in-phase and quadrature components of the current of a balanced IQ receiver.

+// Page no.238

+

+clc;

+clear;

+

+// Given data

+PLO=10;                                         // Local oscillator power in mW from Example 5.7a

+Pr=0.1585;                                      // Power at receiver in mW

+R=0.9;                                          // Responsivity in A/W

+st=complex((-1/sqrt(2)),(1/sqrt(2)));           // The QPSK transmitted signal

+Ii=R*sqrt(Pr*PLO)*real(st);                     // The in-phase component of the current in mA

+Iq=-R*sqrt(Pr*PLO)*imag(st);                    // The quadrature component of the current in mA

+

+// Display result on command window

+printf('\n The in-phase component of the current = %0.4f mA',Ii)

+printf('\n The quadrature component of the current = %0.4f mA',Iq)

+

diff --git a/3547/CH5/EX5.9/5_9.jpg b/3547/CH5/EX5.9/5_9.jpg
new file mode 100644
index 000000000..c1470c4a7
--- /dev/null
+++ b/3547/CH5/EX5.9/5_9.jpg
diff --git a/3547/CH5/EX5.9/Ex5_9.sce b/3547/CH5/EX5.9/Ex5_9.sce
new file mode 100644
index 000000000..d61f84605
--- /dev/null
+++ b/3547/CH5/EX5.9/Ex5_9.sce
@@ -0,0 +1,31 @@
+// Example 5.9

+// To find the in-phase and quadrature components of the current of a polarization modulated (PM) QPSK signal

+// Page no. 241

+

+clc;

+clear;

+

+// Given data

+theta1=%pi/4;

+Sx=expm(%i*theta1);                                                 // Signal data in x-polarization

+theta2=(5*%pi)/4;

+Sy=expm(%i*theta2);                                                 // Signal data in y-polarization

+PLO=10;                                                             // Local oscillator power in mW from Example 5.8

+Pr=0.1585;                                                          // Power at receiver in mW from Example 5.8

+R=0.9;                                                              // Reflectivity

+

+// The complex photocurrent corresponding to x-polarization 

+Ix= (R*sqrt(Pr*PLO))*Sx/2;                                         // The complex photocurrent corresponding to x-polarization

+Iix=real(Ix);                                                      // In-phase component of phtocurrent corresponding to x-polarization

+Iqx=-imag(Ix);                                                     // Quadrature component of phtocurrent corresponding to x-polarization

+

+// The complex photocurrent corresponding to y-polarization 

+Iy= (R*sqrt(Pr*PLO))*Sy/2;                                         // The complex photocurrent corresponding to y-polarization

+Iiy=real(Iy);                                                      // In-phase component of phtocurrent corresponding to y-polarization

+Iqy=-imag(Iy);                                                     // Quadrature component of phtocurrent corresponding to y-polarization

+

+// Display result on command window

+printf('\n In-phase component of phtocurrent corresponding to x-polarization = %0.4f mA',Iix);

+printf('\n Quadrature component of phtocurrent corresponding to x-polarization = %0.4f mA',Iqx);

+printf('\n In-phase component of phtocurrent corresponding to y-polarization = %0.4f mA',Iiy);

+printf('\n Quadrature component of phtocurrent corresponding to y-polarization = %0.4f mA',Iqy);