Delphi 1D und 2D FFT DFT rekursiv

Thema durchsuchen

Ansicht

Themen-Optionen

1D und 2D FFT DFT rekursiv

Ein Thema von alleinherrscher · begonnen am 24. Mai 2013 · letzter Beitrag vom 24. Jun 2024

Vorheriger Beitrag

Nächster Beitrag

sx2008

Registriert seit: 15. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge

Delphi 2007 Professional

AW: Vorschlag für CodeLib: 1D und 2D FFT DFT rekursiv

24. Mai 2013, 12:29

Kann das sein, dass 2 mal der gleiche Ausdruck VarComplexExp(VarComplexCreate(0,-2*Pi*k/n)) berechnet wird?
Den Faktor bräuchte man doch nur einmal in der Schleife zu berechnen:

markieren

Delphi-Quellcode:

			for k := 0 to (n div 2)-1 do

begin

   v := VarComplexExp(VarComplexCreate(0,-2*Pi*k/n));

   result[k]:=g[k]+u[k]*v;

   result[k+(n div 2)]:= g[k] - u[k]*v;

end;