diff options
| author | Alberto Ruiz <aruiz@um.es> | 2010-09-04 09:34:13 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2010-09-04 09:34:13 +0000 |
| commit | 7aa4500e6c71964094374d553faad1b1754cbc65 (patch) | |
| tree | e3de3c60d1eecd12236afd635abf7625528cd6df /lib/Numeric/LinearAlgebra/Tests/Properties.hs | |
| parent | 4486e93da02c7ef9e1fdf785c88f78986048c332 (diff) | |
vector norms moved to Vectors
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 d6bb338..d312e52 100644 --- a/lib/Numeric/LinearAlgebra/Tests/Properties.hs +++ b/lib/Numeric/LinearAlgebra/Tests/Properties.hs | |||
| @@ -54,9 +54,9 @@ complex x = complex'' x | |||
| 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 t, Num t) => t -> t -> Double |
| 58 | dist a b = r | 58 | dist a b = r |
| 59 | where norm = normInf | 59 | where norm = pnorm Infinity |
| 60 | na = norm a | 60 | na = norm a |
| 61 | nb = norm b | 61 | nb = norm b |
| 62 | nab = norm (a-b) | 62 | nab = norm (a-b) |