summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rw-r--r--examples/oldtests.hs1
-rw-r--r--examples/tests.hs4
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
3import GSL 3import GSL
4import GSL.Special hiding (exp) 4import GSL.Special hiding (exp)
5import GSL.Matrix 5import GSL.Matrix
6import LinearAlgebra.Linear
6import System.Random(randomRs,mkStdGen) 7import System.Random(randomRs,mkStdGen)
7 8
8realMatrix = fromLists :: [[Double]] -> Matrix Double 9realMatrix = 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
92asFortran m = (rows m >|< cols m) $ toList (fdat m) 92asFortran m = (rows m >|< cols m) $ toList (fdat m)
93asC m = (rows m >< cols m) $ toList (cdat m) 93asC m = (rows m >< cols m) $ toList (cdat m)
94 94
95mulC a b = multiply RowMajor a b 95mulC a b = multiply' RowMajor a b
96mulF a b = multiply ColumnMajor a b 96mulF a b = multiply' ColumnMajor a b
97 97
98infixl 7 <> 98infixl 7 <>
99a <> b = mulF a b 99a <> b = mulF a b