function S=test19(x)
// Papageorgiou, 1996
//
// x0 = 2
// goals: S* = [0.5 0.5]'
// weights: w = [0.5 0.5]'
// xo = 0.1429
// S(xo) = [1.0102 1.0102]'

//w=0.5;
global w
S=w*(1+0.5*x.^2)+(1-w)*(4*(x-0.5).^2+0.5);

// [x,S,ns]=bfgs('test19',2)

endfunction
