transpose-axes ( a -- a^T )

Vocabulary

math.affine-transforms

Inputs

a

an object

Outputs

a^T

an object

Definition

USING: accessors arrays kernel sequences ;

IN: math.affine-transforms

: transpose-axes ( a -- a^T )
    [ [ x>> first ] [ y>> first ] bi 2array ]
    [ [ x>> second ] [ y>> second ] bi 2array ] [ origin>> ] tri
    <affine-transform> ;