| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ДПФ пример программной реализации Delphi [D7, XP]
darvin © (2005-12-28 11:31:00)У кого-нибудь есть пример программной реализации дискретного (не быстрого) преобразования Фурье на Delphi. Был бы очень признателен
darvin (2005-12-28 14:23:00) [1]спасибо, попробую :)
MBo (2005-12-28 14:08:00) [2]>обратное преобразование?
f и F, k и n местами поменять
мнимую часть с отрицательным знаком сделать (реальную ни к чему - косинус - четная функция), и для нормировки обычно на N еще делят.
darvin (2005-12-28 13:35:00) [3]Спасибо!
А как после прямого сделать обратное преобразование?
MBo (2005-12-28 12:52:00) [4]"медленное" 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)
Записать это на паскале - труда не составляет.
| |
