Fast Fourier transform: Difference between revisions
Content added Content deleted
Line 677: | Line 677: | ||
a |
a |
||
(let* ((n/2 (/ n 2)) |
(let* ((n/2 (/ n 2)) |
||
( |
(2iπ/n (complex 0 (/ (* 2 pi) n (if inverse -1 1)))) |
||
(⍵_n (exp |
(⍵_n (exp 2iπ/n)) |
||
(⍵ #c(1.0d0 0.0d0)) |
(⍵ #c(1.0d0 0.0d0)) |
||
(a0 (make-array n/2)) |
(a0 (make-array n/2)) |