% ECE464 - Lab03 -- Doppler Spread --- bkf@comm.utoronto.ca
% code to be run as part of the experiment

clear rrx, close all

rrx=rx(:,1:300000);
a=0:96000/4096:96000;

zrx=abs(fft(rrx,4096));

figure, subplot(2,1,1), plot(a(1:2048), zrx(1:2048))
subplot(2,1,2), plot(a(450:550),zrx(450:550))