function [g] = gradienttestfunktion(x)
% Beispielfunktion aus dem Script fuer schlechte Konvergenz
%
% 16. 6. 1998, Helge Baumann
global ngc

ngc = ngc + 1;
g = [2 * x(1,:);  200.* x(2,:)];

return

