aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

tasks a-s

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 23:57:08 -07:00
parent 47bf37c096
commit b83f433714
12433 changed files with 156208 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

37
Task/Reduced-row-echelon-form/ActionScript/reduced-row-echelon-form.as Normal file
View file

@ -0,0 +1,37 @@
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;
}