From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 14 Sep 2012 19:35:27 +0000 (-0400)
Subject: Return the number of bisections from the bisect() function.
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=348e6d7d4dc5dd9e190cad5a76748c8e0ab5084a;p=octave.git

Return the number of bisections from the bisect() function.
Update bisect() docs.
---

diff --git a/bisect.m b/bisect.m
index 3e8faa5..3570e57 100644
--- a/bisect.m
+++ b/bisect.m
@@ -1,4 +1,4 @@
-function root = bisect(f, a, b, epsilon)
+function [root,iterations] = bisect(f, a, b, epsilon)
   ## Find a root of the function `f` on the closed interval [a,b].
   ##
   ## It is assumed that there are an odd number of roots within [a,b].
@@ -9,6 +9,26 @@ function root = bisect(f, a, b, epsilon)
   ##
   ## If `f` has more than one root on [a,b], the smallest root will be
   ## returned. This is an implementation detail.
+  ##
+  ##
+  ## INPUTS:
+  ##
+  ##   * ``f`` - The function whose root we seek.
+  ##
+  ##   * ``a`` - The "left" endpoint of the interval in which we search.
+  ##
+  ##   * ``b`` - The "right" endpoint of the interval in which we search.
+  ##
+  ##   * ``epsilon`` - How close we should be to the actual root before we
+  ##     halt the search and return the current approximation.
+  ##
+  ## OUTPUTS:
+  ##
+  ##   * ``root`` - The root that we found.
+  ##
+  ##   * ``iterations`` - The number of bisections that we performed
+  ##     during the search.
+  ##
 
   ## Store these so we don't have to recompute them.
   fa = f(a);
@@ -18,16 +38,19 @@ function root = bisect(f, a, b, epsilon)
   ## interval.  
   if (fa == 0)
     root = a;
+    iterations = 0;
     return;
   end
 
   if (fb == 0)
     root = b;
+    iterations = 0;
     return;
   end
 
   ## Bisect the interval.
   c = (a+b)/2;
+  iterations = 1;
   
   ## If we're within the prescribed tolerance, we're done.
   if (b-c < epsilon)
@@ -36,8 +59,10 @@ function root = bisect(f, a, b, epsilon)
   end
 
   if (has_root(fa,f(c)))
-    root = bisect(f,a,c,epsilon);
+    [root,subiterations] = bisect(f,a,c,epsilon);
+    iterations = iterations + subiterations;
   else
-    root = bisect(f,c,b,epsilon);
+    [root,subiterations] = bisect(f,c,b,epsilon);
+    iterations = iterations + subiterations;
   end
 end