function bigram_probability_print ( freq, label )

%*****************************************************************************80
%
%% bigram_probability_print() prints the letter-pair probability table.
%
%  Discussion:
%
%    Each row of the frequency table is divided by its sum and multiplied 
%    by 100.  (Percentages are easier to read than true probabilities.)
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    21 March 2021
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer FREQ(27,27): the number of times character i
%    was immediately followed by character j.
%
%    character LABEL, a label for the data.
%
  s = sum ( sum ( freq ) );

  fprintf ( 1, '\n' );
  fprintf ( 1, '%s\n', label );
  fprintf ( 1, '  Characters processed: %d + 2\n', s - 2 );
  fprintf ( 1, '\n' );
  fprintf ( 1, '   c2:' )
  for ( j = 1 : 27 )
    if ( j < 27 )
      c2 = 'a' + j - 1;
    else
      c2 = '*';
    end
    fprintf ( 1, '       %c', c2 );
  end
  fprintf ( 1, '\n' );
  fprintf ( 1, ' c1:\n' );
  for i = 1 : 27
    if ( i < 27 )
      c1 = 'a' + i - 1;
    else
      c1 = '*';
    end
    fprintf ( 1, '  %c:  ', c1 );
    s2 = sum ( freq(i,:) );
    if ( s2 ~= 0 )
      freq(i,:) = 100.0 * freq(i,:) / s2;
    end
    for j = 1 : 27
      fprintf ( 1, '  %6.2f', freq(i,j) );
    end
    fprintf ( 1, '\n' );
  end

  return
end

