diff options
author | Vivian McPhail <haskell.vivian.mcphail@gmail.com> | 2010-09-07 04:23:19 +0000 |
---|---|---|
committer | Vivian McPhail <haskell.vivian.mcphail@gmail.com> | 2010-09-07 04:23:19 +0000 |
commit | 7e103b8ada6fa1479790eac80eda997f5fdaf33f (patch) | |
tree | 7f8ab3cb23d76fc1f624c4b947e39a9257a036db /lib/Numeric/Matrix.hs | |
parent | 9004922ad91c0b4ad8498c31171a3a1a1e27d9f2 (diff) |
remove v_* functions
Diffstat (limited to 'lib/Numeric/Matrix.hs')
-rw-r--r-- | lib/Numeric/Matrix.hs | 15 |
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 | {- | ||
92 | instance (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 | |||
101 | instance (Precisionable Vector e) => Precisionable Matrix e where | ||
102 | v_single' = liftMatrix single' | ||
103 | v_double' = liftMatrix double' | ||
104 | -} | ||
105 | --------------------------------------------------------------- | ||
106 | 91 | ||
107 | instance (Linear Vector a, Container Matrix a) => Linear Matrix a where | 92 | instance (Linear Vector a, Container Matrix a) => Linear Matrix a where |
108 | scale x = liftMatrix (scale x) | 93 | scale x = liftMatrix (scale x) |