steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

revert math.matrices.elimintion until someone fixes it properly

db4
Doug Coleman 2009-11-24 20:41:59 -06:00
parent 5793d2e2eb
commit 7a00f24d6b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/math/matrices/elimination/elimination.factor
View File

@ -52,8 +52,11 @@ SYMBOL: matrix
[ first-col ] keep [ first-col ] keep
dup 1 + rows-from clear-col ; dup 1 + rows-from clear-col ;
: find-row ( row# quot -- i elt )
[ rows-from ] dip find ; inline
: pivot-row ( col# row# -- n ) : pivot-row ( col# row# -- n )
rows-from swap '[ [ _ ] dip nth-row nth abs ] sort-with last ; [ dupd nth-row nth zero? not ] find-row 2nip ;
: (echelon) ( col# row# -- ) : (echelon) ( col# row# -- )
over cols < over rows < and [ over cols < over rows < and [