% Kreuzkorrelation von x und y
% ----------------------------
%
% Aufruf:
% Function [rxy]=ccorr2(x,y,M)
%
% Parameter:
%
% Rückgabewerte:

% -------------------------------------------------------------------------
% Datum : ..2001
% Autor : Jens Ahrensfeld
% Thema : Diplomarbeit
% Datei : newfunc.m
% Benötigte Dateien: 
%
% -------------------------------------------------------------------------
function [rxy]=ccorr2(x,y,M)

% Berechne Erwartungswert xm, ym von X und Y im Intervall N
for n = N:N:L-W,
 rmax(k) = 0;
 for w = 0:W-1
  sxy(k)  = sum(x(n+w:-1:n-N+1+w).*y(n:-1:n-N+1));
  sxym(k) = sum(abs(x(n+w:-1:n-N+1+w).*y(n:-1:n-N+1)));
  rmax(k) = max(sxy(k)/sxym(k),rmax(k));
 end;
% r(n:-1:n-N+1) = ones(N,1)*sxy(k)/sxym(k); 
 r(n:-1:n-N+1) = ones(N,1)*min(rmax(k),1); 
 k = k+1;
end;