Habe es versucht aber deine Version funktioniert leider nicht.
Mit meiner FFT.
nur das hier von mir geändert.
Delphi-Quellcode:
if FView = 0
then
sr := (4096 * FGain) / FFFTSize
else
sr := 1 / FFFTSize;
for i := 0
to (FFFTSize
div 2) - 1
do
begin
Dat[i].re :=
tp[i].re * sr;
Dat[i].im :=
tp[i].im * sr;
end;
anbei noch ein shot der Ringe..
gruss