: how can i implement the fft in delphi 7?
: i have two arrays with lot of numbers -> data.
: i would realize this functions:
: please help.
Here is the code for the A() function, but I won't write all four. You need to figure out the other three.
function LargeA(n: integer; a: array of double; j: double): double;
Result := 0;
for i := 0 to High(a) do
Result := Result + a[t]*exp(-2*j*pi*n*t/Length(a));
I've used the same symbols as in the formula, so that shouldn't be a problem.