From 36c29878a3071e69eaf71c13391ed42a0f17c815 Mon Sep 17 00:00:00 2001
From: Christoph Ruegg <git@cdrnet.ch>
Date: Sat, 20 Jul 2013 19:07:06 +0200
Subject: [PATCH] RootFinding: simple usage in F# module should try the same
 algorithms as core

---
 src/FSharp/FindRoots.fs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/FSharp/FindRoots.fs b/src/FSharp/FindRoots.fs
index 5cd71f0a..16d3ef9a 100644
--- a/src/FSharp/FindRoots.fs
+++ b/src/FSharp/FindRoots.fs
@@ -69,8 +69,10 @@ module FindRoots =
 
     // simple usage
 
-    let ofFunction lowerBound upperBound (f:double->double) = brent 100 1e-8 lowerBound upperBound f
+    let ofFunction lowerBound upperBound (f:double->double) =
+        brent 100 1e-8 lowerBound upperBound f
+        |>| fun () -> bisection 100 1e-8 lowerBound upperBound f
 
     let ofFunctionAndDerivative lowerBound upperBound (f:double->double) (df:double->double) =
         newtonRaphsonRobust 100 20 1e-8 lowerBound upperBound f df
-        |>| fun () -> brent 100 1e-8 lowerBound upperBound f
+        |>| fun () -> bisection 100 1e-8 lowerBound upperBound f