Reduced row echelon form: Difference between revisions

m
(Added Easylang)
 
(One intermediate revision by the same user not shown)
Line 2,112:
 
=={{header|EasyLang}}==
{{trans|Go}}
<syntaxhighlight>
proc redRowEcholonrref . m[][] .
nrow = len m[][]
ncol = len m[1][]
lead = 1
for r to nrow
if ncollead <=> leadncol
break 1return
.
i = r
while m[i][lead] = 0
i += 1
if i => nrow
i = r
lead += 1
if lead => ncol
break 1return
.
.
Line 2,148 ⟶ 2,149:
.
.
mtest[][] = [ [ 1 2 -1 -4 ] [ 2 3 -1 -11 ] [ -2 0 -3 22 ] ]
redRowEcholonrref mtest[][]
print mtest[][]
</syntaxhighlight>
 
2,063

edits