function S=test1(x)
// Rosenbrock, 1960
// x0 = [-1.2, 1]'
// xo = [1, 1]'
// S(xo) = 0

// x0=[-0.8 0], d=[8 5]  (busca Coggins)

S=100*(x(2)-x(1).^2).^2+(1-x(1)).^2;

endfunction
