function [g]=grosenbrock(x)
% Der Gradient der Rosenbrock-Funktion
%
% Helge Baumann, 7.10.1998
global ngc
ngc = ngc+1;

g = [-400 * (x(2,:) - x(1,:).*x(1,:)) .* x(1,:) - 2.*(1-x(1,:))
      200 * (x(2,:) - x(1,:).*x(1,:))];

