diff options
| author | Vivian McPhail <haskell.vivian.mcphail@gmail.com> | 2010-08-27 04:38:35 +0000 |
|---|---|---|
| committer | Vivian McPhail <haskell.vivian.mcphail@gmail.com> | 2010-08-27 04:38:35 +0000 |
| commit | 5e60b08d76e666643c795131bcbb18d196a39520 (patch) | |
| tree | c1f699d05e196db4efba6b87ce793c8a326321eb /lib/Numeric | |
| parent | 6058e1b17c005be1ea95ebb7d98d9fd15bb538d2 (diff) | |
fix zipVector name to zipVectorWith
Diffstat (limited to 'lib/Numeric')
| -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 | ---------------------------------------------------- |