diff options
Diffstat (limited to 'lib/Numeric/Container.hs')
-rw-r--r-- | lib/Numeric/Container.hs | 6 |
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 | |||
213 | class Element e => Product e where | 213 | class 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 | ||
238 | instance Product Double where | 235 | instance 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 | ||
247 | instance Product (Complex Float) where | 243 | instance 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 | ||
256 | instance Product (Complex Double) where | 251 | instance 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 | ||