Fast Fourier transform: Difference between revisions

Content added Content deleted

Inline

@@ Line 677: / Line 677: @@
       a
       (let* ((n/2 (/ n 2))
-             (2i*pi/n (complex 0 (/ (* 2 pi) n (if inverse -1 1))))
+             (2iπ/n (complex 0 (/ (* 2 pi) n (if inverse -1 1))))
-             (⍵_n (exp 2i*pi/n))
+             (⍵_n (exp 2iπ/n))
              (⍵ #c(1.0d0 0.0d0))
              (a0 (make-array n/2))