function [f,g]=rosenbrock(x)
% Die Funktion aus Aufgabe 8b, Optimierung WS 95/96.
% Gesucht ist ein lokales Minimum dieser Funktion 
%
% Helge Baumann, 17.8.1998
global outputname

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

%g = [x(1,:).^2+x(2,:).^2-1];	%	Aufgabe 11.1 a)
g = [x(1,:)+x(2,:).^2-1];	%	Aufgabe 11.1 c)


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