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

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: 
1.2       pazsan      7: : setup ( -- ) 32 1024 * points >values ;
1.1       pazsan      8: 
1.3       pazsan      9: : main setup fft rfft normalize ;
                     10: 
                     11: Variable pass
                     12: : test ( -- )  main pass on
                     13:     #points 0 ?DO
                     14:        i values z@ fround f>s fround f>s
                     15:        I $aa and I $55 and d<> IF i . i values z@ z. cr pass off THEN
                     16:     LOOP  pass @ IF ." passed test" cr THEN ;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>