]> gitweb.michael.orlitzky.com - octave.git/blob - optimization/test_functions/himmelblau_gradient1.m
91db28d23e06484dd82756b0207ce05a99267457
[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