ДПФ пример программной реализации Delphi

← →
darvin © (2005-12-28 11:31) [0]

У кого-нибудь есть пример программной реализации дискретного (не быстрого) преобразования Фурье на Delphi. Был бы очень признателен

← →
MBo © (2005-12-28 12:52) [1]

"медленное" FT пишется весьма просто - формулы для мнимой и реальной части:
Fn(Re)=Sum(k=0..N-1)[f(k)*Cos(2*Pi*k*n/N)]
Fn(Im)=Sum(k=0..N-1)[f(k)*Sin(2*Pi*k*n/N)]
(n=-N/2...N/2)

Записать это на паскале - труда не составляет.

← →
darvin © (2005-12-28 13:35) [2]

Спасибо!
А как после прямого сделать обратное преобразование?

← →
MBo © (2005-12-28 14:08) [3]

>обратное преобразование?
f и F, k и n местами поменять
мнимую часть с отрицательным знаком сделать (реальную ни к чему - косинус - четная функция), и для нормировки обычно на N еще делят.

спасибо, попробую :)

ДПФ пример программной реализации Delphi Найти похожие ветки