Reduced row echelon form: Difference between revisions
Content added Content deleted
(Updated D entry) |
mNo edit summary |
||
Line 38: | Line 38: | ||
0 1 0 1 |
0 1 0 1 |
||
0 0 1 -2</pre> |
0 0 1 -2</pre> |
||
=={{header|Actionscript}}== |
|||
_m being of type Vector.<Vector.<Number>> the following function is a method of Matrix class. Therefore return this statements are returning the Matrix object itself. |
|||
<lang Actionscript>public function RREF():Matrix { |
|||
var lead:uint, i:uint, j:uint, r:uint = 0; |
|||
for(r = 0; r < rows; r++) { |
|||
if(columns <= lead) |
|||
break; |
|||
i = r; |
|||
while(_m[i][lead] == 0) { |
|||
i++; |
|||
if(rows == i) { |
|||
i = r; |
|||
lead++; |
|||
if(columns == lead) |
|||
return this; |
|||
} |
|||
} |
|||
rowSwitch(i, r); |
|||
var val:Number = _m[r][lead]; |
|||
for(j = 0; j < columns; j++) |
|||
_m[r][j] /= val; |
|||
for(i = 0; i < rows; i++) { |
|||
if(i == r) |
|||
continue; |
|||
val = _m[i][lead]; |
|||
for(j = 0; j < columns; j++) |
|||
_m[i][j] -= val * _m[r][j]; |
|||
} |
|||
lead++; |
|||
} |
|||
return this; |
|||
}</lang> |
|||
=={{header|Ada}}== |
=={{header|Ada}}== |