@Michael Danke werde es mal testen.
Ich habe jetzt aber das Problem Gain wird in der FFT nicht berücksichtigt.
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].r := LimitedSingleValue(Dat[i].r * sr);
Dat[i].i := LimitedSingleValue(Dat[i].i * sr);
end;
Wo muss ich eine vergleichbare Berechnung zur FFT hinzufügen?
Mit deinen neuen FFT habe ich vielleicht 10 Pixel bei normaler Visualisierung.
Mit der von Matze wird die Visualisierung fast korrekt angezeigt aber mit einer Auslastung von 80% eines CPU Kerns.
gruss