1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
let () = Error.init ()
type kind =
| GOLDENSECTION
| BRENT
type t
external _alloc : kind -> t
= "ml_gsl_min_fminimizer_alloc"
external _free : t -> unit
= "ml_gsl_min_fminimizer_free"
external _set : t -> Fun.gsl_fun -> min:float -> lo:float -> up:float -> unit
= "ml_gsl_min_fminimizer_set"
let make k f ~min ~lo ~up =
let m = _alloc k in
Gc.finalise _free m ;
_set m f ~min ~lo ~up ;
m
external name : t -> string
= "ml_gsl_min_fminimizer_name"
external iterate : t -> unit
= "ml_gsl_min_fminimizer_iterate"
external minimum : t -> float
= "ml_gsl_min_fminimizer_x_minimum"
external interval : t -> float * float
= "ml_gsl_min_fminimizer_x_interv"
external test_interval : x_lo:float -> x_up:float -> epsabs:float -> epsrel:float -> bool
= "ml_gsl_min_test_interval"