diff options
Diffstat (limited to 'packages/base/src/Internal/Util.hs')
-rw-r--r-- | packages/base/src/Internal/Util.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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( | |||
41 | ℕ,ℤ,ℝ,ℂ,iC, | 41 | ℕ,ℤ,ℝ,ℂ,iC, |
42 | Normed(..), norm_Frob, norm_nuclear, | 42 | Normed(..), norm_Frob, norm_nuclear, |
43 | magnit, | 43 | magnit, |
44 | unitary, | 44 | normalize, |
45 | mt, | 45 | mt, |
46 | (~!~), | 46 | (~!~), |
47 | pairwiseD2, | 47 | pairwiseD2, |
@@ -343,8 +343,8 @@ magnit e x = norm_1 (fromList [x]) > e | |||
343 | 343 | ||
344 | 344 | ||
345 | -- | Obtains a vector in the same direction with 2-norm=1 | 345 | -- | Obtains a vector in the same direction with 2-norm=1 |
346 | unitary :: Vector Double -> Vector Double | 346 | normalize :: (Normed (Vector t), Num (Vector t), Field t) => Vector t -> Vector t |
347 | unitary v = v / scalar (norm v) | 347 | normalize v = v / real (scalar (norm_2 v)) |
348 | 348 | ||
349 | 349 | ||
350 | -- | trans . inv | 350 | -- | trans . inv |