diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-09-14 18:23:20 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-09-14 18:23:20 +0000 |
| commit | d14515a4a50d5b5335f9c1525432b68ab67fa7c8 (patch) | |
| tree | fb07b2e27b4b5cebc32a3c7ee064ef376344d7e7 /lib/GSL | |
| parent | 9e2f7fb0ca902665b430a96f77959522976a97f9 (diff) | |
more refactoring
Diffstat (limited to 'lib/GSL')
| -rw-r--r-- | lib/GSL/Matrix.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/GSL/Matrix.hs b/lib/GSL/Matrix.hs index 15710df..ec8ceea 100644 --- a/lib/GSL/Matrix.hs +++ b/lib/GSL/Matrix.hs | |||
| @@ -289,7 +289,7 @@ luC m = (l,u,p, fromIntegral s') where | |||
| 289 | lu = reshape r $ subVector 0 (r*r) v | 289 | lu = reshape r $ subVector 0 (r*r) v |
| 290 | s':p = map (round.realPart) . toList . subVector (r*r) (r+1) $ v | 290 | s':p = map (round.realPart) . toList . subVector (r*r) (r+1) $ v |
| 291 | u = triang r r 0 1 `mul` lu | 291 | u = triang r r 0 1 `mul` lu |
| 292 | l = (triang r r 0 0 `mul` lu) `add` ident r | 292 | l = (triang r r 0 0 `mul` lu) `add` liftMatrix comp (ident r) |
| 293 | add = liftMatrix2 $ vectorZipC Add | 293 | add = liftMatrix2 $ vectorZipC Add |
| 294 | mul = liftMatrix2 $ vectorZipC Mul | 294 | mul = liftMatrix2 $ vectorZipC Mul |
| 295 | 295 | ||