2009-09-30 13:58:32 -04:00
|
|
|
USING: locals math math.combinatorics math.matrices.simd
|
|
|
|
|
prettyprint sequences typed ;
|
|
|
|
|
IN: benchmark.matrix-exponential-simd
|
|
|
|
|
|
|
|
|
|
TYPED:: e^m4 ( m: matrix4 iterations: fixnum -- e^m: matrix4 )
|
|
|
|
|
zero-matrix4
|
|
|
|
|
iterations iota [| i |
|
|
|
|
|
m i m4^n i factorial >float m4/n m4+
|
|
|
|
|
] each ;
|
|
|
|
|
|
2012-07-19 20:35:47 -04:00
|
|
|
:: matrix-exponential-simd-benchmark ( -- )
|
2009-09-30 13:58:32 -04:00
|
|
|
f :> result!
|
|
|
|
|
10000 [
|
|
|
|
|
identity-matrix4 20 e^m4 result!
|
|
|
|
|
] times
|
|
|
|
|
result . ;
|
|
|
|
|
|
2012-07-19 20:35:47 -04:00
|
|
|
MAIN: matrix-exponential-simd-benchmark
|
