correlation.m

One programme use carrier of OFDM

function [out]=correlation(indata1,indata2,r)
% Calculate the correlation function between the 
% indata1 and indata2 r the shift elements
[vc vh]=size(indata1);
perm_indata1=permute(indata1,[2 1]);
perm_indata2=permute(indata2,[2 1]);
shiftdata1=circshift(perm_indata1,r);
shiftdata2=circshift(perm_indata2,r);
%outdata=0;
for i=1:vc
       outdata(i)=indata1(i,:)*shiftdata2(:,i);
end
out=sum(outdata);