function [gf,gg]=grosenbrock(x)
% Der Gradient zu Aufgabe11.2 b)
%
% S.F.
global outputname



gf = [2*x(1,:) ;
       2* x(2,:) ];

gg = [1,0,-1;
      0,1,-3];

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