From 1925c123d7d8184a1d2ddc0a413e0fd2776e1083 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 8 May 2014 08:48:12 +0200 Subject: empty hmatrix-base --- examples/pinv.hs | 20 -------------------- 1 file changed, 20 deletions(-) delete mode 100644 examples/pinv.hs (limited to 'examples/pinv.hs') diff --git a/examples/pinv.hs b/examples/pinv.hs deleted file mode 100644 index 7de50b8..0000000 --- a/examples/pinv.hs +++ /dev/null @@ -1,20 +0,0 @@ -import Numeric.LinearAlgebra -import Graphics.Plot -import Text.Printf(printf) - -expand :: Int -> Vector Double -> Matrix Double -expand n x = fromColumns $ map (x^) [0 .. n] - -polynomialModel :: Vector Double -> Vector Double -> Int - -> (Vector Double -> Vector Double) -polynomialModel x y n = f where - f z = expand n z <> ws - ws = expand n x <\> y - -main = do - [x,y] <- (toColumns . readMatrix) `fmap` readFile "data.txt" - let pol = polynomialModel x y - let view = [x, y, pol 1 x, pol 2 x, pol 3 x] - putStrLn $ " x y p 1 p 2 p 3" - putStrLn $ format " " (printf "%.2f") $ fromColumns view - mplot view -- cgit v1.2.3