{$I DECL.TLD}
{$I STAT.TLD}

var  x,y,h : RealArrayType_TL;
     n,i   : integer;
begin
  clrscr;
  writeln('Durchfuehrung einer diskreten Korrelation zweier Rechtecke');
  writeln;

  n:=15;   { Anzahl der Stuetzstellen }

  { ------ Erzeugung der Rechtecke ------ }
  for i:=1 to n do
  begin
    x[i]:=0.0;
    h[i]:=0.0;
    if i<n div 2
    then begin
           x[i]:=1.0;
           h[i]:=0.5;
          end;
  end;

  { ------ Durchfuehrung der Kreuzkorrelation ------ }
  correlate(x,h,y,n);

  writeln;
  writeln('Index      Korrelationsfunktion');
  writeln;

  for i:=1 to n do writeln(i,'        ',y[i]);
end.