Rosetta Code

Reduced row echelon form: Difference between revisions

Page Discussion

Reduced row echelon form (view source)

Revision as of 13:33, 17 May 2018

107 bytes removed ,  6 years ago
→‎{{header|Aime}}
m (→‎{{header|Sidef}}: updated code)
Line 423:
u = l[i];
 
l_spin(l, .spin(i, r);
e = u[lead];
if (e) {
Line 435:
e = v[lead];
for (j, f in v) {
v[j] = f - l_q_integer(u, [j)] * e;
}
}
Line 447:
 
void
display_2(list l, integer rows, integer columns)
{
integer i;
list u;
 
ifor =(, 0;u in l) {
for u.ucall(io_winteger, u-1, in l4) {;
l_ucall(u, o_winteger, -1, 4);
o_byte('\n');
}
Line 464 ⟶ 462:
list l;
 
l = l_effectlist(l_effectlist(1, 2, -1, -4),
l_effectlist(2, 3, -1, -11),
l_effectlist(-2, 0, -3, 22));
rref(l, 3, 4);
display_2(l, 3, 4);
 
return 0;
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/96039"