summaryrefslogtreecommitdiff
path: root/25/CH11/EX11.1/11_1.sce
blob: 6bbc4457805604ce096ab7b0601ea27976c47a18 (plain)
1
2
3
4
5
6
7
8
9
10
11
// example:-11.1,page no.-589.
// program to determine the equivalent noise temperature of the amplifier.
T1=290;P1=-62;G=100;B=10^9;k=1.38*10^-23;
T2=77;P2=-64.7;Ts=450;
Y=P1-P2;  // Y-factor in db.
Y=10^0.27;
Te=(T1-Y*T2)/(Y-1);
Po=G*k*B*(Ts+Te);
Po=10*log10(Po/0.001); /// converting in to dBm.
disp(Te,'the equivalent noise temperature in kelwin = ')
disp(Po,'the total noise power out of the amplifier in dBm will be = ')