blob: cd5a7a3a5aeca85e6cf381f63663ff3a4da62b67 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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
|
