summaryrefslogtreecommitdiff
path: root/3547/CH9/EX9.2/EX9_2.sce
blob: 089134582ddda648cfdc770d2ef529967aca52fc (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
// Example 9.2
// Calculation of the total power at the fiber output.
// Page no 393

clc;
clear;
close;

//Given data

p=0;                // Power per channel
fl=0.2;             // Fiber loss
f=50;               // Wavelength


// The total power at the fiber output.
pc=10^(0.1*p);
tp=pc*11;
tp1=10*log10(tp);
tfl=fl*f;
to=tp1-tfl;




//Displaying results in the command window            
printf("\n The total power at the fiber output = %0.3f dBm ",to);