fftw: fix for ifft1d.

db4
John Benediktsson 2014-06-04 12:16:11 -07:00
parent a735761574
commit d2c6bc41ce
1 changed files with 2 additions and 1 deletions

View File

@ -39,7 +39,8 @@ PRIVATE>
: fft1d ( seq -- seq' ) FFTW_FORWARD (fft1d) ; : fft1d ( seq -- seq' ) FFTW_FORWARD (fft1d) ;
: ifft1d ( seq -- seq' ) FFTW_BACKWARD (fft1d) ; : ifft1d ( seq -- seq' )
[ FFTW_BACKWARD (fft1d) ] [ length v/n ] bi ;
: correlate1d ( x y -- z ) : correlate1d ( x y -- z )
[ fft1d ] [ reverse fft1d ] bi* v* ifft1d ; [ fft1d ] [ reverse fft1d ] bi* v* ifft1d ;