initial commit / add all books

10 files changed, 262 insertions, 0 deletions

diff --git a/401/CH5/EX5.1/Example5_1.sce b/401/CH5/EX5.1/Example5_1.sce
new file mode 100755
index 000000000..ee81f3c36
--- /dev/null
+++ b/401/CH5/EX5.1/Example5_1.sce
@@ -0,0 +1,20 @@
+//Example 5.1

+//Program to calculate the optical loss in decibels at the joint

+

+clear;

+clc ;

+close ;

+

+//Given data

+n1=1.5;          //CORE REFRACTIVE INDEX

+n=1.0;

+

+//Magnitude of Frensel reflection at the fiber-air interface

+r=((n1-n)/(n1+n))^2;

+

+//Optical Loss

+Loss_fres=-10*log10(1-r);

+

+//Displaying the Results in Command Window

+printf("\n\n\t Optical Loss is %0.2f dB .",Loss_fres);

+printf("\n\n\t Total loss due to Frensel Reflection at the fiber joint is %0.2f dB .",Loss_fres*2);
\ No newline at end of file
diff --git a/401/CH5/EX5.10/Example5_10.sce b/401/CH5/EX5.10/Example5_10.sce
new file mode 100755
index 000000000..c2bd9e3da
--- /dev/null
+++ b/401/CH5/EX5.10/Example5_10.sce
@@ -0,0 +1,16 @@
+//Example 5.10

+//Program to find the grating period for reflection

+

+clear;

+clc ;

+close ;

+

+//Given data

+n=1.46;        //CORE REFRACTIVE INDEX

+lambda_b=1.55; //um - WAVELENGTH

+

+//Grating Period

+lambda=lambda_b/(2*n);

+

+//Displaying the Result in Command Window

+printf("\n\n\t Grating Period is %0.2f um .",lambda);
\ No newline at end of file
diff --git a/401/CH5/EX5.2/Example5_2.sce b/401/CH5/EX5.2/Example5_2.sce
new file mode 100755
index 000000000..5843ebb7e
--- /dev/null
+++ b/401/CH5/EX5.2/Example5_2.sce
@@ -0,0 +1,28 @@
+//Example 5.2

+//Program to estimate the insertion loss when:

+//(a)there is a small air gap at the joint 

+//(b)the joint is considered index matched

+

+clear;

+clc ;

+close ;

+

+//Given data

+n1=1.5;          //CORE REFRACTIVE INDEX

+n=1.0;

+y=5*10^(-6);     //metre - LATERAL MISALIGNMENT

+a=25*10^(-6);    //metre - CORE RADIUS

+

+//(a)Coupling efficiency

+eeta_lat1=16*(n1/n)^2/(1+(n1/n))^4*1/%pi*(2*acos(y/(2*a))-(y/a)*sqrt(1-(y/(2*a))^2));

+//Insertion Loss

+Loss_lat1=-10*log10(eeta_lat1);

+

+//(b)Coupling efficiency

+eeta_lat2=1/%pi*(2*acos(y/(2*a))-(y/a)*sqrt(1-(y/(2*a))^2));

+//Insertion Loss

+Loss_lat2=-10*log10(eeta_lat2);

+

+//Displaying the Results in Command Window

+printf("\n\n\t (a)Insertion Loss (there is a small air gap at the joint) is %0.2f dB .",Loss_lat1);

+printf("\n\n\t (b)Insertion Loss (the joint is considered index matched) is %0.2f dB .",Loss_lat2);
\ No newline at end of file
diff --git a/401/CH5/EX5.3/Example5_3.sce b/401/CH5/EX5.3/Example5_3.sce
new file mode 100755
index 000000000..30f094f95
--- /dev/null
+++ b/401/CH5/EX5.3/Example5_3.sce
@@ -0,0 +1,30 @@
+//Example 5.3

+//Program to estimate the insertion loss when:

+//(a)there is uniform illumination of all guided modes only 

+//(b)there is uniform illumination of all guided and leaky modes 

+

+clear;

+clc ;

+close ;

+

+//Given data

+y=3*10^(-6);     //metre - LATERAL MISALIGNMENT

+a=25*10^(-6);    //metre - CORE RADIUS

+

+//(a)Misalignment Loss

+Lt1=0.85*(y/a);

+//Coupling efficiency

+eeta_lat1=1-Lt1;

+//Insertion Loss

+Loss_lat1=-10*log10(eeta_lat1);

+

+//(b)Misalignment Loss

+Lt2=0.75*(y/a);

+//Coupling efficiency

+eeta_lat2=1-Lt2;

+//Insertion Loss

+Loss_lat2=-10*log10(eeta_lat2);

+

+//Displaying the Results in Command Window

+printf("\n\n\t (a)Insertion Loss (there is uniform illumination of all guided modes only) is %0.2f dB .",Loss_lat1);

+printf("\n\n\t (b)Insertion Loss (there is uniform illumination of all guided and leaky modes) is %0.2f dB .",Loss_lat2);
\ No newline at end of file
diff --git a/401/CH5/EX5.4/Example5_4.sce b/401/CH5/EX5.4/Example5_4.sce
new file mode 100755
index 000000000..3143fba59
--- /dev/null
+++ b/401/CH5/EX5.4/Example5_4.sce
@@ -0,0 +1,29 @@
+//Example 5.4

+//Program to estimate the insertion loss for

+//NA = 0.2

+//NA = 0.4

+

+clear;

+clc ;

+close ;

+

+//Given data

+n1=1.48;          //CORE REFRACTIVE INDEX

+n=1.0;

+theeta=5;         //degree - ANGULAR MISALIGNMENT

+

+//Calculation for NA = 0.2

+NA=0.2

+eeta_ang1=16*(n1/n)^2/(1+n1/n)^4*(1-n*theeta*%pi/180/(%pi*NA));

+//Insertion Loss

+Loss_ang1=-10*log10(eeta_ang1);

+

+//Calculation for NA = 0.4

+NA=0.4

+eeta_ang2=16*(n1/n)^2/(1+n1/n)^4*(1-n*theeta*%pi/180/(%pi*NA));

+//Insertion Loss

+Loss_ang2=-10*log10(eeta_ang2);

+

+//Displaying the Results in Command Window

+printf("\n\n\t Insertion Loss (NA=0.2) is %0.2f dB .",Loss_ang1);

+printf("\n\n\t Insertion Loss (NA=0.4) is %0.2f dB .",Loss_ang2);
\ No newline at end of file
diff --git a/401/CH5/EX5.5/Example5_5.sce b/401/CH5/EX5.5/Example5_5.sce
new file mode 100755
index 000000000..5068a50f9
--- /dev/null
+++ b/401/CH5/EX5.5/Example5_5.sce
@@ -0,0 +1,31 @@
+//Example 5.5

+//Program to estimate the total insertion loss of the fiber joint 

+//with a lateral misalignment and angular misalignment

+

+clear;

+clc ;

+close ;

+

+//Given data

+V=2.40;        //NORMALIZED FREQUENCY

+n1=1.46;       //CORE REFRACTIVE INDEX

+d=8*10^(-6);   //metre - CORE DIAMETER

+NA=0.1;        //NUMERICAL APERTURE

+y=1*10^(-6);   //metre - LATERAL MISALIGNMENT

+theeta=1;      //degree - ANGULAR MISALIGNMENT

+

+//Normalized Spot Size

+a=d/2;

+omega=a*(0.65+1.62*V^(-3/2)+2.88*V^(-6))/sqrt(2);

+

+//Loss due to lateral offset

+Tl=2.17*(y/omega)^2;

+

+//Loss due to angular misalignment

+Ta=2.17*((theeta*%pi/180)*omega*n1*V/(a*NA))^2;

+

+//Total insertion loss

+Tt=Tl+Ta;

+

+//Displaying the Result in Command Window

+printf("\n\n\t Total Insertion Loss is %0.2f dB .",Tt);
\ No newline at end of file
diff --git a/401/CH5/EX5.6/Example5_6.sce b/401/CH5/EX5.6/Example5_6.sce
new file mode 100755
index 000000000..cc59b8b89
--- /dev/null
+++ b/401/CH5/EX5.6/Example5_6.sce
@@ -0,0 +1,19 @@
+//Example 5.6

+//Program to calculate the loss at the connection due to mode field 

+//diameter mismatch

+

+clear;

+clc ;

+close ;

+

+//Given data

+MFD01=11.2;            //um - MODE FIELD DIAMETER

+MFD02=8.4;             //um - MODE FIELD DIAMETER

+

+//Calculation of Intrinsic Loss

+omega_01=MFD01/2;          

+omega_02=MFD02/2;

+Loss_int=-10*log10(4*(omega_02/omega_01+omega_01/omega_02)^(-2))

+

+//Displaying the Result in Command Window

+printf("\n\n\t Intrinsic Loss is %0.2f dB .",Loss_int);
\ No newline at end of file
diff --git a/401/CH5/EX5.7/Example5_7.sce b/401/CH5/EX5.7/Example5_7.sce
new file mode 100755
index 000000000..4be989e1a
--- /dev/null
+++ b/401/CH5/EX5.7/Example5_7.sce
@@ -0,0 +1,35 @@
+//Example 5.7

+//Program to determine the excess loss, insertion losses, crosstalk

+//and split ratio

+  

+clear;

+clc ;

+close ;

+

+//Given data

+P1=60*10^(-6);     //Watts - INPUT POWER AT PORT 1 

+P2=0.004*10^(-6);  //Watts - OUTPUT POWER AT PORT 2

+P3=26*10^(-6);     //Watts - OUTPUT POWER AT PORT 3

+P4=27.5*10^(-6);   //Watts - OUTPUT POWER AT PORT 4

+

+//Calculation of Excess Loss

+Excess_loss=10*log10(P1/(P3+P4));

+

+//Calculation of Insertion Loss (ports 1 to 3)

+Insertion_loss3=10*log10(P1/P3);

+

+//Calculation of Insertion Loss (ports 1 to 4)

+Insertion_loss4=10*log10(P1/P4);

+

+//Calculation of Crosstalk

+Crosstalk=10*log10(P2/P1);

+

+//Calculation of Split Ratio

+Split_ratio=P3/(P3+P4)*100;

+

+//Displaying the Results in Command Window

+printf("\n\n\t Excess Loss is %0.2f dB .",Excess_loss);

+printf("\n\n\t Intrinsic Loss (ports 1 to 3) is %0.2f dB .",Insertion_loss3);

+printf("\n\n\t Intrinsic Loss (ports 1 to 4) is %0.2f dB .",Insertion_loss4);

+printf("\n\n\t Crosstalk is %0.1f dB .",Crosstalk);

+printf("\n\n\t Split Ratio is %0.1f percent .",Split_ratio);
\ No newline at end of file
diff --git a/401/CH5/EX5.8/Example5_8.sce b/401/CH5/EX5.8/Example5_8.sce
new file mode 100755
index 000000000..12fd97fe1
--- /dev/null
+++ b/401/CH5/EX5.8/Example5_8.sce
@@ -0,0 +1,28 @@
+//Example 5.8

+//Program to determine the total loss incurred by the star coupler 

+//and average insertion loss

+  

+clear;

+clc ;

+close ;

+

+//Given data

+Pi=1*10^(-3);      //Watts - INPUT POWER AT PORT 1 

+Po=14*10^(-6);     //Watts - OUTPUT POWER AT OTHER PORTS

+N=32;              //Ports

+

+//Calculation of Splitting Loss

+Splitting_loss=10*log10(N);

+

+//Calculation of Excess Loss

+Excess_loss=10*log10(Pi/(Po*N));

+

+//Calculation of Total loss

+Total_loss=Splitting_loss+Excess_loss;

+

+//Calculation of Average Insertion Loss 

+Insertion_loss=10*log10(Pi/Po);

+

+//Displaying the Results in Command Window

+printf("\n\n\t Total loss is %0.2f dB .",Total_loss);

+printf("\n\n\t Average Insertion Loss is %0.2f dB .",Insertion_loss);
\ No newline at end of file
diff --git a/401/CH5/EX5.9/Example5_9.sce b/401/CH5/EX5.9/Example5_9.sce
new file mode 100755
index 000000000..2bcdd23ed
--- /dev/null
+++ b/401/CH5/EX5.9/Example5_9.sce
@@ -0,0 +1,26 @@
+//Example 5.9

+//Program to determine the insertion loss associated with one typical

+//path

+  

+clear;

+clc ;

+close ;

+

+//Given data

+Excess_loss=0.2;   //dB - EXCESS LOSS OF EACH PORT

+Split_ratio=0.5;   //*100 percent - SPLIT RATIO

+N=16;              //PORTS

+M=4;               //For N=16 ports

+Splice_loss=0.1;   //dB - SPLICE LOSS

+

+//Calculation of Total Excess Loss

+Total_Excess_loss=M*Excess_loss+3*Splice_loss;

+

+//Calculation of Splitting Loss

+Splitting_loss=10*log10(N);

+

+//Calculation of Insertion Loss 

+Insertion_loss=Splitting_loss+Total_Excess_loss;

+

+//Displaying the Result in Command Window

+printf("\n\n\t Insertion Loss is %0.2f dB .",Insertion_loss);
\ No newline at end of file