function [ a, b, c, w ] = rule10 ( )

%*****************************************************************************80
%
%% rule10() returns the rule of precision 10.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    09 June 2023
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Hong Xiao, Zydrunas Gimbutas,
%    A numerical algorithm for the construction of efficient
%    quadrature rules in two and higher dimensions, 
%    Computers and Mathematics with Applications,
%    Volume 59, 2010, pages 663-676.
%
%  Output:
%
%    real a(n), b(n), c(n): the barycentric coordinates of quadrature points.
%
%    real w(n): the quadrature weights.
%
  a = [ ...
          0.4951734598011704, ...
          0.4951734598011704, ...
          0.0096530803976590, ...
          0.0191394152428411, ...
          0.9617211695143175, ...
          0.0191394152428416, ...
          0.1337347551008691, ...
          0.8315416244168033, ...
          0.0347236204823275, ...
          0.8315416244168033, ...
          0.1337347551008692, ...
          0.0347236204823273, ...
          0.3333333333333333, ...
          0.3266931362813369, ...
          0.6357241363774715, ...
          0.0375827273411917, ...
          0.6357241363774714, ...
          0.3266931362813369, ...
          0.0375827273411916, ...
          0.1844850126852464, ...
          0.6310299746295069, ...
          0.1844850126852466, ...
          0.4282348209437188, ...
          0.4282348209437188, ...
          0.1435303581125623 ];

  b = [ ...
          0.0096530803976591, ...
          0.4951734598011706, ...
          0.4951734598011707, ...
          0.0191394152428414, ...
          0.0191394152428411, ...
          0.9617211695143175, ...
          0.0347236204823275, ...
          0.1337347551008691, ...
          0.8315416244168037, ...
          0.0347236204823275, ...
          0.8315416244168035, ...
          0.1337347551008694, ...
          0.3333333333333334, ...
          0.0375827273411917, ...
          0.3266931362813369, ...
          0.6357241363774715, ...
          0.0375827273411917, ...
          0.6357241363774715, ...
          0.3266931362813372, ...
          0.1844850126852466, ...
          0.1844850126852465, ...
          0.6310299746295072, ...
          0.1435303581125623, ...
          0.4282348209437189, ...
          0.4282348209437190 ];

  c = [ ...
          0.4951734598011705, ...
          0.0096530803976590, ...
          0.4951734598011703, ...
          0.9617211695143174, ...
          0.0191394152428414, ...
          0.0191394152428409, ...
          0.8315416244168033, ...
          0.0347236204823275, ...
          0.1337347551008689, ...
          0.1337347551008692, ...
          0.0347236204823274, ...
          0.8315416244168033, ...
          0.3333333333333333, ...
          0.6357241363774714, ...
          0.0375827273411916, ...
          0.3266931362813368, ...
          0.3266931362813369, ...
          0.0375827273411916, ...
          0.6357241363774713, ...
          0.6310299746295069, ...
          0.1844850126852466, ...
          0.1844850126852462, ...
          0.4282348209437189, ...
          0.1435303581125623, ...
          0.4282348209437188 ];

  w = [ ...
          0.0097925904984183, ...
          0.0097925904984183, ...
          0.0097925904984183, ...
          0.0063853592301187, ...
          0.0063853592301187, ...
          0.0063853592301187, ...
          0.0289622814632563, ...
          0.0289622814632563, ...
          0.0289622814632563, ...
          0.0289622814632563, ...
          0.0289622814632563, ...
          0.0289622814632563, ...
          0.0836148743739739, ...
          0.0387390490860189, ...
          0.0387390490860189, ...
          0.0387390490860189, ...
          0.0387390490860189, ...
          0.0387390490860189, ...
          0.0387390490860189, ...
          0.0786337697463773, ...
          0.0786337697463773, ...
          0.0786337697463773, ...
          0.0752473279685440, ...
          0.0752473279685440, ...
          0.0752473279685440 ];

  return
end
