Walsh matrix: Difference between revisions

Content added Content deleted

Inline

@@ Line 845: / Line 845: @@
   | .k = 1
   | until (.k >= $n;
-      reduce range (0;.k) as $i (.;
+      .k as $k
-        reduce range (0;.k) as $j (.;
+      | reduce range (0; $k) as $i (.;
-          .walsh[$i][$j] as $wij
+          reduce range (0; $k) as $j (.;
-          | .k as $k
+            .walsh[$i][$j] as $wij
-          | .walsh[$i+$k][$j] = $wij
+            | .walsh[$i+$k][$j] = $wij
-          | .walsh[$i][$j+$k] = $wij
+            | .walsh[$i][$j+$k] = $wij
-          | .walsh[$i+$k][$j+$k] = -$wij ))
+            | .walsh[$i+$k][$j+$k] = -$wij ))
       | .k += .k )
   | .walsh ;