Include["C:\mkearns\gambit\GenRandomGame.gcl"];

n := 2; //number of players
numtrials := 10;
maxactions := 10;
timeList := List[0,0]; //list of execution times
solnList := List[0,0]; //list of number of NE
For[m := 1, m <= maxactions, m := m+1,
  Print["number of actions:"];
  Print[m];
  totalTime := 0.0;
  totalSoln := 0;
  For[t := 1, t <= numtrials, t := t+1,
    Print["."];
    game := GenRandomGame[n,m];
    StartWatch[];
    soln := EnumMixedSolve[game];
    totalTime := totalTime + StopWatch[];
    totalSoln := totalSoln + Length[soln];
  ];
  Print["\n"];
  timeList := Concat[timeList,List[totalTime/numtrials]];
  solnList := Concat[solnList,List[Float[totalSoln/numtrials]]];
];
outputFile := Output["C:\mkearns\gambit\myout.ext"];
ListFormat[False,False];
Write[outputFile,"Average execution times:\n\n"];
Write[outputFile,timeList];
Write[outputFile,"\n\nAverage number of NE:\n\n"];
Write[outputFile,solnList];