function [ x, y, w ] = rule17 ( )

%*****************************************************************************80
%
%% rule17() returns the rule of degree 17.
%
%  Discussion:
%
%    Order 17 (60 pts)
%    1/6 data for 17-th order quadrature with 13 nodes.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    26 June 2014
%
%  Author:
%
%    Original FORTRAN77 version by Hong Xiao, Zydrunas Gimbutas.
%    This version by John Burkardt.
%
%  Output:
%
%    real X(*), Y(*), the coordinates of the nodes.
%
%    real W(*), the weights.
%
  x = [ ...
       0.00000000000000000000000000000000, ...
      -0.84341388249881453210290659667990, ...
       0.00000000000000000000000000000000, ...
      -0.15581940864945499700831493674102, ...
      -0.44328038905528761799845288018270, ...
      -0.24405663711918945323690771490419, ...
       0.00000000000000000000000000000000, ...
      -0.32008743864026572053341280894294, ...
      -0.58451263244119866196418566874803, ...
       0.00000000000000000000000000000000, ...
      -0.66559778269229534571098852849491, ...
       0.00000000000000000000000000000000, ...
       0.00000000000000000000000000000000 ];
  y = [ ... ...
      -0.29018817691328482198192482970493, ...
      -0.55730147641876997108891034072276, ...
       0.52992169651771413561569476668012, ...
      -0.55443580380164528313259557057725, ...
      -0.55459827350347093500389453629695, ...
      -0.30454277894986876852327724535219, ...
       0.16498418183331297460767706117349, ...
      -0.46069772486520133352908482893009, ...
      -0.44217697018376683763624710581761, ...
       0.92380408942408538210867783233523, ...
      -0.54960689880096757714733164550461, ...
       0.11035860158850820902562773489079E+01, ...
      -0.45817780070044727282559523202757 ];
  w = [ ... ...
       0.17971600336645011505239938032544E-01, ...
       0.60333417978448673307205126288851E-02, ...
       0.17314684664654665424326078868145E-01, ...
       0.13685116601127277244126428127471E-01, ...
       0.11439597619776484984723997813429E-01, ...
       0.34443796770210477782263821006565E-01, ...
       0.24818679791573586362196055551041E-01, ...
       0.29595573057886602948646133219328E-01, ...
       0.27055715740469881665013596685831E-01, ...
       0.81984835916342231806329716122509E-02, ...
       0.10500033568557456872117406813490E-01, ...
       0.18253206778903200987505636654074E-02, ...
       0.16463724607144554737778979608446E-01 ];

  return
end
