function [f,g]=funungl(x)
% Die Funktion aus Matlab Optimization Toolbox S. 1-9
% Gesucht ist ein lokales Minimum dieser Funktion 
%
% 
global outputname

f = exp(x(1,:)) .* (4*x(1,:).^2 + 2*x(2,:).^2 + 4*x(1,:).*x(2,:) + 2*x(2,:)+1);
g = [x(1,:)+x(2,:)-1;1.5+x(1,:).*x(2,:)-x(1,:)-x(2,:);-x(1,:).*x(2,:)-10];


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

