diff options
| author | Alberto Ruiz <aruiz@um.es> | 2010-02-03 17:53:51 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2010-02-03 17:53:51 +0000 |
| commit | 3f5bf5985d3da0e4d01cd9c126cb781cb6fc28ef (patch) | |
| tree | f4ff2376e550668e19912b96e3ad88979a52cfb3 /examples/pinv.hs | |
| parent | ab5a2c1c8b4ecd7f8d9d9823d9976410aa94bb18 (diff) | |
updated examples, removed Util module
Diffstat (limited to 'examples/pinv.hs')
| -rw-r--r-- | examples/pinv.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/pinv.hs b/examples/pinv.hs index cab8fc6..7de50b8 100644 --- a/examples/pinv.hs +++ b/examples/pinv.hs | |||
| @@ -3,7 +3,7 @@ import Graphics.Plot | |||
| 3 | import Text.Printf(printf) | 3 | import Text.Printf(printf) |
| 4 | 4 | ||
| 5 | expand :: Int -> Vector Double -> Matrix Double | 5 | expand :: Int -> Vector Double -> Matrix Double |
| 6 | expand n x = fromColumns $ constant 1 (dim x): map (x^) [1 .. n] | 6 | expand n x = fromColumns $ map (x^) [0 .. n] |
| 7 | 7 | ||
| 8 | polynomialModel :: Vector Double -> Vector Double -> Int | 8 | polynomialModel :: Vector Double -> Vector Double -> Int |
| 9 | -> (Vector Double -> Vector Double) | 9 | -> (Vector Double -> Vector Double) |