Fast Fourier transform: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,749: / Line 2,749: @@
         halfN := ( N DIV 2 )        ;
-        SetLength ( R,        N )   ;
-        SetLength ( T,    halfN )   ;
         SetLength ( E,    halfN )   ;
@@ Line 2,766: / Line 2,762: @@
         Odds :=     FFT ( O )       ;
+        SetLength ( E   , 0 )       ;
+        SetLength ( O   , 0 )       ;
+        SetLength ( R,    N )       ;
+        SetLength ( T,    halfN )   ;
         FOR k := 0 to halfN - 1 DO
@@ Line 2,780: / Line 2,784: @@
         SetLength ( T   , 0 )   ;
-        SetLength ( E   , 0 )   ;
-        SetLength ( O   , 0 )   ;
         SetLength ( Even, 0 )   ;