summaryrefslogtreecommitdiff
path: root/2333/CH6/EX6.13/13.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2333/CH6/EX6.13/13.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '2333/CH6/EX6.13/13.sce')
-rwxr-xr-x2333/CH6/EX6.13/13.sce10
1 files changed, 10 insertions, 0 deletions
diff --git a/2333/CH6/EX6.13/13.sce b/2333/CH6/EX6.13/13.sce
new file mode 100755
index 000000000..c71f376c7
--- /dev/null
+++ b/2333/CH6/EX6.13/13.sce
@@ -0,0 +1,10 @@
+clc
+// Given that
+l = 150 // length of fiber in meter
+P_in = 10 // power of input signal in micro Watt
+P_out = 8 // power of output signal in micro Watt
+// Sample Problem 13 on page no. 280
+printf("\n # PROBLEM 13 # \n")
+alpha = (10 * log10(P_in / P_out))/l //calculation for absorption coefficient
+printf("\n Standard formula used \n alpha=10/L*log(Pi/Po).\n")
+printf("\n Attenuation loss is %f dB/m. ",alpha)