function S = penal2(x)
global r
S = x(1)*x(2)+r*max(0,x(1).^2+x(2).^2-25);
endfunction
