Return to fft.fs CVS log | Up to [gforth] / gforth |
version 1.2, 2005/12/31 15:46:08 | version 1.3, 2007/08/10 15:53:19 |
---|---|
Line 76 Carray expix | Line 76 Carray expix |
: fft ( -- ) #points true (fft ; | : fft ( -- ) #points true (fft ; |
: rfft ( -- ) #points false (fft ; | : rfft ( -- ) #points false (fft ; |
: hamming ( -- ) #points 0 DO | |
I values dup z@ pi I #points fm*/ fsin f**2 f2* zscale z! | |
LOOP ; | |