function monomial_plot ( )

%*****************************************************************************80
%
%% monomial_plot plots monomials.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    23 October 2019
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'monomial_plot:\n' );
  fprintf ( 1, '  monomial_plot plots monomials.\n' );

  index = [ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ];

  m = 501;
  x = linspace ( 0.0, +1.0, m );
  x = x';

  clf ( );
  hold ( 'on' );
  plot ( [0.0,+1.0], [0.0,0.0], 'b-', 'Linewidth', 1 );
  for i = 1 : length ( index )
    k = index(i);
    y = x.^k;
    plot ( x, y, 'LineWidth', 3 );
  end
  grid ( 'on' );
  xlabel ( '<--- X --->' );
  ylabel ( '<--- X^k --->' );
  title ( 'Monomials X^k, k = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10' );
  hold ( 'off' );

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

  return
end
