function p = circle_positive_sample ( )

%*****************************************************************************80
%
%% circle_positive_sample samples the unit positive circle.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    10 August 2023
%
%  Author:
%
%    John Burkardt
%
%  Output:
%
%    real p(2,1): a point selected uniformly at random from
%    the positive circle of radius 1 and center (0,0).
%
  theta = 2.0 * pi * rand ( 1, 1 );

  x = abs ( cos ( theta ) );
  y = abs ( sin ( theta ) );
  p = [ x, y ];

  return
end

