summaryrefslogtreecommitdiff
path: root/3543/CH8/EX8.47/EX8_47.sce
blob: 8956f359670a3a84fcf135d91c4747ff15ed3395 (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
// Example 8.47
// Calculation of incident optical power.
// Page no 499

clc;
clear;
close;

//Given data

h=6.62*10^-34;                       // Planck constant
c=3*10^8;                           // velocity of light
lambda=1.55*10^-6;                 // Wavelength
B=400*10^6;                        // Speed of communication

// Maximum repeater spacing
P=(36*h*c*B)/lambda; 
P=10*log10(P/10^-3);


//Displaying results in the command window            
printf("\n Incident optical power(in nW) = %0.3f  ",P);


// The answers vary due to round off error