diff options
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) |