Add the Himmelblau function, as defined in Applied Nonlinear Programming.

[octave.git] / optimization / test_functions / himmelblau_gradient1.m

diff --git a/optimization/test_functions/himmelblau_gradient1.m b/optimization/test_functions/himmelblau_gradient1.m
new file mode 100644 (file)
index 0000000..91db28d
--- /dev/null
+++ b/optimization/test_functions/himmelblau_gradient1.m
@@ -0,0 +1,12 @@
+function g = himmelblau_gradient1(x)
+  ##
+  ## A version of the himmelblau_gradient() function which takes a
+  ## column 2-vector instead of two distinct arguments. See
+  ## himmelblau_gradient.m for more information.
+  ##
+  if (length(x) == 2)
+    g = himmelblau_gradient(x(1), x(2));
+  else
+    g = NA;
+  end
+end