function f = himmelblau1(x)
  %
  % A version of the Himmelblau function which takes a column
  % 2-vector instead of two distinct arguments. See himmelblau.m for
  % more information.
  %
  if (length(x) == 2)
    f = himmelblau(x(1), x(2));
  else
    f = NA;
  end
end
