3d-matrix-scalar-benchmark ( -- )

Vocabulary

benchmark.3d-matrix-scalar

Inputs

None

Outputs

None

Definition

USING: math math.matrices prettyprint ;

IN: benchmark.3d-matrix-scalar

:: 3d-matrix-scalar-benchmark ( -- )
    f :> result! 100000 [
        { 1024.0 768.0 } 0.7 0.25 1024.0 p-matrix :> p 3.0 1.0
        { 10.0 -0.0 2.0 } mv-matrix :> mv mv p mdot result!
    ] times result . ;