let abs a=if a>0. then a else 0. -. a;;
let signe a = a>0.;;
(*effectue une dichotomie de f sur l'interval [a, b] avec une precision de delta*)
(*fonction tail rec*)
let rec dichotomie f a b delta =
if ( abs( f(a) -. f(b) ) < delta) then (a, b) else
let c = (a+.b)/.2. in
if signe(f c ) = signe(f a )
then dichotomie f c b delta
else dichotomie f a c delta ;;