sig
type kind = NEWTON | SECANT | STEFFENSON
type t
val make : Root.Polish.kind -> Fun.gsl_fun_fdf -> float -> Root.Polish.t
external name : Root.Polish.t -> string = "ml_gsl_root_fdfsolver_name"
external iterate : Root.Polish.t -> unit = "ml_gsl_root_fdfsolver_iterate"
external root : Root.Polish.t -> float = "ml_gsl_root_fdfsolver_root"
end