[gforth] / gforth / fft.fs  

gforth: gforth/fft.fs

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

version 1.3, Fri Aug 10 15:53:19 2007 UTC version 1.4, Wed Oct 17 15:50:01 2007 UTC
Line 70 
Line 70 
   BEGIN  2dup >  WHILE  dup 2* swap fft-step    BEGIN  2dup >  WHILE  dup 2* swap fft-step
   REPEAT  2drop drop ;    REPEAT  2drop drop ;
   
 : normalize ( -- )  #points dup s>f 1/f  : fftscale ( r -- )
   0 DO  I values dup z@ 2 fpick zscale z!  LOOP  fdrop ;    #points 0 DO  I values dup z@ 2 fpick zscale z!  LOOP  fdrop ;
   : normalize ( -- )  #points s>f 1/f  fftscale ;
   
 : fft  ( -- )  #points  true (fft ;  : fft  ( -- )  #points  true (fft ;
 : rfft ( -- )  #points false (fft ;  : rfft ( -- )  #points false (fft ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help