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

%*****************************************************************************80
%
%% rule08() returns the rule of precision 8.
%
%  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.1705693077517601, ...
          0.6588613844964795, ...
          0.1705693077517604, ...
          0.4592925882927231, ...
          0.4592925882927231, ...
          0.0814148234145537, ...
          0.3333333333333333, ...
          0.0505472283170309, ...
          0.8989055433659379, ...
          0.0505472283170313, ...
          0.2631128296346381, ...
          0.7284923929554042, ...
          0.0083947774099577, ...
          0.7284923929554042, ...
          0.2631128296346381, ...
          0.0083947774099575 ];

  b = [ ...
          0.1705693077517604, ...
          0.1705693077517602, ...
          0.6588613844964796, ...
          0.0814148234145537, ...
          0.4592925882927232, ...
          0.4592925882927233, ...
          0.3333333333333334, ...
          0.0505472283170312, ...
          0.0505472283170309, ...
          0.8989055433659381, ...
          0.0083947774099577, ...
          0.2631128296346381, ...
          0.7284923929554045, ...
          0.0083947774099577, ...
          0.7284923929554044, ...
          0.2631128296346383 ];

  c = [ ...
          0.6588613844964796, ...
          0.1705693077517604, ...
          0.1705693077517599, ...
          0.4592925882927231, ...
          0.0814148234145537, ...
          0.4592925882927231, ...
          0.3333333333333333, ...
          0.8989055433659380, ...
          0.0505472283170313, ...
          0.0505472283170306, ...
          0.7284923929554042, ...
          0.0083947774099577, ...
          0.2631128296346378, ...
          0.2631128296346381, ...
          0.0083947774099575, ...
          0.7284923929554041 ];

  w = [ ...
          0.1032173705347182, ...
          0.1032173705347182, ...
          0.1032173705347182, ...
          0.0950916342672846, ...
          0.0950916342672846, ...
          0.0950916342672846, ...
          0.1443156076777872, ...
          0.0324584976231981, ...
          0.0324584976231981, ...
          0.0324584976231981, ...
          0.0272303141744350, ...
          0.0272303141744350, ...
          0.0272303141744350, ...
          0.0272303141744350, ...
          0.0272303141744350, ...
          0.0272303141744350 ];

  return
end
