function [gf,gg]=gfunungl(x)
% Der Gradient der Funktion aus Matlab Optimization Toolbox S. 1-9
%
% S.F.
global outputname

gf = [exp(x(1,:)).*(4*x(1,:).^2+2*x(2,:).^2+4*x(1,:).*x(2,:)+2*x(2,:)+1)+...
 exp(x(1,:)).*(8*x(1,:)+4*x(2,:));
 exp(x(1,:)).*(4*x(1,:)+4*x(2,:)+2)];

gg= [x(2,:)-1,-x(2,:);x(1,:)-1,-x(1,:)];

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