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

%*****************************************************************************80
%
%% sauer_st() returns the sauer web matrix in sparse triplet form.
%
%  Discussion:
%
%    15 nodes, 34 links.
%
%    This matrix appears on page 564 of the reference.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    24 September 2022
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Timothy Sauer,
%    Numerical Analysis,
%    Pearson, 2006,
%    ISBN: 0-321-26898-9,
%    LC: QA297.S348
%
%  Output:
%
%    integer i(34), j(34), v(34): the sparse triplet information.
%
  i = [ ...
    1,  1,  2,  2,  2,  3,  3,  3,  4,  4, ...
    5,  5,  6,  6,  7,  7,  8,  8,  9,  9, ...
    9, 10, 11, 12, 12, 12, 13, 13, 14, 14, ...
   14, 14, 15, 15 ];

  j = [ ...
    2,  9,  3,  5,  7,  2,  6,  8,  3, 12, ...
    1, 10, 10, 11, 10, 11,  4, 11,  5,  6, ...
   10, 13, 15,  7,  8, 11,  9, 14, 10, 11, ...
   13, 15, 12, 14 ];

  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,  1,  1,  1, ...
    1,  1,  1,  1 ];

  return
end

