Fast Fourier transform: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,807: / Line 2,807: @@
     FOR x := 0 TO 3 DO
-        Ar [ x ]        :=  1.0 ;
+        BEGIN
-        Ar [ x + 4 ]    :=  0.0 ;
+            Ar [ x ]        :=  1.0 ;
+            Ar [ x + 4 ]    :=  0.0 ;
+        END ;
     WriteCTable ( FFT ( Ar ) )  ;