get_fft.pas

来自「The frequency domain plays an important 」· PAS 代码 · 共 15 行

Procedure get_FFT(var data: array[l0..h0:s_int] of real;
 var r_pt: array[l1..h1:s_int] of real;
 var i_pt: array[l2..h2:s_int] of real;
 size: s_int);
 var i: s_int;
 begin
 i = 1;
while i<size do
 begin
 r_pt[i] := data[i] + data[size - i + 1];
i_pt[i] := data[i] - data[size - i + 1];
 i := i + 2;
 end;
end;