diff options
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 | ||