10 files changed, 72 insertions, 0 deletions
diff --git a/3506/CH16/EX16.1/Ex_16_1.JPG b/3506/CH16/EX16.1/Ex_16_1.JPG
new file mode 100644
index 000000000..5d5da04de
--- /dev/null
+++ b/3506/CH16/EX16.1/Ex_16_1.JPG
diff --git a/3506/CH16/EX16.1/Ex_16_1.sce b/3506/CH16/EX16.1/Ex_16_1.sce
new file mode 100644
index 000000000..3440fa031
--- /dev/null
+++ b/3506/CH16/EX16.1/Ex_16_1.sce
@@ -0,0 +1,13 @@
+//Optical Fiber communication by A selvarajan
+//example 16.1
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+lambda=850;//operating wavelength in nm
+Beta2=-1//dispersion regime ps^2/Km
+Gama=2//nonlinearity in /W-Km
+TFWHM=10//fundamental soliton width in ps
+To=TFWHM/1.763//pulse width in ps
+Ppeak=1/(Gama*(To^2))//peak power in W
+mprintf("Peak power required to maintain fundamental soliton=%fmW",Ppeak*10^3)//multiplication by 10^3 is to convert the unit from w to mW
diff --git a/3506/CH16/EX16.2/Ex_16_2.JPG b/3506/CH16/EX16.2/Ex_16_2.JPG
new file mode 100644
index 000000000..47d71f224
--- /dev/null
+++ b/3506/CH16/EX16.2/Ex_16_2.JPG
diff --git a/3506/CH16/EX16.2/Ex_16_2.sce b/3506/CH16/EX16.2/Ex_16_2.sce
new file mode 100644
index 000000000..553c953dc
--- /dev/null
+++ b/3506/CH16/EX16.2/Ex_16_2.sce
@@ -0,0 +1,13 @@
+//Optical Fiber communication by A selvarajan
+//example 16.2
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+lambda=1.55;//operating wavelength in um
+Beta2=-1//dispersion regime ps^2/Km
+B=10//bitrate in Gb/s
+two_qo=12//separation between two neighbouring solitons in normalized units
+LT=%pi*exp(two_qo/2)/(8*(two_qo/2)^2*abs(Beta2)*10^-24)/(B^2*(10^18))//distance transmission limit in Km
+mprintf('For 10Gb/s bit rate , transmission distance is limited to =%f Km',LT)//the answer is different because of rounding off 
+
diff --git a/3506/CH16/EX16.3/Ex_16_3.JPG b/3506/CH16/EX16.3/Ex_16_3.JPG
new file mode 100644
index 000000000..019f615bd
--- /dev/null
+++ b/3506/CH16/EX16.3/Ex_16_3.JPG
diff --git a/3506/CH16/EX16.3/Ex_16_3.sce b/3506/CH16/EX16.3/Ex_16_3.sce
new file mode 100644
index 000000000..e43e802ec
--- /dev/null
+++ b/3506/CH16/EX16.3/Ex_16_3.sce
@@ -0,0 +1,11 @@
+//Optical Fiber communication by A selvarajan
+//example 16.3
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+alpha=0.2//fiber loss in dB/Km
+LA=50//Amplifier spacing in Km
+G=(alpha*LA)//gain in fiber
+PbyPo=G*log(G)/(G-1)//Multiple of power required by single soliton
+mprintf('Multiple of power required by single soliton =%f ',PbyPo)// the answer is slightly varing due to rounding error
diff --git a/3506/CH16/EX16.4/Ex_16_4.JPG b/3506/CH16/EX16.4/Ex_16_4.JPG
new file mode 100644
index 000000000..2e91f3110
--- /dev/null
+++ b/3506/CH16/EX16.4/Ex_16_4.JPG
diff --git a/3506/CH16/EX16.4/Ex_16_4.sce b/3506/CH16/EX16.4/Ex_16_4.sce
new file mode 100644
index 000000000..77ef9541f
--- /dev/null
+++ b/3506/CH16/EX16.4/Ex_16_4.sce
@@ -0,0 +1,13 @@
+//Optical Fiber communication by A selvarajan
+//example 16.4
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+lambda=1.55;//operating wavelength in um
+LA=50//Amplifier spacing in Km
+qo=6//Half of separation between two neighbouring solitons in normalized units
+Beta2=-1//dispersion regime ps^2/Km
+B=1/(4*(qo)^2*abs(Beta2))//bandwidth in THz
+mprintf('Communication Link bitrate is limited to =%f GHz',B*10^3)// Multiplication by 10^3 to convert unit fron THz to GHz
+//the answer is wrong
diff --git a/3506/CH16/EX16.5/Ex_16_5.JPG b/3506/CH16/EX16.5/Ex_16_5.JPG
new file mode 100644
index 000000000..735128530
--- /dev/null
+++ b/3506/CH16/EX16.5/Ex_16_5.JPG
diff --git a/3506/CH16/EX16.5/Ex_16_5.sce b/3506/CH16/EX16.5/Ex_16_5.sce
new file mode 100644
index 000000000..8e5d810f9
--- /dev/null
+++ b/3506/CH16/EX16.5/Ex_16_5.sce
@@ -0,0 +1,22 @@
+//Optical Fiber communication by A selvarajan
+//example 16.5
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+LT=10000//Transmission distance in Km
+alpha=0.2//fiber loss in dB/Km
+lambda=1.55*10^-6;//operating wavelength in m
+Gama=2//nonlinearity in /W-Km
+LA=50//Amplifier spacing in Km
+D=1//dispersion parameter ps/(Km-nm)
+FG=3.518//Fiber gain factor
+fj=0.1//timing jitter factor
+h=6.62607004 * 10-34 //planck's constant in m2 kg / s
+nsp=2//spontaneous emission factor
+qo=6//Half of separation between two neighbouring solitons in normalized units
+B1=((9*%pi*fj^2*LA)/(nsp*FG*qo*lambda*h*Gama*D*10^-3))//variable converting la
+B2=B1^(1/3)//variable
+B=B2/LT//bandwidth in THz
+mprintf('Communication Link bitrate is limited to =%f Gb/s',B*10^3)// Multiplication by 10^3 to convert unit fron THz to GHz
+//the answer is wrong