diff options
| author | Alberto Ruiz <aruiz@um.es> | 2010-09-14 11:12:50 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2010-09-14 11:12:50 +0000 |
| commit | b1c372da927651887a46b6c47880acd0814fa01a (patch) | |
| tree | 2506b97cb3e2fb03ba68829ee61e19fd1126aff6 /lib/Numeric/LinearAlgebra/Tests/Properties.hs | |
| parent | 9d54e7b9543c22d398ef5097e3ba619ca974820b (diff) | |
more general pnorm
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Tests/Properties.hs')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/Tests/Properties.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Numeric/LinearAlgebra/Tests/Properties.hs b/lib/Numeric/LinearAlgebra/Tests/Properties.hs index e780c35..623b78c 100644 --- a/lib/Numeric/LinearAlgebra/Tests/Properties.hs +++ b/lib/Numeric/LinearAlgebra/Tests/Properties.hs | |||
| @@ -54,8 +54,8 @@ import Debug.Trace | |||
| 54 | debug x = trace (show x) x | 54 | debug x = trace (show x) x |
| 55 | 55 | ||
| 56 | -- relative error | 56 | -- relative error |
| 57 | dist :: (Normed t, Num t) => t -> t -> Double | 57 | dist :: (Normed c t, Num (c t)) => c t -> c t -> Double |
| 58 | dist a b = r | 58 | dist a b = realToFrac r |
| 59 | where norm = pnorm Infinity | 59 | where norm = pnorm Infinity |
| 60 | na = norm a | 60 | na = norm a |
| 61 | nb = norm b | 61 | nb = norm b |