optimization/test_functions/himmelblau_gradient1.m

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