%% high_card_estimated_call.m

  n = 100;
  t = 1000;

  matlabpool open local 4

  parfor k = 1 : n
    p(k) = high_card_estimated ( n, k, t );
  end
  
  matlabpool close

  plot ( 1:n, p, 'b-', 'Linewidth', 2 );
  grid on
  xlabel ( 'Number of cards to skip before choice' )
  ylabel ( 'Chance of correct choice' )
  title ( 'Estimated winning probabilities for 100 card deck.' )
