function exponential_plots ( )

%*****************************************************************************80
%
%% EXPONENTIAL_PLOTS displays the PDF, CDF and Inverse CDF for exponential density.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    25 February 2013
%
%  Author:
%
%    John Burkardt
%
  lambda = 0.75;
%
%  PDF
%
  figure ( 1 )
  x = linspace ( 0.0, 3.0, 101 );
  y = lambda * exp ( - lambda * x );
  plot ( x, y, 'r-', 'LineWidth', 5 );
  grid on
  title ( 'Exponential PDF', 'Fontsize', 24 );
  xlabel ( '<=== X ===>', 'Fontsize', 24 );
  ylabel ( '<=== rho(X) ===>', 'Fontsize', 24 );
  print ( '-dpng', 'exponential_pdf.png' );
%
%  CDF
%
  figure ( 2 )
  x = linspace ( -3.0, 3.0, 101 );
  y = 1.0 - exp ( - lambda * x );
  plot ( x, y, 'r-', 'LineWidth', 5 );
  grid on
  title ( 'Exponential CDF', 'Fontsize', 24 );
  xlabel ( '<=== X ===>', 'Fontsize', 24 );
  ylabel ( '<=== cdf(X) ===>', 'Fontsize', 24 );
  print ( '-dpng', 'exponential_cdf.png' );
%
%  invCDF
%
  figure ( 3 )
  x = linspace ( 0.001, 0.999, 101 );
  y = - log ( 1.0 - x ) / lambda;
  plot ( x, y, 'r-', 'LineWidth', 5 );
  grid on
  title ( 'Exponential invCDF', 'Fontsize', 24 );
  xlabel ( '<=== cdf(X) ===>', 'Fontsize', 24 );
  ylabel ( '<=== X ===>', 'Fontsize', 24 );
  print ( '-dpng', 'exponential_invcdf.png' );

  return
end

