Revision as of 21:54, 18 May 2021 (view source) Rubik (talk \| contribs) (→‎{{header\|Common Lisp}}) ← Older edit		Revision as of 09:18, 19 May 2021 (view source) Rubik (talk \| contribs) m (→‎{{header\|Common Lisp}}) Newer edit →
Line 677: a (let* ((n/2 (/ n 2)) (~~2ipi~~2iπ/n (complex 0 (/ ( 2 pi) n (if inverse -1 1)))) (⍵_n (exp ~~2i*pi~~2iπ/n)) (⍵ #c(1.0d0 0.0d0)) (a0 (make-array n/2))

Fast Fourier transform: Difference between revisions

Fast Fourier transform (view source)