optimization/test_functions/powell1.m

   1 function f = powell1(x)
   2   ##
   3   ## A version of the Powell function which takes a column 4-vector as
   4   ## an argument instead of four distinct arguments.
   5   ##
   6   if (length(x) == 4)
   7     f = powell(x(1), x(2), x(3), x(4));
   8   else
   9     f = NA;
  10   end
  11 end