Reduced row echelon form: Difference between revisions
Content added Content deleted
(add FreeBASIC) |
(Added Wren) |
||
Line 4,012: | Line 4,012: | ||
0.000000 1.000000 0.000000 1.000000 |
0.000000 1.000000 0.000000 1.000000 |
||
0.000000 0.000000 1.000000 -2.000000 |
0.000000 0.000000 1.000000 -2.000000 |
||
</pre> |
|||
=={{header|Wren}}== |
|||
{{libheader|Wren-fmt}} |
|||
{{libheader|Wren-matrix}} |
|||
The above module has a method for this built in as it's needed to implement matrix inversion using the Gauss-Jordan method. |
|||
<lang ecmascript>import "/matrix" for Matrix |
|||
import "/fmt" for Fmt |
|||
var m = Matrix.new([ |
|||
[ 1, 2, -1, -4], |
|||
[ 2, 3, -1, -11], |
|||
[-2, 0, -3, 22] |
|||
]) |
|||
System.print("Original:\n") |
|||
Fmt.mprint(m, 3, 0) |
|||
System.print("\nRREF:\n") |
|||
m.toReducedRowEchelonForm |
|||
Fmt.mprint(m, 3, 0)</lang> |
|||
{{out}} |
|||
<pre> |
|||
Original: |
|||
| 1 2 -1 -4| |
|||
| 2 3 -1 -11| |
|||
| -2 0 -3 22| |
|||
RREF: |
|||
| 1 0 0 -8| |
|||
| 0 1 0 1| |
|||
| 0 0 1 -2| |
|||
</pre> |
</pre> |
||