gforth/fft.fs - diff

Return to fft.fs CVS log

Up to [gforth] / gforth

version 1.3, 2007/08/10 15:53:19	version 1.4, 2007/10/17 15:50:01
Line 70 Carray expix	Line 70 Carray expix
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 ;