summaryrefslogtreecommitdiff
path: root/3834/CH3/EX3.2.1/Ex3_2_1.sce
blob: f98f248676935491d8b7ddb0cd786b4478158c9f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//Fiber Optics Communication Technology, by Djafer K. Mynbaev and Lovell L.scheiner
//Windows 7
//Scilab version- 6.0.0
//Example 3.2.1
clc;
clear;
//given

A=0.5;//attenuation in dB/Km
Pin=1E-3;//input power in milli watts
L=15;//length in kilometers

a=[(-A*L)/10];
b=10^(a);
Pout=(Pin*b)*1E3;
mprintf("ouput power is=%.3f mW",Pout);