Reduced row echelon form: Difference between revisions
Content deleted Content added
Racket version |
|||
Line 2,388: | Line 2,388: | ||
print(m) |
print(m) |
||
print(rref(m))</lang> |
print(rref(m))</lang> |
||
=={{header|Racket}}== |
|||
<lang racket> |
|||
#lang racket |
|||
(require math) |
|||
(define (reduced-echelon M) |
|||
(matrix-row-echelon M #t #t)) |
|||
(reduced-echelon |
|||
(matrix [[1 2 -1 -4] |
|||
[2 3 -1 -11] |
|||
[-2 0 -3 22]])) |
|||
</lang> |
|||
Output: |
|||
<pre> |
|||
(mutable-array #[#[1 0 0 -8] |
|||
#[0 1 0 1] |
|||
#[0 0 1 -2]]) |
|||
</pre> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |