summaryrefslogtreecommitdiff
path: root/3543/CH8/EX8.45/EX8_45.sce
blob: 9933c707b8ccbe6dcd7ecb901c09b4ea74106e3c (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
26
27
28
// Example 8.45
// Calculation of incident optical power.
// Page no 499

clc;
clear;
close;

//Given data
lambda=1.3*10^-6;                      // Wavelength
B=6*10^6;                             // Bandwidth
S=10^5;                               // Total system margin
n=1;                                 // Efficiency
v=3*10^14;
h=6.62*10^-34;                       // Planck constant



// Incident optical power
P=(2*S*v*h*B)/n;  

P1=10*log10(P/10^-3);

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


// The answers vary due to round off error