function A = graph_adj_sauer ( )

%*****************************************************************************80
%
%% graph_adj_sauer() returns the adjacency matrix for the Sauer web.
%
%  Discussion:
%
%    15 nodes, 34 links.
%
%    This matrix appears on page 564 of the reference.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    26 April 2026
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Timothy Sauer,
%    Numerical Analysis,
%    Pearson, 2006,
%    ISBN: 0-321-26898-9,
%    LC: QA297.S348
%
%  Output:
%
%    integer A(15,15): the adjacency matrix.
%
  L = [ ...
    1,  2; ...
    1,  9; ...
    2,  3; ...
    2,  5; ...
    2,  7; ...
    3,  2; ...
    3,  6; ...
    3,  8; ...
    4,  3; ...
    4, 12; ...
    5,  1; ...
    5, 10; ...
    6, 10; ...
    6, 11; ...
    7, 10; ...
    7, 11; ...
    8,  4; ...
    8, 11; ...
    9,  5; ...
    9,  6; ...
    9, 10; ...
   10, 13; ...
   11, 15; ...
   12,  7; ...
   12,  8; ...
   12, 11; ...
   13,  9; ...
   13, 14; ...
   14, 10; ...
   14, 11; ...
   14, 13; ...
   14, 15; ...
   15, 12; ...
   15, 14 ];

  A = graph_arc_to_adj ( L );

  return
end

