Reduced row echelon form: Difference between revisions

Line 40:

=={{header|Ada}}==

matrices.ads:

<lang Ada>generic

Line 168:

Line 167:

=={{header|ALGOL 68}}==

{{works with|ALGOL 68|Standard - no extensions to language used}}

{{works with|ALGOL 68G|Any - tested with release mk15-0.8b.fc9.i386}}

Line 589:

Line 587:

-0 -0 1 -2

</pre>

=={{header|C sharp}}==

=={{header|C sharp|C#}}==

<lang csharp>using System;

Line 651:

Line 650:

=={{header|Common Lisp}}==

Direct implementation of the pseudo-code given.

<lang lisp>(defun convert-to-row-echelon-form (matrix)

(let* ((dimensions (array-dimensions matrix))

Line 1,463:

Line 1,460:

=={{header|JavaScript}}==

{{works with|SpiderMonkey}} for the <code>print()</code> function.

Extends the Matrix class defined at [[Matrix Transpose#JavaScript]]

<lang javascript>// modifies the matrix in-place

Line 1,527:

Line 1,523:

0,1,0,1.666666666666667

0,0,1,1</pre>

=={{header|Lua}}==

<lang lua>function ToReducedRowEchelonForm ( M )

Line 1,771:

Line 1,768:

=={{header|Octave}}==

<lang octave>A = [ 1, 2, -1, -4; 2, 3, -1, -11; -2, 0, -3, 22];

refA = rref(A);

Line 1,795:

Line 1,791:

=={{header|Perl}}==

Note that the function defined here takes an array reference, not an array.

<lang perl>sub rref

Line 1,825:

Line 1,820:

=={{header|Perl 6}}==

<lang perl6>sub rref (@m is rw) {

@m or return;

Line 2,083:

Line 2,076:

=={{header|PHP}}==

{{works with|PHP|5.x

~~'''Translation of:'''~~ Java}}

<lang php><?php

Line 2,165:

Line 2,157:

=={{header|Python}}==

This closely follows the pseudocode given. If you want accurate results, use the fractions package.

<lang python>def ToReducedRowEchelonForm( M):

if not M: return

Line 2,237:

Line 2,228:

print(m)

print(rref(m))</lang>

=={{header|REXX}}==

Line 2,422:

Line 2,412:

0.0 1.0 0.0 1.66666666666667

0.0 0.0 1.0 1.0</pre>

=={{header|Sage}}==

Line 2,607:

Line 2,598:

=={{header|TI-89 BASIC}}==