1 files changed, 28 insertions, 0 deletions
diff --git a/3547/CH9/EX9.2/EX9_2.sce b/3547/CH9/EX9.2/EX9_2.sce
new file mode 100644
index 000000000..089134582
--- /dev/null
+++ b/3547/CH9/EX9.2/EX9_2.sce
@@ -0,0 +1,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);
+