Commits

mkur committed 7a3f6a0 Draft

Edited online

Comments (0)

Files changed (1)

 
 {{{
 #!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;;
+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;;
 }}}