Hoi EWeiss
mit Tests wie beschrieben
Delphi-Quellcode:
for i := 0 to FFFTSize -1 do
begin
Dat[i].r := cos(i/FFFTSize*2*pi);
Dat[i].i := 0;
end;
kannst du prüfen, ob deine FFT überhaupt korrekte Resultate zurückmeldet. Du kannst deine FFT direkt mit diesem Test-Dat-Array aufrufen oder den Test-Code wie beschrieben einfügen in deine FFT.
Dann setzt du einen Breakpoint am Ende deiner FFT Prozedur und überprüfst, ob FFT korrekt rechnet (ob korrekte Werte in Dat stehen).
Wenn keine korrekten Werte drin stehen, dann
- musst du deine FFT proc checken.
oder
- du nimmst eine fertige FFT proc hier aus dem Forum.