diff options
Diffstat (limited to 'lib/LinearAlgebra/Linear.hs')
-rw-r--r-- | lib/LinearAlgebra/Linear.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/LinearAlgebra/Linear.hs b/lib/LinearAlgebra/Linear.hs index 51b32f5..53e011f 100644 --- a/lib/LinearAlgebra/Linear.hs +++ b/lib/LinearAlgebra/Linear.hs | |||
@@ -27,7 +27,7 @@ import GSL.Vector | |||
27 | import Complex | 27 | import Complex |
28 | 28 | ||
29 | 29 | ||
30 | class (Num e, Field e) => Linear c e where | 30 | class (Field e) => Linear c e where |
31 | scale :: e -> c e -> c e | 31 | scale :: e -> c e -> c e |
32 | addConstant :: e -> c e -> c e | 32 | addConstant :: e -> c e -> c e |
33 | add :: c e -> c e -> c e | 33 | add :: c e -> c e -> c e |
@@ -68,5 +68,5 @@ dot u v = dat (multiply r c) `at` 0 | |||
68 | , 10.0, 4.0, 6.0 | 68 | , 10.0, 4.0, 6.0 |
69 | , 15.0, 6.0, 9.0 ]@ | 69 | , 15.0, 6.0, 9.0 ]@ |
70 | -} | 70 | -} |
71 | outer :: (Num t, Field t) => Vector t -> Vector t -> Matrix t | 71 | outer :: (Field t) => Vector t -> Vector t -> Matrix t |
72 | outer u v = asColumn u `multiply` asRow v | 72 | outer u v = asColumn u `multiply` asRow v |