function [ nb, ni, np, ns, pr_bud, pr_bud_angular, r ] = ...
  parameter_initialize ( )

%*****************************************************************************80
%
%% parameter_initialize() sets the initial values of parameters.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    27 December 2012
%
%  Author:
%
%    John Burkardt
%
%  Output:
%
%    integer NB, the number of boundary points.
%
%    integer NI, the number of interior points.
%
%    integer NP, the total number of points.
%
%    integer NS, the number of sample points.
%
%    real PR_BUD, the probability that a boundary point will bud.
%
%    real PR_BUD_ANGULAR, the probability that a boundary point bud
%    will be constrained to the boundary.
%
%    real R, the radius of the circle.
%
  nb = 30;
  ni = 60;
  np = ni + nb;
  ns = 10000;

  pr_bud = 0.05;
  pr_bud_angular = 0.30;

  r = 1.0;

  return
end
