diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-09-14 11:06:57 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-09-14 11:06:57 +0000 |
| commit | 9e2f7fb0ca902665b430a96f77959522976a97f9 (patch) | |
| tree | c2f258fe28df79a645f3908655b46fbaf89ecf16 /lib/LinearAlgebra | |
| parent | 620d5008ea9a931a91907cd0c902bb64f005121f (diff) | |
code refactoring
Diffstat (limited to 'lib/LinearAlgebra')
| -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 |