Return to fft-bench.fs CVS log

Up to [gforth] / gforth

Annotation of gforth/fft-bench.fs, revision 1.1

1.1     ! pazsan      1: \ fft based floating point benchmark
        !             2: 
        !             3: require fft.fs
        !             4: 
        !             5: : >values ( -- ) #points 0 ?DO  I $55 and s>f I $AA and s>f I values z!  LOOP ;
        !             6: 
        !             7: : setup ( -- ) 16 1024 * points >values ;
        !             8: 
        !             9: : main setup fft rfft normalize ;