ebtono.m

Electronic Communication Systems的Matlab源码

%
% Energy per bit to noise density ratio assuming a noise temperature of 350K.
% The user enters the transmitted and received powers, frequency, bit rate 
% and minimum and maximum antenna spacing
% 
%

%

f=input('Enter the Transmitter carrier frequency in Megahertz  ');
bit_rate=input('Enter the system bit rate in bits/sec  ');
Pt=input('Enter the transmitter power in watts  ');
Gt=input('Enter the transmitter antenna gain in dBi  ');
Gr=input('Enter the receiver antenna gain in dBi  ');
dmin=input('Enter the minimum distance between receiver and transmitter in km  ');
dmax=input('Enter the maximum distance between receiver and transmitter in km  ');


%
% obtain distance vector
%
dstep=(dmax-dmin)/100;
d=dmin:dstep:dmax;


%
% Compute the overall loss in dB
% 
%
loss =(Gt + Gr - (32.44+20*log10(d)+20*log10(f)));

%
% Compute the received power
%

Pr = Pt*(10.^(loss/10));

%
% Compute energy bit rate to noise density ratio
%
Eb = Pr/bit_rate;

k = 1.38e-23;
T = 350;
N = k*T;

result = 10*log10(Eb/N);

%
% Plot energy per bit to noise ratio over the antenna spacing range
%
clf
figure(1)

plot(d,result);
title('Energy per bit to noise density ratio in dB for a range of antenna spacing')
ylabel('dB')
xlabel('transmitter receiver spacing in km')
grid
%