get_pwr.pas

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

 procedure get_power_spectrum
 (var data: array[l0..h0:s_int] of real;
 var p_sp: array[l1..h1:s_int] of real;
size: s_int);
 var i: s_int;
begin
 i := 1;
while i<size do
 begin
 p_sp[i] := (data[i] * data[i] + data[size - i + 1] *
 data[size - i]) / 2;
 i := i + 1;
 end;
 end;