Reduced row echelon form: Difference between revisions
Content added Content deleted
No edit summary |
(correct highlighting) |
||
| Line 2,533: | Line 2,533: | ||
=={{header|R}}== |
=={{header|R}}== |
||
{{trans|Fortran}} |
{{trans|Fortran}} |
||
<lang |
<lang rsplus>rref <- function(m) { |
||
pivot <- 1 |
pivot <- 1 |
||
norow <- nrow(m) |
norow <- nrow(m) |
||
| Line 2,566: | Line 2,566: | ||
print(m) |
print(m) |
||
print(rref(m))</lang> |
print(rref(m))</lang> |
||
=={{header|Racket}}== |
=={{header|Racket}}== |
||