summaryrefslogtreecommitdiff
path: root/3834/CH12/EX12.3.1/Ex12_3_1.sce
blob: 44e500d0b4c32fbec2f84327597736376f94bc39 (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
//Fiber Optics Communication Technology, by Djafer K. Mynbaev and Lovell L.scheiner
//Windows 8
//Scilab version- 6.0.0
//Example 12.3.1
clc;
clear ;
//given

R=0.32;//Reflectance (power reflection coeeficient)

//case 1 Gs value assumed as 2
Gs=2;//assumed single-pass amplification factor

x=Gs*((1-R)^2);
y=(1-R*Gs)^2;
Gfpa=x/y;

mprintf("Gain of Fabry-Perot semiconductor optical amplifier = %.2f or %.1f dB for Gs=2",Gfpa,10*log10(Gfpa));

//case 2 Gs value assumed as 3
Gs2=3;//assumed single-pass amplification factor

x2=Gs2*((1-R)^2);
y2=(1-R*Gs2)^2;
Gfpa2=x2/y2;//Gain of Fabry-Perot semiconductor optical amplifier

mprintf("\nGain of Fabry-Perot semiconductor optical amplifier = %.2f or %.1f dB for Gs=3",Gfpa2,10*log10(Gfpa2));