Скачать: CL | DM;

ДПФ пример программной реализации 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 еще делят.

---

← →
darvin ©   (2005-12-28 14:23) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c