function c = convoldemo(a,b)
%  a,b Eingangs-Zahlenfolgen zur Faltung  convoldemo(a,b)
%    mit graphischer Demonstration
n1 = length(a);  n2 = length(b); % Laengen
nr = n1 + n2 - 1;
% plot arrays haben zuaetzliche Randwerte 0
cpl = zeros(1,nr+2);  cpl0 = cpl;
cplp = cpl;  cplo = cpl;  xpl = 0:(nr+1);
% Ordinaten-maximum
cmx = max(conv(a,b));
% Schleife
for k = 1:n1
cplp = cpl0-0.1;
  for l = 1:n2
    cpl(k+l-1+1) = cpl(k+l-1+1) + a(k)*b(l);
    cplp(k+l-1+1) = cplp(k+l-1+1) + a(k)*b(l);
  end
   c=  cpl(2:nr+1)
% plot Teilschritt
   plot(xpl,cpl0,'k');    hold on;  axis([0 nr+1 -0.5 cmx+0.5])
   plot(xpl, cplp,'r' );  plot(xpl, cplo,'g' )
   plot(xpl, cpl,'b' );  hold off; cplo = cpl;
  pause
end
%    c = cpl(2:nr+1);
