function moment = pentomino_moment ( c )

%*****************************************************************************80
%
%% pentomino_moment() returns the moment of a pentomino.
%
%  Discussion:
%
%    Legal symbols are F, I, L, P, N, T, U, V, W, X, Y, Z.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 May 2020
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    char c: the symbol for a pentomino.
%
%  Output:
%
%    real moment: the moment of inertia of the pentomino.
%
  c = upper ( c );

  if ( c == 'F' )
    moment = 4.8;
  elseif ( c == 'I' )
    moment = 10.0;
  elseif ( c == 'L' )
    moment = 7.6;
  elseif ( c == 'P' )
    moment = 4.0;
  elseif ( c == 'N' )
    moment = 6.4;
  elseif ( c == 'T' )
    moment = 5.2;
  elseif ( c == 'U' )
    moment = 5.2;
  elseif ( c == 'V' )
    moment = 6.4;
  elseif ( c == 'W' )
    moment = 5.6;
  elseif ( c == 'X' )
    moment = 4.0;
  elseif ( c == 'Y' )
    moment = 6.0;
  elseif ( c == 'Z' )
    moment = 6.0;
  else
    fprintf ( 1, '\n' );
    fprintf ( 1, 'pentomino_moment - Fatal error!\n' );
    fprintf ( 1, '  Unrecognized pentomino symbol "%s"\n', c );
    error ( 'pentomino_moment - Fatal error!');
  end

  moment = moment + 5.0 / 6.0;

  return
end

