function [f,g]=auf11_3b(x)
% Die Funktion aus Aufgabe 11.3 b (Himmelblau, auch IMSL-Manual)
% Gesucht ist ein lokales Minimum dieser Funktion 
%
% S.F.
global outputname

f = [(x(1,:)-2).^2+(x(2,:)-1).^2];

g = [x(1,:)-2*x(2,:)+1;0.25.*x(1,:).^2+x(2,:).^2-1];

%if ~isempty(outputname), feval(outputname,x); end;
