diff options
| author | Alberto Ruiz <aruiz@um.es> | 2010-09-08 08:58:35 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2010-09-08 08:58:35 +0000 |
| commit | 945ae28d720ab6367a293d8f6a5723b8f7bf835d (patch) | |
| tree | 5feee1e23cb70436690a71e85f6bcc4d7bacefc5 /lib/Numeric/LinearAlgebra/Tests.hs | |
| parent | 06a4d3fecb9b918e4c0497269484b00c814605a4 (diff) | |
fixed type of vector norms
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Tests.hs')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/Tests.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs index 5b42226..0b4e3bf 100644 --- a/lib/Numeric/LinearAlgebra/Tests.hs +++ b/lib/Numeric/LinearAlgebra/Tests.hs | |||
| @@ -240,7 +240,7 @@ normsVTest = TestList [ | |||
| 240 | ] where v = fromList [1,-2,3:+4] :: Vector (Complex Double) | 240 | ] where v = fromList [1,-2,3:+4] :: Vector (Complex Double) |
| 241 | x = fromList [1,2,-3] :: Vector Double | 241 | x = fromList [1,2,-3] :: Vector Double |
| 242 | norm2PropR a = norm2 a =~= sqrt (dot a a) | 242 | norm2PropR a = norm2 a =~= sqrt (dot a a) |
| 243 | norm2PropC a = norm2 a =~= sqrt (dot a (conj a)) | 243 | norm2PropC a = norm2 a =~= realPart (sqrt (dot a (conj a))) |
| 244 | a =~= b = fromList [a] |~| fromList [b] | 244 | a =~= b = fromList [a] |~| fromList [b] |
| 245 | 245 | ||
| 246 | normsMTest = TestList [ | 246 | normsMTest = TestList [ |