orth

1 files changed, 7 insertions, 1 deletions

diff --git a/lib/Numeric/LinearAlgebra/Util.hs b/lib/Numeric/LinearAlgebra/Util.hs
index 416b23f..79b8774 100644
--- a/lib/Numeric/LinearAlgebra/Util.hs
+++ b/lib/Numeric/LinearAlgebra/Util.hs
@@ -18,7 +18,8 @@ module Numeric.LinearAlgebra.Util(
     col,
     (&),(!), (#),
     rand, randn,
-    cross
+    cross,
+    norm
 ) where
 
 import Numeric.LinearAlgebra
@@ -96,3 +97,8 @@ cross x y | dim x == 3 && dim y == 3 = fromList [z1,z2,z3]
     z2 = x3*y1-x1*y3
     z3 = x1*y2-x2*y1
 
+norm :: Vector Double -> Double
+-- ^ 2-norm of real vectors
+norm = pnorm PNorm2
+
+