1 files changed, 20 insertions, 0 deletions

diff --git a/examples/speed.hs b/examples/speed.hs
index a937f31..865e3e1 100644
--- a/examples/speed.hs
+++ b/examples/speed.hs
@@ -1,3 +1,23 @@
+{- speed tests
+
+$ ghc --make -O speed
+In my machine:
+$ ./speed 5 100000 1
+(3><3)
+ [ -1.7877285611885504e-2, 0.0,    -0.9998401885597121
+ ,                    0.0, 1.0,                    0.0
+ ,     0.9998401885597168, 0.0, -1.7877285611891697e-2 ]
+0.29 CPU seconds
+
+GNU-Octave:
+./speed.m
+  -0.017877255967426   0.000000000000000  -0.999840189089781
+   0.000000000000000   1.000000000000000   0.000000000000000
+   0.999840189089763   0.000000000000000  -0.017877255967417
+9.69 seconds
+
+-}
+
 import Numeric.LinearAlgebra
 import System
 import Data.List(foldl1')