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 | ||