function A = digraph_adj_example_moler ( )

%*****************************************************************************80
%
%% digraph_adj_example_moler() returns the adjacency matrix for a network of Moler.
%
%  Discussion:
%
%    This matrix appears on page 5 of the reference.
%
%    We added a self-link for node 5, which otherwise has no outlinks.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    01 March 2020
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Cleve Moler,
%    Experiments with Matlab,
%    Chapter 7: Google PageRank,
%    https://www.mathworks.com/moler/exm/chapters/pagerank.pdf
%
%  Output:
%
%    integer A(6,6), the adjacency matrix.
%
  node_num = 6;

  A = zeros ( node_num, node_num );

  A(1,2) = 1.0;
  A(1,6) = 1.0;
  A(2,3) = 1.0;
  A(2,4) = 1.0;
  A(3,4) = 1.0;
  A(3,5) = 1.0;
  A(3,6) = 1.0;
  A(4,1) = 1.0;
  A(5,5) = 1.0;
  A(6,1) = 1.0;

  return
end
