optimized conjugate

1 files changed, 1 insertions, 8 deletions

diff --git a/lib/Numeric/Conversion.hs b/lib/Numeric/Conversion.hs
index b05069c..809ac51 100644
--- a/lib/Numeric/Conversion.hs
+++ b/lib/Numeric/Conversion.hs
@@ -69,7 +69,6 @@ class ComplexContainer c where
     fromComplex :: (RealElement e) => c (Complex e) -> (c e, c e)
     comp        :: (RealElement e) => c e -> c (Complex e)
     conj        :: (RealElement e) => c (Complex e) -> c (Complex e)
---    cmap        :: (Element a, Element b) => (a -> b) -> c a -> c b
     single'      :: Precision a b => c b -> c a
     double'      :: Precision a b => c a -> c b
 
@@ -78,16 +77,11 @@ instance ComplexContainer Vector where
     toComplex = toComplexV
     fromComplex = fromComplexV
     comp v = toComplex (v,constantD 0 (dim v))
-    conj = conjV
---    cmap = mapVector
+    conj = conjugateD
     single' = double2FloatG
     double' = float2DoubleG
 
 
--- | obtains the complex conjugate of a complex vector
-conjV :: (RealElement a) => Vector (Complex a) -> Vector (Complex a)
-conjV = mapVector conjugate
-
 -- | creates a complex vector from vectors with real and imaginary parts
 toComplexV :: (RealElement a) => (Vector a, Vector a) ->  Vector (Complex a)
 toComplexV (r,i) = asComplex $ flatten $ fromColumns [r,i]
@@ -104,7 +98,6 @@ instance ComplexContainer Matrix where
         where c = cols z
     comp = liftMatrix comp
     conj = liftMatrix conj
---    cmap f = liftMatrix (cmap f)
     single' = liftMatrix single'
     double' = liftMatrix double'