summaryrefslogtreecommitdiff
path: root/2333/CH6/EX6.13/13.sce
blob: c71f376c7c2777087396c94a2fc61d454477a8a3 (plain)
1
2
3
4
5
6
7
8
9
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)