[gforth] / gforth / fft.fs  

gforth: gforth/fft.fs

Diff for /gforth/fft.fs between version 1.2 and 1.3

version 1.2, Sat Dec 31 15:46:08 2005 UTC version 1.3, Fri Aug 10 15:53:19 2007 UTC
Line 76 
Line 76 
 : 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 ;

Generate output suitable for use with a patch program
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help