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

Initial test function complex case now works.

The reason why the complex case didn't work in example.lisp, is that the FFTs
(not DFTs) work in-place. for reals it worked because the random (source)
vector was copied (or at least, only the real part) before FFT-ing. Now, it's
also copied in the complex case.
parent 7663933a
...@@ -88,7 +88,7 @@ ...@@ -88,7 +88,7 @@
(forward (forward
(forward-fourier-transform (forward-fourier-transform
(if (subtypep element-type 'complex) (if (subtypep element-type 'complex)
random-vector (copy-making-destination random-vector)
(realpart-vector random-vector)) (realpart-vector random-vector))
:stride stride))) :stride stride)))
(values (values
...@@ -98,3 +98,4 @@ ...@@ -98,3 +98,4 @@
(unpack forward :unpack-type 'complex :stride stride))))) (unpack forward :unpack-type 'complex :stride stride)))))
;;(test-fft-noise 'double-float 10 :stride 5) ;;(test-fft-noise 'double-float 10 :stride 5)
;;(test-fft-noise '(complex double-float) 10 :stride 5)
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