Add the Himmelblau function, as defined in Applied Nonlinear Programming.
[octave.git] / 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