summaryrefslogtreecommitdiff
path: root/2414/CH13/EX13.3/Ex13_3.sce
blob: 337ad9ad93bad6bec30b15ac9135eceac1f84fef (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
29
30
31
clc;
close();
clear();
//page no 447
//prob no. 13.3
k=1.38*10^-23;   //Boltzmann's const
//Temperatures in K
Ti=150;
Te=325;
Tsys=Ti+Te;
mprintf(' Tsys=%i K \n',Tsys);
D=5;
W=15;   //kHz
B=2*(1+D)*W;
mprintf('  B=%i  kHz\n',B);
Nsys=k*Tsys*B*10^3;   //W
mprintf('  Nsys=%.3f fW\n',Nsys*10^15);
PR=50*10^-12;   //W
SNsys=PR/Nsys; 
mprintf('  (S/N)sys=%i  \n',SNsys);
GR=3*(1+D)*D^2
mprintf('  GR=%.0f  \n',GR);
SNoutput=GR*SNsys;
mprintf('  (S/N)output=%.0f  \n',SNoutput);
mprintf('  (S/N)out,dB=%.2f  dB\n',10*log10(SNoutput));
mprintf('  (S/N)sys,dB=%.2f  dB\n',10*log10(SNsys));
GRdb=10*log10(GR);
mprintf('  GR,dB=%.2f dB \n',GRdb);
mprintf('  (S/N)output,dB=%.2f  dB\n',10*log10(SNoutput));