Fast Fourier transform: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,794: / Line 2,794: @@
 VAR
-    Ar  :   array [ 0..7 ] of complex ;
+    Ar  :   array of complex ;
     x   :   integer ;
@@ Line 2,800: / Line 2,800: @@
 BEGIN
-    FOR x := 0 TO 3 DO
-        BEGIN
-            Ar [ x ]        :=  1.0 ;
+    SetLength ( Ar, 8 ) ;
-            Ar [ x + 4 ]    :=  0.0 ;
+    FOR x := 0 TO 3 DO
+	BEGIN
-        END ;
+	    Ar [ x ]        :=  1.0 ;
+	    Ar [ x + 4 ]    :=  0.0 ;
+	END;
     WriteCTable ( FFT ( Ar ) )  ;
+    SetLength ( Ar, 0 ) ;
 END.