initial commit / add all books

5 files changed, 128 insertions, 0 deletions

diff --git a/401/CH10/EX10.1/Example10_1.sce b/401/CH10/EX10.1/Example10_1.sce
new file mode 100755
index 000000000..1cbad80ae
--- /dev/null
+++ b/401/CH10/EX10.1/Example10_1.sce
@@ -0,0 +1,29 @@
+//Example 10.1

+//Program to determine the Refractive Index of the Active Medium and

+//the 3dB spectral bandwidth of the device

+

+clear;

+clc ;

+close ;

+

+//Given data

+L=300*10^-6;          //metres - ACTIVE REGION LENGTH

+Lambda=1.5*10^-6;     //metres - PEAK GAIN WAVELENGTH

+Delta_Lambda=1*10^-9; //metres - MODE SPACING

+c= 2.998*10^8;        //m/s - SPEED OF LIGHT

+Gs_dB=4.8;            //dB     - SINGLE PASS GAIN

+R1=0.3;               //INPUT FACET REFRACTIVITY

+R2=0.3;               //OUTPUT FACET REFRACTIVITY

+

+//Refractive Index of the active medium at the peak gain wavelength

+n=(Lambda^2)/(2*Delta_Lambda*L);

+

+//Gain Gs from Gs_dB by taking antilog with base 10

+Gs=10^((1/10)*Gs_dB);

+

+//3dB spectral Bandwidth

+B_fpa=(c/(%pi*n*L))*asin((1-sqrt(R1*R2)*Gs)/(2*sqrt(sqrt(R1*R2)*Gs)));

+

+//Displaying the Results in Command Window

+printf("\n\n\t Refractive Index of the active medium at the peak gain wavelength is %0.2f .",n);

+printf("\n\n\t 3dB spectral Bandwidth is %0.1f GHz .",B_fpa/10^9);
\ No newline at end of file
diff --git a/401/CH10/EX10.2/Example10_2.sce b/401/CH10/EX10.2/Example10_2.sce
new file mode 100755
index 000000000..10787b540
--- /dev/null
+++ b/401/CH10/EX10.2/Example10_2.sce
@@ -0,0 +1,20 @@
+//Example 10.2

+//Note: MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Program to derive an approximate equation for the cavity gain

+//of an SOA

+ 

+clear;

+clc ;

+close ;

+

+syms R1 R2;

+

+//For 3 dB peak through ratio

+//Let A=sqrt(R1*R2)*Gs

+A=(1-sqrt(0.5))/(1+sqrt(0.5));

+

+//Cavity gain

+G=A/(1-A)^2/sqrt(R1*R2);;

+

+//Displaying the Result in Command Window

+disp(G,"The approximate equation of cavity gain is, G = ")
\ No newline at end of file
diff --git a/401/CH10/EX10.3/Example10_3.sce b/401/CH10/EX10.3/Example10_3.sce
new file mode 100755
index 000000000..c20346603
--- /dev/null
+++ b/401/CH10/EX10.3/Example10_3.sce
@@ -0,0 +1,30 @@
+//Example 10.3

+//Program to determine:

+//(a)The length of the device

+//(b)The ASE noise signal power at the output of the amplifier

+

+clear;

+clc ;

+close ;

+

+//Given data

+Gs_dB=30;            //dB - SINGLE PASS GAIN

+g_bar=200;           //NET GAIN COEFFICIENT

+m=2.2;               //MODE FACTOR

+n_sp=4;              //SPONTANEOUS EMISSION FACTOR

+h= 6.626*10^(-34);   //J/K - PLANK's CONSTANT

+c=2.998*10^8;        //m/s - VELOCITY OF LIGHT IN VACCUM

+B=1*10^(12);         //Hz - OPTICAL BANDWIDTH

+Lambda=1.55*10^(-6); //metre - OPERATING WAVELENGTH

+

+//(a)The length of the device

+L=Gs_dB/(10*g_bar*log10(%e));

+

+//(b)The ASE noise signal power at the output of the amplifier

+Gs=10^(Gs_dB/10);

+f=c/Lambda;

+P_ASE=m*n_sp*(Gs-1)*h*f*B;

+

+//Displaying the Results in Command Window

+printf("\n\n\t (a)The length of the SOA is %0.2f X 10^(-3) m.",L/10^(-3));

+printf("\n\n\t (b)The ASE noise signal power at the output of the amplifier, P_ASE = %0.2f mW.",P_ASE/10^(-3));
\ No newline at end of file
diff --git a/401/CH10/EX10.4/Example10_4.sce b/401/CH10/EX10.4/Example10_4.sce
new file mode 100755
index 000000000..7712723ed
--- /dev/null
+++ b/401/CH10/EX10.4/Example10_4.sce
@@ -0,0 +1,24 @@
+//Example 10.4

+//Program to determine: 

+//(a)The fiber non-linear coefficient

+//(b)The parametric gain in dB when it is reduced to quadratic gain

+

+clear;

+clc ;

+close ;

+

+//Given data

+L=500;               //metre - LENGTH 

+Lambda=1.55*10^(-6); //metre - OPERATING WAVELENGTH

+Pp= 1.4;             //W - SIGNAL POWER   

+Gp_dB=62.2;          //dB - PEAK GAIN

+

+//(a)The fiber non-linear coefficient

+gaamma=(Gp_dB-10*log10(1/4))/(Pp*L)*1/(10*log10((%e)^2));

+

+//(b)The parametric gain in dB when it is reduced to quadratic gain

+Gp_dB1=10*log10((gaamma*Pp*L)^2);

+

+//Displaying the Results in Command Window

+printf("\n\n\t (a)The fiber non-linear coefficient is %0.2f X 10^(-3) per W per km.",gaamma/10^(-3));

+printf("\n\n\t (b)The parametric gain in dB when it is reduced to quadratic gain is %0.1f dB.",Gp_dB1);
\ No newline at end of file
diff --git a/401/CH10/EX10.5/Example10_5.sce b/401/CH10/EX10.5/Example10_5.sce
new file mode 100755
index 000000000..513c91103
--- /dev/null
+++ b/401/CH10/EX10.5/Example10_5.sce
@@ -0,0 +1,25 @@
+//Example 10.5

+//Program to calculate: 

+//(a)The frequency chirp variation at the output signal

+//(b)The differential gain required

+

+clear;

+clc ;

+close ;

+

+//Given data

+Lambda=1.55*10^(-6);     //metre - OPERATING WAVELENGTH

+alpha=-1;                //ENHANCEMENT FACTOR

+Pin=0.5*10^(-3);         //Watt - INPUT SIGNAL POWER

+dPin_by_dt=0.01*10^(-6); //metre - INPUT SIGNAL POWER VARIATION

+dnr_by_dn=-1.2*10^(-26); //m^3 - DIFFERENTIAL REFRATIVE INDEX

+

+//(a)The frequency chirp variation at the output signal

+del_f=-alpha/(4*%pi)*1/Pin*dPin_by_dt;

+

+//(b)The differential gain required

+dg_by_dn=4*%pi/Lambda*dnr_by_dn/alpha;

+

+//Displaying the Results in Command Window

+printf("\n\n\t (a)The frequency chirp variation at the output signal is %0.2f X 10^(-6)Hz.",del_f/10^(-6));

+printf("\n\n\t (b)The differential gain required is %0.3f X 10^(-20) m^2.",dg_by_dn/10^(-20));
\ No newline at end of file