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

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