basis-vector ( row col# -- )

Vocabulary

math.matrices.elimination

Inputs

row	an object
col#	an object

Outputs

None

Definition

USING: kernel math math.vectors namespaces sequences ;

IN: math.matrices.elimination

:: basis-vector ( row col# -- )
    row clone :> row' col# row' nth
    neg recip :> a 0 col# row' set-nth a row n*v
    col# matrix get set-nth ;