function [ i, j, v ] = mac2_st ( )

%*****************************************************************************80
%
%% mac2_st() returns the mac2 web matrix in sparse triplet form.
%
%  Discussion:
%
%    16 nodes, 27 links.
%
%    This matrix appears on page 33 of the reference.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    24 September 2022
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    John MacCormick,
%    Nine Algorithms That Changed the Future: The Ingenious Ideas that 
%    Drive Today's Computers,
%    Princeton University Press,
%    ISBN-13: 978-0691158198.
%
%  Output:
%
%    integer i(27), j(27), v(27): the sparse triplet information.
%
  i = [ ...
    1,  1,  1,  2,  3,  3,  4,  5,  5,  6, ...
    6,  7,  8,  8,  8,  9, 10, 10, 10, 10, ...
   10, 11, 12, 13, 14, 15, 16   ];
  j = [ ...
    2,  3,  6,  4,  4,  5,  5,  7,  8,  5, ...
    7, 15,  7,  9, 10, 10,  7, 11, 12, 13, ...
   14, 15, 15, 15, 15, 16,  1   ];
  v = [ ...
    1,  1,  1,  1,  1,  1,  1,  1,  1,  1, ...
    1,  1,  1,  1,  1,  1,  1,  1,  1,  1, ...
    1,  1,  1,  1,  1,  1,  1   ];

  return
end

