function qp1

%
% l-1 penalty function for min -2(x-0.25)^2 + 2(y-0.5)^2
%                          st   x+ y <= 1
%                               3x+y <= 1.5
%                              (x,y) >= 0
%
% 22/Jun/99
%

for k = 1:20
  x(k) = ( ( - 1.0 ) ** ( k ) ) * ( 1 + 2.0 ** (- k ) ) 
  f(k) = x(k) ** 2
end
