Anonymous user
Reduced row echelon form: Difference between revisions
m
→{{header|REXX}}: changed a comment.
m (→{{header|REXX}}: changed a comment.) |
|||
Line 2,887:
if k==r | ?=0 then iterate /*skip if row K is the same as row R.*/
do s=1 for cols; @.k.s=@.k.s - ?*@.r.s; end /*s*/
end /*k*/ /* [
!=!+1 /*bump the column pointer. */
end /*r*/
| |||