Commit 71bee8a1 authored by Benoit Barbot's avatar Benoit Barbot
Browse files

prog

parent e9140524
Pipeline #2155 passed with stages
in 2 minutes and 12 seconds
......@@ -90,7 +90,7 @@ let rec bisect_increasing ?(factor = 1e-10) ?(strict = true) ?(relax = 0.0) ?low
(* go left *)
(*Format.printf "left\n";*)
bisect_increasing ~relax ~strict ~factor ?low
(bmin -. (relax *. width), m +. (relax *. width))
(max 0.0 (bmin -. (relax *. width)), m +. (relax *. width))
f_to_evaluate
else
(* go right *)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment