Add the Wood() test function and some tests.

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

diff --git a/optimization/test_functions/wood1.m b/optimization/test_functions/wood1.m
new file mode 100644 (file)
index 0000000..6c3f319
--- /dev/null
+++ b/optimization/test_functions/wood1.m
@@ -0,0 +1,8 @@
+function f = wood1(x)
+  ##
+  ## A version of the Wood function which takes a column 4-vector
+  ## instead of four distinct arguments. See wood.m for more
+  ## information.
+  ##
+  f = wood(x(1), x(2), x(3), x(4));
+end