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

f = [10 * (x(2,:) - x(1,:).*x(1,:)); (1 - x(1,:))];

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