www.pudn.com > CDMA.rar > autocorr.m

% Program 5-1 
% autocorr.m 
% 
% Autocorrelation function of a sequence 
% 
% Programmed by M.Okita and H.Harada 
% 
 
function [out] = autocorr(indata, tn) 
 
% **************************************************************** 
% indata : input sequence 
% tn     : number of period 
% out    : autocorrelation data 
% **************************************************************** 
 
if nargin < 2 
    tn = 1; 
end 
 
ln  = length(indata); 
out = zeros(1,ln*tn); 
 
for ii=0:ln*tn-1 
    out(ii+1) = sum(indata.*shift(indata,ii,0)); 
end 
 
%******************************** end of file ********************************