Reduced row echelon form: Difference between revisions

Content deleted Content added

Inline

@@ Line 285: / Line 285: @@
         o_byte('\n');
     }
-}
-list
-new_list(...)
-{
-    integer i;
-    list l;
-    i = -count();
-    while (i) {
-        l_append(l, $i);
-        i += 1;
-    }
-    return l;
 }
@@ Line 307: / Line 292: @@
     list l;
-    l = new_list(new_list(1, 2, -1, -4),
+    l = l_effect(l_effect(1, 2, -1, -4),
-                 new_list(2, 3, -1, -11),
+                 l_effect(2, 3, -1, -11),
-                 new_list(-2, 0, -3, 22));
+                 l_effect(-2, 0, -3, 22));
     rref(l, 3, 4);
     display_2(l, 3, 4);