blob: 5993b90784545579ab278496f48ed02bd3bc228e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
//Example 8.7
//OS=Windows XP sp3
//Scilab version 5.5.2
clc;
clear;
//given
n1=1.48;//Dimensionless refractive index of fiber core
n2=1.46;//Dimensionless refractive index of fiber cladding
L=1e3;//Length of fiber in m
c=3e8;//Speed of light in vacuum in m/s
Delta=(n1^2 - n2^2)/(2* n1^2);
mprintf("\n Delta = %.4f",Delta);
DeltaTGI=L/c*Delta/8;//Intermodal dispersion in s
mprintf("\n DeltaTGI = %.2e s",DeltaTGI);
//The answers vary due to round off error
|
