БПФ синусоиды - Цифровая обработка сигналов - Ответ 5884416

procedure MakeFFT;  {Процедура самого преобразования}
 var
  fftb:          TFFTBase; //класс, который реализует БПФ
  fFFTComplBuf:  ^TComplexArray;  //Буфер для хранения комплексных величин
  i: integer;
 begin
  GetMem(fFFTComplBuf, BufSize*SizeOf(TComplex)); //Выделение памяти под массив
  for i:=0 to BufSize-1 do //Заполняем данными массив
   begin
    fFFTComplBuf[i].Re := fDataBuf[i];
    fFFTComplBuf[i].Im := 0;
     end;
 
  fftb:=TFFTBase.Create(nil);
 
//FFT - выполнение БПФ
//Параметры задаваемые процедуре :
 //указатель на массив данных (с комплексными числами)
 //N - количество данных (размерность массива)
 //2^X=N (степень числа два)
 //False – прямое преобразование; True – обратное
 //Тип окна:
  // 0-прямоугольное
  // 1-треугольное
  // 2-Хэминга
  // 3-Ханна
  // 4-Блэкмана
 
  fftb.FFT(Pointer(fFFTComplBuf), BufSize, 8, False, 0);
 
  for i:=0 to BufSize-1 do //Переносим результат БПФ в исходный массив
   begin
    fDataBuf[i] := Round(fFFTComplBuf[i].Re / 500);  //заполняем массив выходными значениями (предварительно масштабируем их)
     end;
 
  fftb.Free;
  FreeMem(fFFTComplBuf, BufSize*SizeOf(TComplex)); //Освобождение памяти выделенной под массив
end;
 
procedure TForm1.Button6Click(Sender: TObject);
var i: integer;
begin
MakeFFT();   
  for i:=0 to Trunc((d/2)-1) do   
   begin
   // tmpY := Round(Buf[i]);
     Series2.addxy(i, Buf[i],'',clblue);
end;
 end;