Commit e8e48977 authored by Sumant Oemrawsingh's avatar Sumant Oemrawsingh
Browse files

Fixed offset for vector initialisation to better match GSL's tests.

parent 8e694be0
......@@ -163,7 +163,7 @@
(copy-with-stride vector :stride stride :init-offset 2000)
:stride stride)))
(values forward
(inverse-fourier-transform (copy-with-stride forward :init-offset 0)
(inverse-fourier-transform (copy-with-stride forward :stride stride :init-offset 0)
:stride stride)
;; in backward-fourier-transform, we could use copy instead of ;;
;; copy-with-stride
......
......@@ -58,7 +58,7 @@
(lisp-unit:*measure* :infinity))
(when (> ,stride 1)
(fft-complex-off-stride-check fft ,stride 2000)
(fft-complex-off-stride-check fft-roundtrip ,stride 2000)
(fft-complex-off-stride-check fft-roundtrip ,stride 0)
(fft-complex-off-stride-check fft-reverse ,stride 2000)
(setf dft (grid:stride dft ,stride)
fft (grid:stride fft ,stride)
......@@ -113,5 +113,5 @@
(fft-test-forms size 1)))))
;;; (all-fft-test-forms 20 3)
(all-fft-test-forms 20 3)
;;; Tests commented out because they come out not so good.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment