diff options
Diffstat (limited to 'fft.scm')
| -rw-r--r-- | fft.scm | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -39,7 +39,7 @@ (slib:error 'fft "array length not power of 2" n)) (do ((k 0 (+ 1 k))) ((>= k n) new) - (array-set! new (* (array-ref ara k) scale) (bit-reverse lgn k)))) + (array-set! new (* (array-ref ara k) scale) (reverse-bit-field k 0 lgn)))) (define (dft! ara n dir) (define lgn (integer-length (+ -1 n))) @@ -66,7 +66,7 @@ ;;@dfn{Discrete Fourier Transform} of @var{array}. (define (fft ara) (define n (car (array-dimensions ara))) - (define new (apply create-array ara (array-dimensions ara))) + (define new (apply make-array ara (array-dimensions ara))) (dft! (fft:shuffle&scale new ara n 1) n 1)) ;;@args array @@ -74,7 +74,7 @@ ;;inverse Discrete Fourier Transform of @var{array}. (define (fft-1 ara) (define n (car (array-dimensions ara))) - (define new (apply create-array ara (array-dimensions ara))) + (define new (apply make-array ara (array-dimensions ara))) (dft! (fft:shuffle&scale new ara n (/ n)) n -1)) ;;@noindent |