On Sat, Sep 4, 2010 at 1:03 PM, Liam Healy lhealy@common-lisp.net wrote:
Yup randomness is removed. I'll write the on-stride and off-stride tests, but I now I need to understand where to apply them.
Sumant,
I've created a function gsll::off-stride in tests/fast-fourier-transform.lisp that copies the array for all elements except the on-stride elements. For example:
(off-stride #4m(#C(0.26385453 0.0) #C(1002.0 1003.0) #C(0.106692255 0.0) #C(1006.0 1007.0) #C(0.8149124 0.0) #C(1010.0 1011.0) #C(0.19136061 0.0) #C(1014.0 1015.0)) 2)
#4m(#C(1002.0 1003.0) #C(1006.0 1007.0) #C(1010.0 1011.0) #C(1014.0 1015.0))
Together with the function grid:stride, which copies just the on-stride elements:
(grid:stride #4m(#C(0.26385453 0.0) #C(1002.0 1003.0) #C(0.106692255 0.0) #C(1006.0 1007.0) #C(0.8149124 0.0) #C(1010.0 1011.0) #C(0.19136061 0.0) #C(1014.0 1015.0)) 2)
#4m(#C(0.26385453 0.0) #C(0.106692255 0.0) #C(0.8149124 0.0) #C(0.19136061 0.0))
I think you have should everything you need to do the tests.
Liam