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

%*****************************************************************************80
%
%% rule07() returns the rule of precision 7.
%
%  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.4731956536892510, ...
          0.4731956536892510, ...
          0.0536086926214978, ...
          0.0577976400545063, ...
          0.8844047198909870, ...
          0.0577976400545066, ...
          0.2593390118657857, ...
          0.6936897820041288, ...
          0.0469712061300856, ...
          0.6936897820041288, ...
          0.2593390118657857, ...
          0.0469712061300854, ...
          0.2416636063972473, ...
          0.5166727872055051, ...
          0.2416636063972475 ];

  b = [ ...
          0.0536086926214979, ...
          0.4731956536892511, ...
          0.4731956536892513, ...
          0.0577976400545066, ...
          0.0577976400545063, ...
          0.8844047198909872, ...
          0.0469712061300856, ...
          0.2593390118657857, ...
          0.6936897820041289, ...
          0.0469712061300856, ...
          0.6936897820041289, ...
          0.2593390118657859, ...
          0.2416636063972475, ...
          0.2416636063972474, ...
          0.5166727872055052 ];

  c = [ ...
          0.4731956536892511, ...
          0.0536086926214979, ...
          0.4731956536892509, ...
          0.8844047198909871, ...
          0.0577976400545067, ...
          0.0577976400545062, ...
          0.6936897820041288, ...
          0.0469712061300855, ...
          0.2593390118657856, ...
          0.2593390118657857, ...
          0.0469712061300854, ...
          0.6936897820041287, ...
          0.5166727872055050, ...
          0.2416636063972475, ...
          0.2416636063972473 ];

  w = [ ...
          0.0531808332967605, ...
          0.0531808332967605, ...
          0.0531808332967605, ...
          0.0409181703940569, ...
          0.0409181703940569, ...
          0.0409181703940569, ...
          0.0557545405406911, ...
          0.0557545405406911, ...
          0.0557545405406911, ...
          0.0557545405406911, ...
          0.0557545405406911, ...
          0.0557545405406911, ...
          0.1277252485611338, ...
          0.1277252485611338, ...
          0.1277252485611338 ];

  return
end
