function [f]=rosenbrock(x)
% Die Rosenbrockfunktion
%
% Helge Baumann, 4.5.1998
global nfc
global outputname

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

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