X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=optimization%2Ftest_functions%2Fhimmelblau_gradient1.m;fp=optimization%2Ftest_functions%2Fhimmelblau_gradient1.m;h=91db28d23e06484dd82756b0207ce05a99267457;hp=0000000000000000000000000000000000000000;hb=4cf95f960c61165130795e7b5197cfe6e2829692;hpb=336f1181f7f065a07ee58bd772a875f7f4b39247

diff --git a/optimization/test_functions/himmelblau_gradient1.m b/optimization/test_functions/himmelblau_gradient1.m
new file mode 100644
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