version 1.1, 2012/10/08 19:08:22
|
version 1.4, 2012/10/08 23:11:23
|
Line 4 require fft.fs
|
Line 4 require fft.fs
|
|
|
: >values ( -- ) #points 0 ?DO I $55 and s>f I $AA and s>f I values z! LOOP ; |
: >values ( -- ) #points 0 ?DO I $55 and s>f I $AA and s>f I values z! LOOP ; |
|
|
: setup ( -- ) 16 1024 * points >values ; |
: setup ( -- ) 32 1024 * points >values ; |
|
|
: main setup fft rfft normalize ; |
|
|
|
|
<<<<<<< HEAD |
|
: 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 ; |
|
======= |
|
: main setup fft rfft normalize ; |
|
>>>>>>> refs/heads/origin |