From b23333b54908232d5803c852ed362d3b43e78796 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Wed, 2 Nov 2016 20:54:01 +0100
Subject: unitary -> normalize

---
 packages/base/src/Internal/Util.hs         | 6 +++---
 packages/base/src/Numeric/LinearAlgebra.hs | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'packages/base')

diff --git a/packages/base/src/Internal/Util.hs b/packages/base/src/Internal/Util.hs
index 7f52a9c..17d3e50 100644
--- a/packages/base/src/Internal/Util.hs
+++ b/packages/base/src/Internal/Util.hs
@@ -41,7 +41,7 @@ module Internal.Util(
     ℕ,ℤ,ℝ,ℂ,iC,
     Normed(..), norm_Frob, norm_nuclear,
     magnit,
-    unitary,
+    normalize,
     mt,
     (~!~),
     pairwiseD2,
@@ -343,8 +343,8 @@ magnit e x = norm_1 (fromList [x]) > e
 
 
 -- | Obtains a vector in the same direction with 2-norm=1
-unitary :: Vector Double -> Vector Double
-unitary v = v / scalar (norm v)
+normalize :: (Normed (Vector t), Num (Vector t), Field t) => Vector t -> Vector t
+normalize v = v / real (scalar (norm_2 v))
 
 
 -- | trans . inv
diff --git a/packages/base/src/Numeric/LinearAlgebra.hs b/packages/base/src/Numeric/LinearAlgebra.hs
index 626ee52..badf8f9 100644
--- a/packages/base/src/Numeric/LinearAlgebra.hs
+++ b/packages/base/src/Numeric/LinearAlgebra.hs
@@ -154,7 +154,7 @@ module Numeric.LinearAlgebra (
     Seed, RandDist(..), randomVector, rand, randn, gaussianSample, uniformSample,
 
     -- * Misc
-    meanCov, rowOuters, pairwiseD2, unitary, peps, relativeError, magnit,
+    meanCov, rowOuters, pairwiseD2, normalize, peps, relativeError, magnit,
     haussholder, optimiseMult, udot, nullspaceSVD, orthSVD, ranksv,
     iC, sym, mTm, trustSym, unSym,
     -- * Auxiliary classes
-- 
cgit v1.2.3