initial commit / add all books

8 files changed, 196 insertions, 0 deletions

diff --git a/401/CH7/EX7.1/Example7_1.sce b/401/CH7/EX7.1/Example7_1.sce
new file mode 100755
index 000000000..508092ea2
--- /dev/null
+++ b/401/CH7/EX7.1/Example7_1.sce
@@ -0,0 +1,29 @@
+//Example 7.1

+//Program to determine the total carrier recombination lifetime and

+//the power internally generated within the device

+

+clear;

+clc ;

+close ;

+

+//Given data

+Tau_r=60;          //ns - RADIATIVE RECOMBINATION LIFETIME

+Tau_nr=100;        //ns - NON RADIATIVE RECOMBINATION LIFETIME

+Lambda=0.87*10^-6; //metres - PEAK EMISSION WAVELENGTH

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

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

+e=1.602*10^(-19);  //Coulumbs - CHARGE OF AN ELECTRON

+i=40*10^(-3);      //A - DRIVE CURRENT

+

+//Total carrier recombination lifetime

+Tau=Tau_r*Tau_nr/(Tau_r+Tau_nr);

+

+//Internal quantum efficiency

+eeta_int=Tau/Tau_r;

+

+//Power internally generated within the device

+P_int=eeta_int*h*c*i/(Lambda*e);

+

+//Displaying the Results in Command Window

+printf("\n\n\t Total carrier recombination lifetime is %0.1f ns.",Tau);

+printf("\n\n\t Power internally generated within the device is %0.1f mW .",P_int/10^(-3));
\ No newline at end of file
diff --git a/401/CH7/EX7.2/Example7_2.sce b/401/CH7/EX7.2/Example7_2.sce
new file mode 100755
index 000000000..2eaa9cfd9
--- /dev/null
+++ b/401/CH7/EX7.2/Example7_2.sce
@@ -0,0 +1,25 @@
+//Example 7.2

+//Program to :

+//(a)Calculate the optical power emitted into air as a percentage of 

+//internal optical power

+//(b)Determine the external power efficiency

+

+clear;

+clc ;

+close ;

+

+//Given data

+F=0.68;                  //TRANSMISSION FACTOR

+n=1;

+nx=3.6;                  //REFRACTIVE INDEX OF GaAs

+Pint_by_P=0.5;             //*100 percent - Pe/P

+

+//Percentage optical power emitted

+Pe_by_Pint=F*n^2/(4*nx^2);

+

+//External power efficiency

+eeta_ep=Pe_by_Pint*Pint_by_P;

+

+//Displaying the Results in Command Window

+printf("\n\n\t (a)Percentage optical power emitted is %0.1f percent of generated optical power.",Pe_by_Pint*100);

+printf("\n\n\t (b)External power efficiency is %0.2f percent.",eeta_ep*100);
\ No newline at end of file
diff --git a/401/CH7/EX7.3/Example7_3.sce b/401/CH7/EX7.3/Example7_3.sce
new file mode 100755
index 000000000..feaad5d0a
--- /dev/null
+++ b/401/CH7/EX7.3/Example7_3.sce
@@ -0,0 +1,32 @@
+//Example 7.3

+//Program to calculate the:

+//(a)Coupling Efficieny

+//(b)Optical loss in decibels relative to Pe

+//(c)Optical loss in decibels relative to Pint

+

+clear;

+clc ;

+close ;

+

+//Given data

+NA=0.2;                  //NUMERICAL APERTURE

+F=0.68;                  //TRANSMISSION FACTOR

+n=1;

+nx=3.6;                  //REFRACTIVE INDEX OF GaAs

+

+//(a)Coupling Efficieny

+eeta_c=(NA)^2;

+

+//(b)Optical loss in decibels relative to Pe

+Loss1=-10*log10(eeta_c);

+

+//Percentage optical power emitted

+Pint_by_P=F*n^2/(4*nx^2);

+

+//(c)Optical loss in decibels relative to Pint

+Loss2=-10*log10(eeta_c*Pint_by_P);

+

+//Displaying the Results in Command Window

+printf("\n\n\t (a)Coupling Efficieny is %1.0f percent.",eeta_c*100);

+printf("\n\n\t (b)Optical loss in decibels relative to Pe is %0.1f dB.",Loss1);

+printf("\n\n\t (c)Optical loss in decibels relative to Pint is %0.1f dB.",Loss2);
\ No newline at end of file
diff --git a/401/CH7/EX7.4/Example7_4.sce b/401/CH7/EX7.4/Example7_4.sce
new file mode 100755
index 000000000..0acae8e49
--- /dev/null
+++ b/401/CH7/EX7.4/Example7_4.sce
@@ -0,0 +1,20 @@
+//Example 7.4

+//Program to estimate the optical power coupled into the fiber

+

+clear;

+clc ;

+close ;

+

+//Given data

+d=50*10^(-4);           //cm - EMISSION AREA DIAMETER

+R_D=30;                 //W/sr/cm^2

+NA=0.15;                //NUMERICAL APERTURE

+r=0.01;                 //REFLECTION COEFFICIENT

+

+//Optical power coupled into the fiber

+a=d/2;                       //RADIUS

+A=%pi*a^2;                   //EMISSION AREA

+Pc=%pi*(1-r)*A*R_D*NA^2;

+

+//Displaying the Result in Command Window

+printf("\n\n\t Optical power coupled into the fiber is %0.1f uW.",Pc/10^(-6));
\ No newline at end of file
diff --git a/401/CH7/EX7.5/Example7_5.sce b/401/CH7/EX7.5/Example7_5.sce
new file mode 100755
index 000000000..19ad4eba4
--- /dev/null
+++ b/401/CH7/EX7.5/Example7_5.sce
@@ -0,0 +1,18 @@
+//Example 7.5

+//Program to determine the overall power conversion efficiency

+

+clear;

+clc ;

+close ;

+

+//Given data

+Pc=190*10^(-6);       //Watts - INPUT OPTICAL POWER

+I=25*10^(-3);         //A - FORWARD CURRENT

+V=1.5;                //V - FORWARD VOLTAGE

+

+//Overall power conversion efficiency

+P=I*V;

+eeta_pc=Pc/P;

+

+//Displaying the Result in Command Window

+printf("\n\n\t Overall power conversion efficiency is %0.1f percent.",eeta_pc*100);
\ No newline at end of file
diff --git a/401/CH7/EX7.6/Example7_6.sce b/401/CH7/EX7.6/Example7_6.sce
new file mode 100755
index 000000000..22f6716dd
--- /dev/null
+++ b/401/CH7/EX7.6/Example7_6.sce
@@ -0,0 +1,19 @@
+//Example 7.6

+//Compare the electrical and optical bandwidth for an optical fiber 

+//commuication system and develop a relationship between the two

+

+clear;

+clc ;

+close ;

+

+//Given data

+Re_dB=3;                   //dB - ELECTRICAL 3 dB POINTS

+Ro_dB=3;                   //dB - OPTICAL 3 dB POINTS

+

+//Electrical Bandwidth

+Iout_by_Iin=sqrt(10^(-Re_dB/10));

+printf("\n\n\t For Electrical Bandwidth, Iout/Iin = %0.3f .",Iout_by_Iin);

+

+//Optical Bandwidth

+Iout_by_Iin=10^(-Ro_dB/10);

+printf("\n\n\t For Optical Bandwidth, Iout/Iin = %0.1f .",Iout_by_Iin);
\ No newline at end of file
diff --git a/401/CH7/EX7.7/Example7_7.sce b/401/CH7/EX7.7/Example7_7.sce
new file mode 100755
index 000000000..4cd852fbc
--- /dev/null
+++ b/401/CH7/EX7.7/Example7_7.sce
@@ -0,0 +1,31 @@
+//Example 7.7

+//Determine the optical output power modulated at frequencies

+//(a)20 MHz

+//(b)100 MHz

+//Also determine electrical and optical bandwidths

+

+clear;

+clc ;

+close ;

+

+//Given data

+P_dc=300*10^(-6);          //Watt - OPTICAL OUTPUT POWER

+tau_i=5*10^(-9);           //s - CARRIER RECOMBINATION LIFETIME

+

+//(a)Optical output power at 20 MHz

+f=20*10^6;             //Hz - OPERATING FREQUENCY

+Pe=P_dc/sqrt(1+(2*%pi*f*tau_i)^2);

+printf("\n\n\t (a)Optical output power at %1.0f MHz, Pe(%1.0f MHz) = %0.2f uW.",f/10^6,f/10^6,Pe/10^(-6));

+

+//(b)Optical output power at 100 MHz

+f=100*10^6;            //Hz - OPERATING FREQUENCY 

+Pe=P_dc/sqrt(1+(2*%pi*f*tau_i)^2);

+printf("\n\n\t (b)Optical output power at %1.0f MHz, Pe(%1.0f MHz) = %0.2f uW.",f/10^6,f/10^6,Pe/10^(-6));

+

+//Optical Bandwidth

+Bopt=sqrt(3)/(2*%pi*tau_i);

+printf("\n\n\t Optical Bandwidth, Bopt = %0.1f MHz.",Bopt/10^6);

+

+//Electrical Bandwidth

+B=Bopt/sqrt(2);

+printf("\n\n\t Electrical Bandwidth, B = %0.1f MHz.",B/10^6);
\ No newline at end of file
diff --git a/401/CH7/EX7.8/Example7_8.sce b/401/CH7/EX7.8/Example7_8.sce
new file mode 100755
index 000000000..870175f3a
--- /dev/null
+++ b/401/CH7/EX7.8/Example7_8.sce
@@ -0,0 +1,22 @@
+//Example 7.8

+//Program to estimate the CW operating lifetime for the given LED

+

+clear;

+clc ;

+close ;

+

+//Given data

+Ea=1*1.602*10^(-19);  //Joules - ACTIVATION ENERGY 

+k=1.38*10^(-23);      //m^2 kg/s - BOLTZMANN's CONSTANT

+T=290;                //Kelvin - JUNCTION TEMPERATURE

+Pe_by_Pout=0.67;      //Pe/Pout RATIO

+Beeta_o=1.84*10^7;    //per  h - CONSTANT OF PROPORTIONALITY

+

+//Degradation Rate

+Beeta_r=Beeta_o*exp(-Ea/(k*T));

+

+//CW operating lifetime for the given LED

+t=log(Pe_by_Pout)/-Beeta_r;

+

+//Displaying the Result in Command Window

+printf("\n\n\t CW operating lifetime for the given LED is %0.1f X 10^9 h.",t/10^9);
\ No newline at end of file