function r = eqcon (x)

  r = [x(1) + x(2) - 1;
       x(1) - x(2)];

endfunction