студенческая работа периода учебы
(«Телесистемы»: Конференция «Микроконтроллеры и их применение»)
миниатюрный аудио-видеорекордер mAVR

Отправлено net 06 февраля 2003 г. 17:46
В ответ на: Неужели для МК нет менее ресурсоемких и сложных алгоритмов? Делал как-то на Паскале для персоналки. Можно-ли засунуть это в МК - вопрос (хотя смотря для какой частоты) отправлено Виноградов Алексей 06 февраля 2003 г. 17:05

subroutine fft(n,xok,m,c,d)
complex xok(n),u,w,t
nv2=n/2
nm1=n-1
j=1
do 7 i=1,nm1
if(i.ge.j)goto5
t=xok(j)
xok(j)=xok(i)
xok(i)=t
5 k=nv2
6 if(k.ge.j)goto7
j=j-k
k=k/2
goto6
7 j=j+k
pi=3.1416
do 20 l=1,m
le=2**l
le1=le/2
u=(1.,0.)
si=-1.*c*sin(pi/le1)
w=cmplx(cos(pi/le1),si)
do 20 j=1,le1
do 10 i=j,n,le

ip=i+le1
t=xok(ip)*u

xok(ip)=xok(i)-t
10 xok(i)=xok(i)+t
20 u=u*w
do 33 i=1,n

33 xok(i)=xok(i)/(nv2*d)
xok(1)=xok(1)/2.
return
end

Составить ответ  |||  Конференция  |||  Архив

Ответы
Перейти к списку ответов  |||  Конференция  |||  Архив  |||  Главная страница  |||  Содержание  |||  Без кадра

E-mail: info@telesys.ru