clear-scale ( col# pivot-row i-row -- n )


Vocabulary
math.matrices.elimination

Definition
USING: kernel math sequences ;

IN: math.matrices.elimination

: clear-scale ( col# pivot-row i-row -- n )
[ over ] dip nth dup zero?
[ 3drop 0 ]
[ [ nth dup zero? ] dip swap [ 2drop 0 ] [ swap / neg ] if ]
if ;