summaryrefslogtreecommitdiff
path: root/1739/CH8/EX8.20/Exa8_20.sce
blob: 005e40a0c086e3d5300ae45ef3f6f60f357a44c9 (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
//Exa 8.20
clc;
clear;
close;
//Given data :
F=3;//in dB
F=10^(F/10);//unitless
M=1;//unitless
lambda=1.3;//in um
lambda=lambda*10^-6;//in meter
Id=16;//in nA
Id=Id*10^-9;//in Ampere
ETA=90;//Quantum Efficiency in %
RL=1000;//in Ohm
P=1.2;//in uW
P=P*10^-6;//in Watts
B=80;//in Mhz
B=B*10^6;//in Hz
T=20;//in degree C
T=T+273;//in kelvin
q=1.6*10^-19;//in c
K=1.38*10^-23;//Boltzman Constant
h=6.63*10^-34;//Planks constant
c=3*10^8;//in m/s
Ip=(ETA/100)*q*lambda*P/(h*c);//in Ampere
SbyN=Ip^2*M^2/(2*q*B*(Ip+Id)*M^2+(4*K*T*B*F/RL));
disp(SbyN,"SNR at the output : ");