function [f,gf]=myonehump(x)
  r=x(1)^2+x(2)^2;
s=exp(-r);
f=x(1)*s+r/20;

if nargout > 1
gf = [x(1)/10 + exp(- x(1)^2 - x(2)^2) - 2*x(1)^2*exp(- x(1)^2 - x(2)^2);...
  x(2)/10 - 2*x(1)*x(2)*exp(- x(1)^2 - x(2)^2)];
end

