3d-matrix-vector-benchmark ( -- )

Vocabulary

benchmark.3d-matrix-vector

Inputs

None

Outputs

None

Definition

USING: math math.matrices.simd math.vectors.simd prettyprint ;

IN: benchmark.3d-matrix-vector

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