summaryrefslogtreecommitdiff
path: root/848/CH3/EX3.5/Example3_5.sce
blob: 8944c281252b7ceeee1498d1c889950adbbbdcff (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//clear//
//Caption: Calculation of pulse broadening
//Example3.5
//page 103
clear;
clc;
close;
C = 3e08; //free space velocity in metre/sec
n1 = 1.48;//core refractive index
n2 = 1.465;//cladding refractive index
delta = 0.01; //index difference
L = 10^3;//fiber length 10KM
deltaT = (L*(n1^2)/(C*n2))*delta;
disp((deltaT/L)*10^12,'pulse broadening in ns/KM')
//Result
//pulse broadening in ns/KM  = 49.838453