Return to fft-bench.fs CVS log | Up to [gforth] / gforth |
FFT selftest
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 ( -- ) 32 1024 * points >values ; 8: 9: <<<<<<< HEAD 10: : main setup fft rfft normalize ; 11: 12: Variable pass 13: : test ( -- ) main pass on 14: #points 0 ?DO 15: i values z@ fround f>s fround f>s 16: I $aa and I $55 and d<> IF i . i values z@ z. cr pass off THEN 17: LOOP pass @ IF ." passed test" cr THEN ; 18: ======= 19: : main setup fft rfft normalize ; 20: >>>>>>> refs/heads/origin