summaryrefslogtreecommitdiff
path: root/2183/CH8/EX8.13/Ex_8_13.sce
blob: b6e7acdfb7f38b2b4ba1e680a900bbfca7eed634 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
// Example 8.13 //optical power
clc;
clear;
close;
fdb=6;//
f=10^(fdb/10);//
e=1.6*10^-19;//electron charge
sndb=45;//signal to noise ration in dB
sn=(10^(sndb/10));//
h=6.63*10^-34;//planck constant
c=3*10^8;//m/s
e=1.6*10^-19;//
n=0.6;//efficneicny
ma=0.5*10^-3;//
k=1.38*10^-23;//boltzman constant
tk=300;//degree celcius
bw=8;//MHz
rl=50;//kilo ohms
po=((h*c)/(e*n*ma^2))*sqrt((8*k*tk*bw*10^6*f)/(rl*10^3))*sqrt(sn);//
disp(po*10^6,"average power incident in micro Watts is")