summaryrefslogtreecommitdiff
path: root/3506/CH16/EX16.3/Ex_16_3.sce
blob: e43e802ec69fce59ea61b3249bb0c24bb889d650 (plain)
1
2
3
4
5
6
7
8
9
10
11
//Optical Fiber communication by A selvarajan
//example 16.3
//OS=Windows XP sp3
//Scilab version 5.5.1
clc;
clear all;
alpha=0.2//fiber loss in dB/Km
LA=50//Amplifier spacing in Km
G=(alpha*LA)//gain in fiber
PbyPo=G*log(G)/(G-1)//Multiple of power required by single soliton
mprintf('Multiple of power required by single soliton =%f ',PbyPo)// the answer is slightly varing due to rounding error