autocorr.m

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

%%%%%%%%%%%%%     Autocorr      %%%%%%%%%%%%%%%
function Auto_co=Autocorr(vector)  %%%% 
len=length(vector);
vector=real(vector);
Normal=mean(vector.*vector);
vector_shift=vector;
auto_corr=[];
for i=1:len
    auto_corr(i)=mean(vector_shift.*vector)/Normal;
    vector_shift=[0,vector_shift];
    vector=[vector,0];
end;

Auto_co=auto_corr;