File:  [gforth] / gforth / fft-bench.fs
Revision 1.4: download - view: text, annotated - select for diffs
Mon Oct 8 23:11:23 2012 UTC (8 years, 3 months ago) by pazsan
Branches: MAIN
CVS tags: HEAD
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

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