From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 401/CH10/EX10.1/Example10_1.sce | 29 +++++++++++++++++++++++++++++
 401/CH10/EX10.2/Example10_2.sce | 20 ++++++++++++++++++++
 401/CH10/EX10.3/Example10_3.sce | 30 ++++++++++++++++++++++++++++++
 401/CH10/EX10.4/Example10_4.sce | 24 ++++++++++++++++++++++++
 401/CH10/EX10.5/Example10_5.sce | 25 +++++++++++++++++++++++++
 5 files changed, 128 insertions(+)
 create mode 100755 401/CH10/EX10.1/Example10_1.sce
 create mode 100755 401/CH10/EX10.2/Example10_2.sce
 create mode 100755 401/CH10/EX10.3/Example10_3.sce
 create mode 100755 401/CH10/EX10.4/Example10_4.sce
 create mode 100755 401/CH10/EX10.5/Example10_5.sce

(limited to '401/CH10')

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
-- 
cgit