diff options
Diffstat (limited to 'examples')
-rw-r--r-- | examples/oldtests.hs | 1 | ||||
-rw-r--r-- | examples/tests.hs | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/examples/oldtests.hs b/examples/oldtests.hs index 990bc01..5b0e9b4 100644 --- a/examples/oldtests.hs +++ b/examples/oldtests.hs | |||
@@ -3,6 +3,7 @@ import Test.HUnit | |||
3 | import GSL | 3 | import GSL |
4 | import GSL.Special hiding (exp) | 4 | import GSL.Special hiding (exp) |
5 | import GSL.Matrix | 5 | import GSL.Matrix |
6 | import LinearAlgebra.Linear | ||
6 | import System.Random(randomRs,mkStdGen) | 7 | import System.Random(randomRs,mkStdGen) |
7 | 8 | ||
8 | realMatrix = fromLists :: [[Double]] -> Matrix Double | 9 | realMatrix = fromLists :: [[Double]] -> Matrix Double |
diff --git a/examples/tests.hs b/examples/tests.hs index 56bd2ab..0d8361e 100644 --- a/examples/tests.hs +++ b/examples/tests.hs | |||
@@ -92,8 +92,8 @@ epsTol = 1E-8::Double | |||
92 | asFortran m = (rows m >|< cols m) $ toList (fdat m) | 92 | asFortran m = (rows m >|< cols m) $ toList (fdat m) |
93 | asC m = (rows m >< cols m) $ toList (cdat m) | 93 | asC m = (rows m >< cols m) $ toList (cdat m) |
94 | 94 | ||
95 | mulC a b = multiply RowMajor a b | 95 | mulC a b = multiply' RowMajor a b |
96 | mulF a b = multiply ColumnMajor a b | 96 | mulF a b = multiply' ColumnMajor a b |
97 | 97 | ||
98 | infixl 7 <> | 98 | infixl 7 <> |
99 | a <> b = mulF a b | 99 | a <> b = mulF a b |