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