Annotation of gforth/fft-bench.fs, revision 1.4
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.4 ! pazsan 9: <<<<<<< HEAD
1.3 pazsan 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 ;
1.4 ! pazsan 18: =======
! 19: : main setup fft rfft normalize ;
! 20: >>>>>>> refs/heads/origin
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>