optimization/test_functions/powell_gradient1.m

   1 function g = powell_gradient1(x)
   2   ##
   3   ## A version of the powell_gradient() function which takes a column
   4   ## 4-vector instead of four distinct arguments. See
   5   ## powell_gradient.m for more information.
   6   ##
   7   if (length(x) == 4)
   8     g = powell_gradient(x(1), x(2), x(3), x(4));
   9   else
  10     g = NA;
  11   end
  12 end