summaryrefslogtreecommitdiff
path: root/3875/CH9/EX9.5/Ex9_5.sce
blob: 3b52100274ab3996f7a1fe4b6acbc9bd4f31a9a6 (plain)
1
2
3
4
5
6
7
8
9
10
11
clc;
clear;
L=0.5 //length of the fibre in km
I_0=7.5*10^-6 //input power in Watt
I_t=8.6*10^-6 //output power in Watt

//calculation
alpha=-(10/L)*log10(I_0/I_t)

mprintf("The loss specification of the fibre is = -%1.1f dB/km",alpha)
//The answer varies dur to round off error.