This model is related to the model gameh.
model gameht "A Two Persons Game";
set i,j :=[1..7];
parameter p{i,j} :=
if(i>j+1,-j , i=j+1,i+j , i=j-1,-i-j, i<j-1,i);
variable x{i} "Strategy of player 1";
constraint R: sum{i} x = 1;
maximize gain: min{j} (sum{i} p*x);
if GetSolverStatus<>7 then return 0; end
x{i|i>1}:=x[i-1]+x[i];
set k,r:=[1..34];
parameter q{k,r}; n;
integer parameter T{k,r}:=
q[k,r]:=Rnd(0,1), n:=1,
while(q>x[n], n:=n+1), n;
Write{k}('%2d' n' , {r} T);
end
[1] MatMod. Homepage for Learning Mathematical Modeling : https://matmod.ch.
[2] Hürlimann T. Reference Manual for the LPL Modeling Language, most recent version. https://matmod.ch/lpl/doc/manual.pdf.