Description

Test to verify that the initial values get set as expected.  We
expect that the MCP generated by JAMS will have all initial values set
properly, i.e. at the optimal values since we start at a solution.

Contributor: Steven Dirkse, June 2010

Small Model of Type : GAMS

Category : GAMS Test library

Main file : emp09.gms

$title Test initial levels for equilibrium EMP models (EMP09,SEQ=492)

$onText
Test to verify that the initial values get set as expected.  We
expect that the MCP generated by JAMS will have all initial values set
properly, i.e. at the optimal values since we start at a solution.

Contributor: Steven Dirkse, June 2010
$offText

variables x, y, z;
equations fL, fE, obj;

obj..  z =e= x + y;
fL..    sqr(x) + sqr(y) =L= 1;
fE..    sqr(x) + sqr(y) =E= 1;

model mL / obj, fL /;
model mE / obj, fE /;
file e / '%emp.info%' /;

x.l = sqrt(2)/2;
y.l = sqrt(2)/2;
z.l = sqrt(2);
obj.m = 1;
fL.m = sqrt(2)/2;
fE.m = sqrt(2)/2;

putclose e 'equilibrium  max z x y obj fL';
mL.iterlim = 0;
solve mL using emp;
abort$[mL.modelstat  > 2] 'bad model status', mL.modelstat;
abort$[mL.solvestat <> 1] 'bad solve status', mL.solvestat;

putclose e 'equilibrium  max z x y obj fE';
mE.iterlim = 0;
solve mE using emp;
abort$[mE.modelstat  > 2] 'bad model status', mE.modelstat;
abort$[mE.solvestat <> 1] 'bad solve status', mE.solvestat;