En gros c'est censé donner le résultat sous forme de couple (partie réelle, partie imaginaire):
- open "float";;
let racine a b c =
let d = b*b - 4.*a*c in
let r , e = sqrt(abs_float d)/2./a , -b/2./a in
if d>=0. then (e-r,0.),(e+r,0.)
else (e,r),(e,-r);;
Quand j'essaye de l'utiliser ça marche pas...