diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-06-08 10:09:39 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-06-08 10:09:39 +0200 |
commit | e2cb1eff0a954a83e0661ea1e7f70a47ed54e893 (patch) | |
tree | f1b214ba3cb8f29f1b17156e7bb5ef72d3f53d39 /packages/base/src/Internal/Numeric.hs | |
parent | ccb56d051ce92879a54fcd218bfeac48523b0de0 (diff) |
modular C matrix product
Diffstat (limited to 'packages/base/src/Internal/Numeric.hs')
-rw-r--r-- | packages/base/src/Internal/Numeric.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/packages/base/src/Internal/Numeric.hs b/packages/base/src/Internal/Numeric.hs index eb744d1..2ef96bf 100644 --- a/packages/base/src/Internal/Numeric.hs +++ b/packages/base/src/Internal/Numeric.hs | |||
@@ -113,8 +113,8 @@ instance Container Vector I | |||
113 | maxIndex' = emptyErrorV "maxIndex" (fromIntegral . toScalarI MaxIdx) | 113 | maxIndex' = emptyErrorV "maxIndex" (fromIntegral . toScalarI MaxIdx) |
114 | minElement' = emptyErrorV "minElement" (toScalarI Min) | 114 | minElement' = emptyErrorV "minElement" (toScalarI Min) |
115 | maxElement' = emptyErrorV "maxElement" (toScalarI Max) | 115 | maxElement' = emptyErrorV "maxElement" (toScalarI Max) |
116 | sumElements' = sumI | 116 | sumElements' = sumI 1 |
117 | prodElements' = prodI | 117 | prodElements' = prodI 1 |
118 | step' = stepI | 118 | step' = stepI |
119 | find' = findV | 119 | find' = findV |
120 | assoc' = assocV | 120 | assoc' = assocV |
@@ -152,8 +152,8 @@ instance Container Vector Z | |||
152 | maxIndex' = emptyErrorV "maxIndex" (fromIntegral . toScalarL MaxIdx) | 152 | maxIndex' = emptyErrorV "maxIndex" (fromIntegral . toScalarL MaxIdx) |
153 | minElement' = emptyErrorV "minElement" (toScalarL Min) | 153 | minElement' = emptyErrorV "minElement" (toScalarL Min) |
154 | maxElement' = emptyErrorV "maxElement" (toScalarL Max) | 154 | maxElement' = emptyErrorV "maxElement" (toScalarL Max) |
155 | sumElements' = sumL | 155 | sumElements' = sumL 1 |
156 | prodElements' = prodL | 156 | prodElements' = prodL 1 |
157 | step' = stepL | 157 | step' = stepL |
158 | find' = findV | 158 | find' = findV |
159 | assoc' = assocV | 159 | assoc' = assocV |
@@ -596,14 +596,14 @@ instance Product I where | |||
596 | absSum = emptyVal (sumElements . vectorMapI Abs) | 596 | absSum = emptyVal (sumElements . vectorMapI Abs) |
597 | norm1 = absSum | 597 | norm1 = absSum |
598 | normInf = emptyVal (maxElement . vectorMapI Abs) | 598 | normInf = emptyVal (maxElement . vectorMapI Abs) |
599 | multiply = emptyMul multiplyI | 599 | multiply = emptyMul (multiplyI 1) |
600 | 600 | ||
601 | instance Product Z where | 601 | instance Product Z where |
602 | norm2 = undefined | 602 | norm2 = undefined |
603 | absSum = emptyVal (sumElements . vectorMapL Abs) | 603 | absSum = emptyVal (sumElements . vectorMapL Abs) |
604 | norm1 = absSum | 604 | norm1 = absSum |
605 | normInf = emptyVal (maxElement . vectorMapL Abs) | 605 | normInf = emptyVal (maxElement . vectorMapL Abs) |
606 | multiply = emptyMul multiplyL | 606 | multiply = emptyMul (multiplyL 1) |
607 | 607 | ||
608 | 608 | ||
609 | emptyMul m a b | 609 | emptyMul m a b |