![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fft-bench.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to fft-bench.fs CVS log | Up to [gforth] / gforth |
| version 1.2, 2012/10/08 19:17:32 | version 1.3, 2012/10/08 23:04:11 |
|---|---|
| Line 6 require fft.fs | Line 6 require fft.fs |
| : setup ( -- ) 32 1024 * points >values ; | : setup ( -- ) 32 1024 * points >values ; |
| : main setup fft rfft normalize ; | |
| : main setup fft rfft normalize ; | |
| Variable pass | |
| : test ( -- ) main pass on | |
| #points 0 ?DO | |
| i values z@ fround f>s fround f>s | |
| I $aa and I $55 and d<> IF i . i values z@ z. cr pass off THEN | |
| LOOP pass @ IF ." passed test" cr THEN ; |