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/Algorithms.hs | |
| parent | 06a4d3fecb9b918e4c0497269484b00c814605a4 (diff) | |
fixed type of vector norms
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Algorithms.hs')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/Algorithms.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Numeric/LinearAlgebra/Algorithms.hs b/lib/Numeric/LinearAlgebra/Algorithms.hs index fa6c475..cf86904 100644 --- a/lib/Numeric/LinearAlgebra/Algorithms.hs +++ b/lib/Numeric/LinearAlgebra/Algorithms.hs | |||
| @@ -645,9 +645,9 @@ instance Normed (Vector Double) where | |||
| 645 | pnorm Frobenius = norm2 | 645 | pnorm Frobenius = norm2 |
| 646 | 646 | ||
| 647 | instance Normed (Vector (Complex Double)) where | 647 | instance Normed (Vector (Complex Double)) where |
| 648 | pnorm PNorm1 = realPart . norm1 | 648 | pnorm PNorm1 = norm1 |
| 649 | pnorm PNorm2 = realPart . norm2 | 649 | pnorm PNorm2 = norm2 |
| 650 | pnorm Infinity = realPart . normInf | 650 | pnorm Infinity = normInf |
| 651 | pnorm Frobenius = pnorm PNorm2 | 651 | pnorm Frobenius = pnorm PNorm2 |
| 652 | 652 | ||
| 653 | instance Normed (Vector Float) where | 653 | instance Normed (Vector Float) where |
| @@ -657,9 +657,9 @@ instance Normed (Vector Float) where | |||
| 657 | pnorm Frobenius = pnorm PNorm2 | 657 | pnorm Frobenius = pnorm PNorm2 |
| 658 | 658 | ||
| 659 | instance Normed (Vector (Complex Float)) where | 659 | instance Normed (Vector (Complex Float)) where |
| 660 | pnorm PNorm1 = realToFrac . realPart . norm1 | 660 | pnorm PNorm1 = realToFrac . norm1 |
| 661 | pnorm PNorm2 = realToFrac . realPart . norm2 | 661 | pnorm PNorm2 = realToFrac . norm2 |
| 662 | pnorm Infinity = realToFrac . realPart . normInf | 662 | pnorm Infinity = realToFrac . normInf |
| 663 | pnorm Frobenius = pnorm PNorm2 | 663 | pnorm Frobenius = pnorm PNorm2 |
| 664 | 664 | ||
| 665 | 665 | ||