From 0500032a1d954058b94cf9a0fa2a662e5666a526 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sun, 4 Oct 2015 14:16:57 +0200 Subject: update examples --- examples/root.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'examples/root.hs') diff --git a/examples/root.hs b/examples/root.hs index 8546ff5..fa6e77a 100644 --- a/examples/root.hs +++ b/examples/root.hs @@ -9,7 +9,7 @@ test method = do print method let (s,p) = root method 1E-7 30 (rosenbrock 1 10) [-10,-5] print s -- solution - disp p -- evolution of the algorithm + disp' p -- evolution of the algorithm jacobian a b [x,y] = [ [-a , 0] , [-2*b*x, b] ] @@ -18,9 +18,9 @@ testJ method = do print method let (s,p) = rootJ method 1E-7 30 (rosenbrock 1 10) (jacobian 1 10) [-10,-5] print s - disp p + disp' p -disp = putStrLn . format " " (printf "%.3f") +disp' = putStrLn . format " " (printf "%.3f") main = do test Hybrids -- cgit v1.2.3