diff options
author | Alberto Ruiz <aruiz@um.es> | 2014-05-21 10:30:55 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2014-05-21 10:30:55 +0200 |
commit | 197e88c3b56d28840217010a2871c6ea3a4dd1a4 (patch) | |
tree | 825be9d6c9d87d23f7e5497c0133d11d52c63535 /packages/hmatrix/examples/error.hs | |
parent | e07c3dee7235496b71a89233106d93f6cc94ada1 (diff) |
update dependencies, move examples etc
Diffstat (limited to 'packages/hmatrix/examples/error.hs')
-rw-r--r-- | packages/hmatrix/examples/error.hs | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/packages/hmatrix/examples/error.hs b/packages/hmatrix/examples/error.hs deleted file mode 100644 index 5efae7c..0000000 --- a/packages/hmatrix/examples/error.hs +++ /dev/null | |||
@@ -1,21 +0,0 @@ | |||
1 | import Numeric.GSL | ||
2 | import Numeric.GSL.Special | ||
3 | import Numeric.LinearAlgebra | ||
4 | import Prelude hiding (catch) | ||
5 | import Control.Exception | ||
6 | |||
7 | test x = catch | ||
8 | (print x) | ||
9 | (\e -> putStrLn $ "captured ["++ show (e :: SomeException) ++"]") | ||
10 | |||
11 | main = do | ||
12 | setErrorHandlerOff | ||
13 | |||
14 | test $ log_e (-1) | ||
15 | test $ 5 + (fst.exp_e) 1000 | ||
16 | test $ bessel_zero_Jnu_e (-0.3) 2 | ||
17 | |||
18 | test $ (linearSolve 0 4 :: Matrix Double) | ||
19 | test $ (linearSolve 5 (sqrt (-1)) :: Matrix Double) | ||
20 | |||
21 | putStrLn "Bye" \ No newline at end of file | ||