Skip to content
Snippets Groups Projects
Commit 36517928 authored by Liam Healy's avatar Liam Healy
Browse files

Added function #'off-stride to make duplicate array with only the off-stride elements

parent f1fdb181
No related branches found
No related tags found
No related merge requests found
;; Fast fourier transform tests
;; Liam Healy 2010-08-14 11:58:26EDT fast-fourier-transform.lisp
;; Time-stamp: <2010-08-22 21:36:01EDT fast-fourier-transform.lisp>
;; Time-stamp: <2010-09-04 17:07:32EDT fast-fourier-transform.lisp>
;;
;; Copyright 2010 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -22,6 +22,16 @@
(defvar *allowed-ticks* 1000000)
(defun off-stride (array stride)
"Make a grid that is all of the original array except that the
stride points are excluded."
(grid:make-foreign-array
(element-type array)
:initial-contents
(loop for i from 0 below (grid:total-size array)
unless (zerop (mod i stride))
collect (grid:gref* array i))))
(defmacro fft-complex-result-check (form element-component-type)
"T if all FFT tests pass."
`(multiple-value-bind
......@@ -77,5 +87,4 @@
;;; (all-fft-test-forms 9 3 (64 99))
;;; Tests commented out because they come out not so good:
;;; FAST-FOURIER-TRANSFORM: 235 assertions passed, 55 failed.; No value
;;; Tests commented out because they come out not so good.
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment