plotspectrum2.m

Jakes Model + Rayleigh Channel + Time Selective Fading + Frequency Selective Fading

%%%%%%%%%%%%%    Plot Spectrum      %%%%%%%%%%%%%%%
function Plot_Spectrum2=PlotSpectrum2(input,width)

%%%%  width       % width of the siginal [s]
%%%%  input       % samples of the siginal 
points =length(input);     % number of samples
dt = width/points;       % sampling period

signal= zeros(1,10*points);
signal(1:points)=input;

% -----------------------------
% Step - Calculate
% -----------------------------
fs = 1/dt;        
N = length(signal);  
T = N * dt;         
df = 1/T;        

X = fft(signal); 
X = X/N;         
Freq=abs(X);
Freq=fftshift(Freq);
% -----------------------------
% Step - Plot
% -----------------------------
frequency=linspace(-1,1,length(Freq));
PF=semilogy(frequency,Freq);
grid on;
%axis([-5e9 5e9 0 5e-9]);
T=title('Transfer Function');
set(T,'FontSize',14);
X=xlabel('Round Frequency [pi]');
set(X,'FontSize',14);
Y=ylabel('Normalized Magnitude (dB)');
set(Y,'FontSize',14);