X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=optimization%2Ftest_functions%2Fwood1.m;h=c34de26a9dfe738f59f595b5a5f3731cef472f32;hb=3bd10526e0024458a17ce7588a954e4a470b2bbd;hp=6c3f31901f542bcb2d827fe98c641ef80d29dcca;hpb=87d434fa93b3e52e8a5a0a9d99ae43492c35e1be;p=octave.git

diff --git a/optimization/test_functions/wood1.m b/optimization/test_functions/wood1.m
index 6c3f319..c34de26 100644
--- a/optimization/test_functions/wood1.m
+++ b/optimization/test_functions/wood1.m
@@ -4,5 +4,9 @@ function f = wood1(x)
   ## instead of four distinct arguments. See wood.m for more
   ## information.
   ##
-  f = wood(x(1), x(2), x(3), x(4));
+  if (length(x) == 4)
+    f = wood(x(1), x(2), x(3), x(4));
+  else
+    f = NA;
+  end
 end