Fast Fourier transform: Difference between revisions
m
→Recursive
m (→Recursive) |
m (→Recursive) |
||
Line 2,749:
halfN := ( N DIV 2 ) ;
SetLength ( R, N ) ;▼
SetLength ( T, halfN ) ;▼
SetLength ( E, halfN ) ;
Line 2,766 ⟶ 2,762:
Odds := FFT ( O ) ;
SetLength ( E , 0 ) ;▼
SetLength ( O , 0 ) ;▼
▲ SetLength ( T, halfN ) ;
FOR k := 0 to halfN - 1 DO
Line 2,780 ⟶ 2,784:
SetLength ( T , 0 ) ;
▲ SetLength ( E , 0 ) ;
▲ SetLength ( O , 0 ) ;
SetLength ( Even, 0 ) ;
| |||