Commits

mkur committed efdcf61 Draft

Edited online

Comments (0)

Files changed (1)

 == nlopt-ocaml ==
 
-[[Nlopt]] module interface.
+[[Nlopt]] module interface.
+
+== Example ==
+
+{{{
+#!ocaml
+	open Nlopt;;
+	
+	let opt = create NLOPT_LD_LBFGS 2;;
+	
+	let f a grad = 					
+	  let x = a.(0) in
+	  let y = a.(1) in
+	  let () =
+	    match grad with
+		None -> ()
+	      | Some g ->
+		  begin  
+		    g.(0) <- 2. *. (x -. 1.);
+		    g.(1) <- 2. *. y;
+		  end in
+	    (x -. 1.) ** 2. +. y ** 2.;;
+	
+	set_min_objective opt f;;
+	set_xtol_rel opt 1e-06;;
+	
+	let x0 = [| 5.;  5.|];;
+	
+	let (res, xopt, xfopt) = optimize opt x0;;
+}}}