Reduced row echelon form: Difference between revisions
Added Easylang
m (→{{header|Wren}}: Minor tidy) |
(Added Easylang) |
||
Line 2,110:
0 1 0 1
0 0 1 -2</pre>
=={{header|EasyLang}}==
<syntaxhighlight>
proc redRowEcholon . m[][] .
nrow = len m[][]
ncol = len m[1][]
lead = 1
for r to nrow
if ncol <= lead
break 1
.
i = r
while m[i][lead] = 0
i += 1
if i = nrow
i = r
lead += 1
if lead = ncol
break 1
.
.
.
swap m[i][] m[r][]
m = m[r][lead]
for k to ncol
m[r][k] /= m
.
for i to nrow
if i <> r
m = m[i][lead]
for k to ncol
m[i][k] -= m * m[r][k]
.
.
.
lead += 1
.
.
m[][] = [ [ 1 2 -1 -4 ] [ 2 3 -1 -11 ] [ -2 0 -3 22 ] ]
redRowEcholon m[][]
print m[][]
</syntaxhighlight>
=={{header|Euphoria}}==
| |||