% funktion  dfm = dftmatrix(nel)
% produziert zum Nachvollziehen einer FFT im Skript shofftalgo.m
% als Vergleich die volle kompexe DFT Matrix zur Dimension nel
function dfm = dftmatrix(nel)
 w =  exp(-i*2*pi/nel); 
 dfm = ones(nel);
 for k=2:nel
  for n=2:nel
    dfm(k,n) = w^((k-1)*(n-1)); 
  end
 end
