function [dg,dh]=grestr(x)
// Edgar & Himmelblau, 1988
// com restricao:
// x0 = [-1, -2]'
// xo = [5.1663, -3.9157]' , minimo local
// S(xo) = 202.6
// x0 = [0, 6]'
// xo=[2.3537, 3.1157]'  , minimo global
// S(xo) = -4.9606
// x0 = [0, 0]'
// falha do fmincon usando LB=[-5 -5] e UB=[6 6] para encontrar solucao viavel

dg = [-5   -2];
dh = [-2   2*x(2)];

endfunction
