function high_card_display ( m, p )

%*****************************************************************************80
%
%% high_card_display() plots the statistics for a high card simulation.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    23 May 2012
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer M, the number of cards in the deck.
%
%    real P(M), the estimated probability of picking the correct
%    high card by discarding so many cards and taking the next card that
%    is higher.
%
  clf ( );
  plot ( 0:m-1, p, 'b', 'linewidth', 2 );
  grid ( 'on' );
  title ( 'Chance of winning per given skip number' );
  xlabel ( 'Number of cards to skip before choice' );
  ylabel ( 'Chance of correct choice.' );

  filename = 'high_card.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Graphics saved as "%s".\n', filename );

  return
end
