function [g] = gauf72a(x)
% Aufgabe 7.2 q)
%
% s.f.
global ngc

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

return

