summaryrefslogtreecommitdiff
path: root/2606/CH8/EX8.10/ex8_10.sce
blob: 9140b92b4e38169f750f734b74918676dd1c925c (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
//Page Number: 8.12
//Example 8.10
clc;


//Given
K=1.38D-23;
B=40D+6;

Tant=600; //Kelvin
Trec=3000; //Kelvin

G=80; //dB
GG=(10^(G/10));

//Input noise power from antenna
Nant=K*Tant*B; //W
disp('W',Nant,'Nant=');

Nrec=K*Trec*B; //W
disp('W',Nrec,'Nant=');

Nout=(Nant+Nrec)*GG;
disp('W',Nout,'Reciver Noise Power Output');