5 files changed, 100 insertions, 0 deletions
diff --git a/848/CH13/EX13.1/Example13_1.sce b/848/CH13/EX13.1/Example13_1.sce
new file mode 100755
index 000000000..d932eb5b7
--- /dev/null
+++ b/848/CH13/EX13.1/Example13_1.sce
@@ -0,0 +1,23 @@
+//clear//
+//Caption: Calculation of power budget for optical link
+//Example13.1
+//page 464
+clear;
+clc;
+close;
+N = [5,10,50]; //number stations
+alpha = 0.4;//attenuation in dB/Km
+L_tap = 10;// coupling loss in dB
+L_thru = 0.9;// coupler throughput in dB
+Li = 0.5;//Intrinsic coupler loss in dB
+Lc = 1.0; // coupler-to-fiber loss in dB
+L = 0.5; //link length in Km
+fiber_Loss = alpha*L; //fiber loss in dB
+Pbudget = N*(alpha*L+2*Lc+Li+L_thru)-alpha*L-2*L_thru+2*L_tap;
+disp(fiber_Loss,'fiber loss in dB for L =500 m')
+disp(Pbudget,'power budget in dB for optical link when N = 5,10 and 50 stations respectively =')
+//Result
+//fiber loss in dB for L =500 m   
+//     0.2  
+//power budget in dB for optical link when N = 5,10 and 50 stations respectively =   
+//    36.    54.    198.  
diff --git a/848/CH13/EX13.2/Example13_2.sce b/848/CH13/EX13.2/Example13_2.sce
new file mode 100755
index 000000000..7d2fb1bc8
--- /dev/null
+++ b/848/CH13/EX13.2/Example13_2.sce
@@ -0,0 +1,24 @@
+//clear//
+//Caption: Calculation of Number stations for given loss
+//Example13.2
+//page 465
+clear;
+clc;
+close;
+alpha = 0.4; //attenuation in dB/Km
+L_tap = 10; // coupling loss in dB
+L_thru = 0.9; // coupler throughput in dB
+Li = 0.5; //Intrinsic coupler loss in dB
+Lc = 1.0; // coupler-to-fiber loss in dB
+L = 0.5;  //link length in Km
+Pbudget_LED = 38; // power loss between source and receiver in dB for LED source
+Pbudget_LASER = 51;//power loss between source and receiver in dB for LASER source
+N_LED = (Pbudget_LED+alpha*L-2*L_thru-2*L_tap)/(alpha*L+2*Lc+Li+L_thru)
+N_LASER = (Pbudget_LASER+alpha*L-2*L_thru-2*L_tap)/(alpha*L+2*Lc+Li+L_thru)
+disp(ceil(N_LED),'Number of stations allowed for given loss of 38 dB with LED source')
+disp(floor(N_LASER),'Number of stations allowed for given loss of 51 dB with LASER source')
+//Result
+//Number of stations allowed for given loss of 38 dB with LED source   
+//     5.  
+//Number of stations allowed for given loss of 51 dB with LASER source   
+//    8.  
diff --git a/848/CH13/EX13.3/Example13_3.sce b/848/CH13/EX13.3/Example13_3.sce
new file mode 100755
index 000000000..84c221213
--- /dev/null
+++ b/848/CH13/EX13.3/Example13_3.sce
@@ -0,0 +1,19 @@
+//clear//
+//Caption: Calculation of worst case Dynamic Range
+//Example13.3
+//page 465
+clear;
+clc;
+close;
+N = [5,10] ;//number of stations
+alpha = 0.4;//attenuation in dB/Km
+L = 0.5; //link length in Km
+Lc = 1.0; // coupler-to-fiber loss in dB
+L_thru = 0.9;// coupler throughput in dB
+Li = 0.5;//Intrinsic coupler loss in dB
+DR = (N-2)*(alpha*L+2*Lc+Li+L_thru);
+disp(DR,'worst-case dyanmic range in dB for N =5 and 10 respectively DR =')
+//Result
+//worst-case dyanmic range in dB for N =5 and 10 respectively DR =   
+//     10.8    28.8  
+ 
diff --git a/848/CH13/EX13.4/Example13_4.sce b/848/CH13/EX13.4/Example13_4.sce
new file mode 100755
index 000000000..6d513abd6
--- /dev/null
+++ b/848/CH13/EX13.4/Example13_4.sce
@@ -0,0 +1,19 @@
+//clear//
+//Caption: Calculation of power margin between transmitter and receiver for Star architectures
+//Example13.4
+//page 466
+clear;
+close;
+clc;
+N = [10,50]; //number of stations
+alpha = 0.4; //attenuation in dB/Km
+L = 0.5 ;//distance in Km
+Lexcess = [0.75,1.25]; //excess loss in dB for N =10 and 50
+Lc = 1.0; //connector loss in dB
+Ps_Pr(1) = Lexcess(1)+alpha*2*L+2*Lc+10*log10(N(1)); 
+Ps_Pr(2) = Lexcess(2)+alpha*2*L+2*Lc+10*log10(N(2)); 
+disp(Ps_Pr(1),'The power margin in dB between the transmitter and receiver for N=10 is Ps-Pr =')
+disp(Ps_Pr(2),'The power margin in dB between the transmitter and receiver for N=50 is Ps-Pr =')
+//Result
+//The power margin in dB between the transmitter and receiver for N=10 is Ps-Pr = 13.15  
+//The power margin in dB between the transmitter and receiver for N=50 is Ps-Pr = 20.6397  
diff --git a/848/CH13/EX13.5/Example13_5.sce b/848/CH13/EX13.5/Example13_5.sce
new file mode 100755
index 000000000..177268f79
--- /dev/null
+++ b/848/CH13/EX13.5/Example13_5.sce
@@ -0,0 +1,15 @@
+//clear//
+//Caption:Determination of maximum length of multimode fiber link
+//Example13.5
+//page 477
+clear;
+clc;
+close;
+L_OM2 = 40; //length of OM2 fiber
+L_OM3 = 100; //length of OM3 fiber
+BW_OM2 = 500e06;//bandwidth of OM2 fiber
+BW_OM3 = 2000e06; //bandwidth of OM3 fiber
+Lmax = L_OM2*(BW_OM3/BW_OM2)+L_OM3;
+disp(Lmax,'The maximum link length in meter is Lmax =')
+//Result
+//The maximum link length in meter is Lmax = 260.