summaryrefslogtreecommitdiff
path: root/401/CH12/EX12.6/Example12_6.sce
blob: f805b96e7624684553ad877ed9c610ae4c71d08a (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
27
28
29
30
31
32
33
34
35
36
//Example 12.6
//Program to estimate the dispersion-equalization penalty for bit 
//rates:
//(a)25 Mbit/s
//(b)150 Mbit/s

clear;
clc ;
close ;

//Given data
L=8;                     //km - LENGTH OF FIBER LINK
sigma=0.6*10^(-9);       //s/km - RMS PULSE BROADENING


//(a)For 25 Mbit/s
Bt=25*10^6;               //bit/sec - BIT RATE
//Without mode coupling
sigma_T=sigma*L;
D_L=2*(2*sigma_T*Bt*sqrt(2))^4;
printf("\n\n\t (a)For Bt = %1.0f Mbit/s, Without mode coupling, D_L = %0.2f dB",Bt/10^6,D_L);
//With mode coupling
sigma_T=sigma*sqrt(L);
D_L=2*(2*sigma_T*Bt*sqrt(2))^4;
printf("\n\n\t    For Bt = %1.0f Mbit/s, With mode coupling, D_L = %0.2f X 10^(-4) dB",Bt/10^6,D_L/10^(-4));

//(b)150 Mbit/s
Bt=150*10^6;              //bit/sec - BIT RATE
//Without mode coupling
sigma_T=sigma*L;
D_L=2*(2*sigma_T*Bt*sqrt(2))^4;
printf("\n\n\t (b)For Bt = %1.0f Mbit/s, Without mode coupling, D_L = %0.2f dB",Bt/10^6,D_L);
//With mode coupling
sigma_T=sigma*sqrt(L);
D_L=2*(2*sigma_T*Bt*sqrt(2))^4;
printf("\n\n\t    For Bt = %1.0f Mbit/s, With  mode coupling, D_L = %0.2f dB",Bt/10^6,D_L);