X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=optimization%2Ftest_functions%2Fpowell_hessian1.m;fp=optimization%2Ftest_functions%2Fpowell_hessian1.m;h=b11d7f8f338436bfa80198ed20c025811bb1005a;hp=0000000000000000000000000000000000000000;hb=1e0c72bb336872f0839305340eb9699a87a40319;hpb=54c2041babd3d3b67c9d26162f44da66f66b12db

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