diff options
Diffstat (limited to 'lib/Numeric/LinearAlgebra')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/Linear.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Numeric/LinearAlgebra/Linear.hs b/lib/Numeric/LinearAlgebra/Linear.hs index ae48245..71869cb 100644 --- a/lib/Numeric/LinearAlgebra/Linear.hs +++ b/lib/Numeric/LinearAlgebra/Linear.hs | |||
| @@ -73,8 +73,8 @@ instance Vectors Vector (Complex Float) where | |||
| 73 | absSum = (:+ 0) . toScalarQ AbsSum | 73 | absSum = (:+ 0) . toScalarQ AbsSum |
| 74 | vectorMin = ap (@>) minIdx | 74 | vectorMin = ap (@>) minIdx |
| 75 | vectorMax = ap (@>) maxIdx | 75 | vectorMax = ap (@>) maxIdx |
| 76 | minIdx = minIdx . fst . fromComplex . (zipVector (*) `ap` mapVector conjugate) | 76 | minIdx = minIdx . fst . fromComplex . (zipVectorWith (*) `ap` mapVector conjugate) |
| 77 | maxIdx = maxIdx . fst . fromComplex . (zipVector (*) `ap` mapVector conjugate) | 77 | maxIdx = maxIdx . fst . fromComplex . (zipVectorWith (*) `ap` mapVector conjugate) |
| 78 | dot = dotQ | 78 | dot = dotQ |
| 79 | 79 | ||
| 80 | instance Vectors Vector (Complex Double) where | 80 | instance Vectors Vector (Complex Double) where |
| @@ -83,8 +83,8 @@ instance Vectors Vector (Complex Double) where | |||
| 83 | absSum = (:+ 0) . toScalarC AbsSum | 83 | absSum = (:+ 0) . toScalarC AbsSum |
| 84 | vectorMin = ap (@>) minIdx | 84 | vectorMin = ap (@>) minIdx |
| 85 | vectorMax = ap (@>) maxIdx | 85 | vectorMax = ap (@>) maxIdx |
| 86 | minIdx = minIdx . fst . fromComplex . (zipVector (*) `ap` mapVector conjugate) | 86 | minIdx = minIdx . fst . fromComplex . (zipVectorWith (*) `ap` mapVector conjugate) |
| 87 | maxIdx = maxIdx . fst . fromComplex . (zipVector (*) `ap` mapVector conjugate) | 87 | maxIdx = maxIdx . fst . fromComplex . (zipVectorWith (*) `ap` mapVector conjugate) |
| 88 | dot = dotC | 88 | dot = dotC |
| 89 | 89 | ||
| 90 | ---------------------------------------------------- | 90 | ---------------------------------------------------- |