4 files changed, 44 insertions, 0 deletions
diff --git a/3834/CH4/EX4.4.1/Ex4_4_1.jpg b/3834/CH4/EX4.4.1/Ex4_4_1.jpg
new file mode 100644
index 000000000..e0df3db99
--- /dev/null
+++ b/3834/CH4/EX4.4.1/Ex4_4_1.jpg
diff --git a/3834/CH4/EX4.4.1/Ex4_4_1.sce b/3834/CH4/EX4.4.1/Ex4_4_1.sce
new file mode 100644
index 000000000..4c637c44d
--- /dev/null
+++ b/3834/CH4/EX4.4.1/Ex4_4_1.sce
@@ -0,0 +1,18 @@
+//Fiber-optics communication technology, by Djafer K. Mynbaev and Lowell L. Scheiner 
+//Example 4.4.1
+//windows 7
+//Scilab version-6.0.0
+clc;
+clear;
+//given
+
+d=62.5E-6;//core diameter in SI units
+D=125E-6;//cladding diameter in SI units
+NA=0.275;//numerical aperture
+lambda=1300E-9;//operating wavelength lambda in m
+
+x=3.14*d*NA;
+V=x/lambda;
+PcladbyPtotal=2*sqrt(2)/(3*V)//Power carried by fiber cladding
+mprintf("\nPower carried by fiber cladding = %.3f",PcladbyPtotal);
+
diff --git a/3834/CH4/EX4.6.1/Ex4_6_1.jpg b/3834/CH4/EX4.6.1/Ex4_6_1.jpg
new file mode 100644
index 000000000..3f5270281
--- /dev/null
+++ b/3834/CH4/EX4.6.1/Ex4_6_1.jpg
diff --git a/3834/CH4/EX4.6.1/Ex4_6_1.sce b/3834/CH4/EX4.6.1/Ex4_6_1.sce
new file mode 100644
index 000000000..cd5a7a3a5
--- /dev/null
+++ b/3834/CH4/EX4.6.1/Ex4_6_1.sce
@@ -0,0 +1,26 @@
+//Fiber-optics communication technology, by Djafer K. Mynbaev and Lowell L. Scheiner 
+//Example 4.6.1
+//windows 8
+//Scilab version-6.0.0
+clc;
+clear;
+//given
+
+lambda=850;// wavelength in nm
+L=100E12;//Length of fiber in nm
+deltalambda=70;//spectral width wavelength in nm
+S0=0.097;//zero dispersion slope in ps/nm^2.km
+lambda0=1343;//assumed zero dispersion wavelength in nm
+
+y=lambda0/lambda;
+x=1-(y*y*y*y);
+
+Dlambda=-(S0*x*lambda)/4;//dispersion parameter in ps/nm.km
+
+deltatgmat=(Dlambda*deltalambda)/1000;//Pulse spreading by material dispersion in ns/km
+
+mprintf("Pulse spreading by material dispersion = %.2f ns/km",deltatgmat);//the answer vary due to roundingoff
+
+deltatmat=deltatgmat*100;//Pulse spreading over entire fiber in s
+
+mprintf("\nPulse spreading over entire fiber = %.2f s",deltatmat);//the answer vary due to roundingoff