deprecate .* and */

1 files changed, 3 insertions, 4 deletions

diff --git a/examples/lie.hs b/examples/lie.hs
index 87f7ed1..db21ea8 100644
--- a/examples/lie.hs
+++ b/examples/lie.hs
@@ -1,9 +1,8 @@
 -- The magic of Lie Algebra
 
 import Numeric.LinearAlgebra
-import Text.Printf(printf)
 
-disp = putStrLn . format "  " (printf "%.5f")
+disp = putStrLn . dispf 5
 
 rot1 :: Double -> Matrix Double
 rot1 a = (3><3)
@@ -50,14 +49,14 @@ infix 8 &
 a & b = a <> b - b <> a
 
 infixl 6 |+|
-a |+| b = a + b + a & b */2  + (a-b) & (a & b) */12
+a |+| b = a + b + a&b /2  + (a-b)&(a & b) /12
 
 main = do
    let a =  45*deg
        b =  50*deg
        c = -30*deg
        exact = rot3 a <> rot1 b <> rot2 c
-       lie = a.*g3 |+| b.*g1 |+| c.*g2
+       lie = scalar a * g3 |+| scalar b * g1 |+| scalar c * g2
    putStrLn "position in the tangent space:"
    disp lie
    putStrLn "exponential map back to the group (2 terms):"