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

Vocabulary

math.matrices.elimination

Inputs

col#	an object
pivot-row	an object
i-row	an object

Outputs

n

an object

Definition

USING: kernel math sequences ;

IN: math.matrices.elimination

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