(validate-ger) ( x y A -- )

Vocabulary

math.blas.matrices.private

Inputs

x	an object
y	an object
A	an object

Outputs

None

Definition

USING: accessors combinators.short-circuit kernel
math.blas.matrices ;

IN: math.blas.matrices.private

: (validate-ger) ( x y A -- )
    {
        [ [ length>> ] [ drop ] [ Mheight ] tri* = ]
        [ [ drop ] [ length>> ] [ Mwidth ] tri* = ]
    } 3&& [
        "Mismatched vertices and matrix in vector outer product"
        throw
    ] unless ;