Reduced row echelon form: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Minor tidy) |
(Added Easylang) |
||
Line 2,110: | Line 2,110: | ||
0 1 0 1 |
0 1 0 1 |
||
0 0 1 -2</pre> |
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}}== |
=={{header|Euphoria}}== |