summaryrefslogtreecommitdiff
path: root/lib/Numeric
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric')
-rw-r--r--lib/Numeric/Container.hs6
1 files changed, 0 insertions, 6 deletions
diff --git a/lib/Numeric/Container.hs b/lib/Numeric/Container.hs
index 0a07adc..77c9902 100644
--- a/lib/Numeric/Container.hs
+++ b/lib/Numeric/Container.hs
@@ -213,8 +213,6 @@ instance (Container Vector a) => Container Matrix a where
213class Element e => Product e where 213class Element e => Product e where
214 -- | matrix product 214 -- | matrix product
215 multiply :: Matrix e -> Matrix e -> Matrix e 215 multiply :: Matrix e -> Matrix e -> Matrix e
216 -- | conjugate transpose
217 ctrans :: Matrix e -> Matrix e
218 -- | dot (inner) product 216 -- | dot (inner) product
219 dot :: Vector e -> Vector e -> e 217 dot :: Vector e -> Vector e -> e
220 -- | sum of absolute value of elements (differs in complex case from @norm1@ 218 -- | sum of absolute value of elements (differs in complex case from @norm1@
@@ -233,7 +231,6 @@ instance Product Float where
233 norm1 = toScalarF AbsSum 231 norm1 = toScalarF AbsSum
234 normInf = maxElement . vectorMapF Abs 232 normInf = maxElement . vectorMapF Abs
235 multiply = multiplyF 233 multiply = multiplyF
236 ctrans = trans
237 234
238instance Product Double where 235instance Product Double where
239 norm2 = toScalarR Norm2 236 norm2 = toScalarR Norm2
@@ -242,7 +239,6 @@ instance Product Double where
242 norm1 = toScalarR AbsSum 239 norm1 = toScalarR AbsSum
243 normInf = maxElement . vectorMapR Abs 240 normInf = maxElement . vectorMapR Abs
244 multiply = multiplyR 241 multiply = multiplyR
245 ctrans = trans
246 242
247instance Product (Complex Float) where 243instance Product (Complex Float) where
248 norm2 = toScalarQ Norm2 244 norm2 = toScalarQ Norm2
@@ -251,7 +247,6 @@ instance Product (Complex Float) where
251 norm1 = sumElements . fst . fromComplex . vectorMapQ Abs 247 norm1 = sumElements . fst . fromComplex . vectorMapQ Abs
252 normInf = maxElement . fst . fromComplex . vectorMapQ Abs 248 normInf = maxElement . fst . fromComplex . vectorMapQ Abs
253 multiply = multiplyQ 249 multiply = multiplyQ
254 ctrans = conj . trans
255 250
256instance Product (Complex Double) where 251instance Product (Complex Double) where
257 norm2 = toScalarC Norm2 252 norm2 = toScalarC Norm2
@@ -260,7 +255,6 @@ instance Product (Complex Double) where
260 norm1 = sumElements . fst . fromComplex . vectorMapC Abs 255 norm1 = sumElements . fst . fromComplex . vectorMapC Abs
261 normInf = maxElement . fst . fromComplex . vectorMapC Abs 256 normInf = maxElement . fst . fromComplex . vectorMapC Abs
262 multiply = multiplyC 257 multiply = multiplyC
263 ctrans = conj . trans
264 258
265---------------------------------------------------------- 259----------------------------------------------------------
266 260