1 files changed, 26 insertions, 0 deletions
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