A Two Persons Game

Run LPL Code  ,  PDF Document

Problem

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

References