summaryrefslogtreecommitdiff
path: root/lib/Numeric/Matrix.hs
diff options
context:
space:
mode:
authorVivian McPhail <haskell.vivian.mcphail@gmail.com>2010-09-07 04:23:19 +0000
committerVivian McPhail <haskell.vivian.mcphail@gmail.com>2010-09-07 04:23:19 +0000
commit7e103b8ada6fa1479790eac80eda997f5fdaf33f (patch)
tree7f8ab3cb23d76fc1f624c4b947e39a9257a036db /lib/Numeric/Matrix.hs
parent9004922ad91c0b4ad8498c31171a3a1a1e27d9f2 (diff)
remove v_* functions
Diffstat (limited to 'lib/Numeric/Matrix.hs')
-rw-r--r--lib/Numeric/Matrix.hs15
1 files changed, 0 insertions, 15 deletions
diff --git a/lib/Numeric/Matrix.hs b/lib/Numeric/Matrix.hs
index 73515c1..fa3f94a 100644
--- a/lib/Numeric/Matrix.hs
+++ b/lib/Numeric/Matrix.hs
@@ -88,21 +88,6 @@ instance NumericContainer Matrix where
88 double' = liftMatrix double' 88 double' = liftMatrix double'
89 89
90--------------------------------------------------------------- 90---------------------------------------------------------------
91{-
92instance (RealElement e, Complexable Vector e) => Complexable Matrix e where
93 v_toComplex = uncurry $ liftMatrix2 $ curry toComplex
94 v_fromComplex z = (reshape c *** reshape c) . fromComplex . flatten $ z
95 where c = cols z
96 v_conj = liftMatrix conj
97 v_complex' = liftMatrix complex'
98
99---------------------------------------------------------------
100
101instance (Precisionable Vector e) => Precisionable Matrix e where
102 v_single' = liftMatrix single'
103 v_double' = liftMatrix double'
104-}
105---------------------------------------------------------------
106 91
107instance (Linear Vector a, Container Matrix a) => Linear Matrix a where 92instance (Linear Vector a, Container Matrix a) => Linear Matrix a where
108 scale x = liftMatrix (scale x) 93 scale x = liftMatrix (scale x)