![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fft.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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 ; | |