let racine_cubique x =
  if x > 0. then
    x**(1. /. 3.)
  else if abs_float x < 1e-8 then
    0.
  else
    -. (( abs_float x)**(1. /.3.))
;;