% ShowGap
% Estimates the expected value of Gap(N) for N =1:30

  clc
  % Number of games used per "experiment"...
  nGames = 1000;
  disp(' N      Expected Value of Gap(N)')
  disp('--------------------------------')
  for N = 1:30
      % Estimate the expected value of Gap(N)
      s = 0;
      for k=1:nGames
          s = s + Gap(N);
      end
      ave = s/nGames;
      fprintf('%3d   %16.3f\n',N,ave)
  end
