diff options
author | Alberto Ruiz <aruiz@um.es> | 2010-02-07 09:29:50 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2010-02-07 09:29:50 +0000 |
commit | aef0333b5180ea79e539bd53194f1dfed20b7db5 (patch) | |
tree | 6ece2434ecacab194331120bd47d09ab04ae0f4f /lib/Data/Packed/Matrix.hs | |
parent | 634683fcfab73a0bd830fef03fb9f4603ba837b6 (diff) |
added odeSolve
Diffstat (limited to 'lib/Data/Packed/Matrix.hs')
-rw-r--r-- | lib/Data/Packed/Matrix.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Data/Packed/Matrix.hs b/lib/Data/Packed/Matrix.hs index dced49f..e204a83 100644 --- a/lib/Data/Packed/Matrix.hs +++ b/lib/Data/Packed/Matrix.hs | |||
@@ -28,7 +28,7 @@ module Data.Packed.Matrix ( | |||
28 | extractRows, | 28 | extractRows, |
29 | ident, diag, diagRect, takeDiag, | 29 | ident, diag, diagRect, takeDiag, |
30 | liftMatrix, liftMatrix2, liftMatrix2Auto, | 30 | liftMatrix, liftMatrix2, liftMatrix2Auto, |
31 | dispf, disps, dispcf, showComplex, latexFormat, format, | 31 | dispf, disps, dispcf, latexFormat, format, |
32 | loadMatrix, saveMatrix, fromFile, fileDimensions, | 32 | loadMatrix, saveMatrix, fromFile, fileDimensions, |
33 | readMatrix, fromArray2D | 33 | readMatrix, fromArray2D |
34 | ) where | 34 | ) where |
@@ -339,7 +339,7 @@ lookslikeInt x = show (round x :: Int) ++".0" == shx || "-0.0" == shx | |||
339 | isZero x = show x `elem` ["0.0","-0.0"] | 339 | isZero x = show x `elem` ["0.0","-0.0"] |
340 | isOne x = show x `elem` ["1.0","-1.0"] | 340 | isOne x = show x `elem` ["1.0","-1.0"] |
341 | 341 | ||
342 | -- | Pretty print a complex matrix with with at most n decimal digits. | 342 | -- | Pretty print a complex matrix with at most n decimal digits. |
343 | dispcf :: Int -> Matrix (Complex Double) -> String | 343 | dispcf :: Int -> Matrix (Complex Double) -> String |
344 | dispcf d m = sdims m ++ "\n" ++ format " " (showComplex d) m | 344 | dispcf d m = sdims m ++ "\n" ++ format " " (showComplex d) m |
345 | 345 | ||