Rosetta Code

Reduced row echelon form: Difference between revisions

Page Discussion

Reduced row echelon form (view source)

Revision as of 20:36, 20 July 2015

146 bytes removed ,  8 years ago
m
→‎{{header|REXX}}: reduced the display clutter of error messages.
m (→‎{{header|REXX}}: elided a stray comment.)
m (→‎{{header|REXX}}: reduced the display clutter of error messages.)
Line 2,649:
/*────────────────────────────────────────────────────────────────────────────*/
showMat: parse arg title; say; say center(title, 3+(cols+1)*w, '─'); say
do r=1 for rows; _=
do c=1 for cols
if @.r.c=='' then do; say; say '"*** error! ***'; matrix element isn't saydefined:"
say 'row' say row", column"matrix element isnc't.'; defined:" exit 13
say 'row' row", column" c'.'; sayend
_=_ exit 13right(@.r.c,w)
end end/*c*/
say _ say _ /*display a row of the matrix to screen*/▼
_=_ right(@.r.c,w)
end end /*cr*/
▲ say _ /*display a row of the matrix to screen*/
end /*r*/
return</lang>
{{out}}
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/96004"