function [f,jac]=f1(x)
%
% Funktionswerte
%
f=zeros(2,1);
f(1)=x(1)*x(1)+x(2)*x(2) - 2;
f(2)=exp(x(1)-1) + x(2)*x(2) - 2;
%
% Jacobi-Matrix
%
if nargout == 2
	jac=[2*x(1), 2*x(2); exp(x(1)-1), 2*x(2)];
end