Unit FFT1

Classes

Functions

delete_fft - real_fft *) (* Fuert Bandpass aus
DoubleToLong - Wandelt reele Zahl in Integer um
fft_makereal - DoubleToLong*) { Wandelt FFT Ergebnis r[i],i[i] Array in Realbetraege Groesse ist dann Size/2! y[0] bleibt y[1,3,5 .
FFT_World - delete *) (* Ermittelt X und Y Bereiche fuer Bildschirmausgabe
real_fft - Real-FFT :

Reele FFT mit Umkehrfunktion ---------------------------------------- Eingabeparameter: direct:Boolean FALSE: Berechnung der diskkreten Fourierkoeffizienten TRUE: Berechnung der Funktionswerte tau:Integer 2 hoch tau ist Anzahl der Funktionswerte tau_2:Integer Anzahl der Funktionswerte VAR y: enthaelt Werte und zwar fuer direct= array[tau_2] FALSE : Funktionswerte og single TRUE: Diskrete Fourierkoeffizienten y[0]=a0 y[k]=a(k+1)/2 mit k=1,3,.

Types

Constants

Variables


Functions


procedure delete_fft(von,bis,anz:Integer;VAR y:array of single);

real_fft *) (* Fuert Bandpass aus

function DoubleToLong(d:single):Longint;

Wandelt reele Zahl in Integer um

procedure fft_makereal(var y:array of single;Size:Integer);

DoubleToLong*) { Wandelt FFT Ergebnis r[i],i[i] Array in Realbetraege Groesse ist dann Size/2! y[0] bleibt y[1,3,5 ...] :=betrag

procedure FFT_World(i:integer; A:array of single; var XMax:Integer; var YMax,YMin:single; precis:single);

delete *) (* Ermittelt X und Y Bereiche fuer Bildschirmausgabe

procedure real_fft(tau,tau_2:Integer;VAR y:array of single;direkt:Boolean);

Real-FFT :

Reele FFT mit Umkehrfunktion ---------------------------------------- Eingabeparameter: direct:Boolean FALSE: Berechnung der diskkreten Fourierkoeffizienten TRUE: Berechnung der Funktionswerte tau:Integer 2 hoch tau ist Anzahl der Funktionswerte tau_2:Integer Anzahl der Funktionswerte VAR y: enthaelt Werte und zwar fuer direct= array[tau_2] FALSE : Funktionswerte og single TRUE: Diskrete Fourierkoeffizienten y[0]=a0 y[k]=a(k+1)/2 mit k=1,3,...,tau_2-1 also in der Reihenfolge a0 a1 b1 a2 b2 Ausgabeparameter: y:array[tau_2] fuer direct= FALSE: diskrete Fourierkoeffizienten (s.o) TRUE: Funktionswerte Benoetigt: sin cos und PI:=3.141... tau_2 MUSS 2 hoch n sein !!! -----------------------------------------------------------------------


Types


Constants


Variables