* Test problem 10.1.3 in the web page
* Test problem 10.2.3 in test problem collection
* Test problem from Cottle et al 1992

SETS J /1*3/;

alias(I,J);

PARAMETER M(I,J) matrix/

1.1   0.
1.2  -1.
1.3   2.
2.1   2.
2.2   0.
2.3  -2.
3.1  -1.
3.2   1.
3.3   0.
/;

PARAMETER q(j) vector/

1 -3.
2  6.
3 -1.
/;

VARIABLES x(J);
EQUATIONS eq(I);

eq(I).. sum(J, M(I,J)*x(J)) + q(i) =e= 0.0;
MODEL COTTLE /eq.x/;
x.lo(J) = 0.0;

SOLVE COTTLE using mcp;