function xc=xcorn(x,y,n)
%function xc=xcorn(x,y,n)
% cross correlation between x and y for n lags starting at lag zero
m=length(x);
%xc1=xcov(y,x,'coeff');% note reversal of x and y
xc1=xcov(x,y,'coeff');% note reversal of x and y(Fixed in ver 3 Signal)
xc=xc1(m:n+m-1);% zeroth lag begins at m
