diff options
Diffstat (limited to '3834/CH12/EX12.4.1/Ex12_4_1.sce')
| -rw-r--r-- | 3834/CH12/EX12.4.1/Ex12_4_1.sce | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/3834/CH12/EX12.4.1/Ex12_4_1.sce b/3834/CH12/EX12.4.1/Ex12_4_1.sce new file mode 100644 index 000000000..0ed60d0bb --- /dev/null +++ b/3834/CH12/EX12.4.1/Ex12_4_1.sce @@ -0,0 +1,23 @@ +//Fiber Optics Communication Technology, by Djafer K. Mynbaev and Lovell L.scheiner
+//Windows 8
+//Scilab version- 6.0.0
+//Example 12.4.1
+clc;
+clear ;
+//given
+
+//case 1
+Pin=300E-6;//light input power in W
+Pout=60E-3;//output power in W
+
+Gain=Pout/Pin;//Gain
+x=log10(Gain);
+Gdb=10*x;//Gain of erbium-doped fiber for case in dB
+
+mprintf("Gain of erbium-doped fiber for case 1 = %.0f dB",Gdb);
+
+//case 2
+Pase=30E-6;//ASE power in W
+
+Gdb2=10*log10(Gain-(Pase/Pin));//Gain of erbium-doped fiber for case 2 in dB
+mprintf("\nGain of erbium-doped fiber for case 2 = %.0f dB",Gdb);
|