basis-vector ( row col# -- ) (original) (raw)

basis-vector ( row col# -- )

Vocabulary
math.matrices.elimination

Inputs

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 ;