Example #1
0
def herndon_determinant_test ( ):

#*****************************************************************************80
#
## HERNDON_DETERMINANT_TEST tests HERNDON_DETERMINANT.
#
#  Licensing:
#
#    This code is distributed under the GNU LGPL license.
#
#  Modified:
#
#    12 February 2015
#
#  Author:
#
#    John Burkardt
#
  from herndon import herndon
  from r8mat_print import r8mat_print

  print ''
  print 'HERNDON_DETERMINANT_TEST'
  print '  HERNDON_DETERMINANT computes the HERNDON determinant.'

  m = 5
  n = m
 
  a = herndon ( n )

  r8mat_print ( m, n, a, '  HERNDON matrix:' )

  value = herndon_determinant ( n )

  print ''
  print '  Value =  %g' % ( value )

  print ''
  print 'HERNDON_DETERMINANT_TEST'
  print '  Normal end of execution.'

  return
Example #2
0
def herndon_test ( ):

#*****************************************************************************80
#
## HERNDON_TEST tests HERNDON.
#
#  Licensing:
#
#    This code is distributed under the GNU LGPL license.
#
#  Modified:
#
#    12 February 2015
#
#  Author:
#
#    John Burkardt
#
  from r8mat_print import r8mat_print

  print ''
  print 'HERNDON_TEST'
  print '  HERNDON computes the HERNDON matrix.'

  m = 5
  n = m

  a = herndon ( n )
 
  r8mat_print ( m, n, a, '  HERNDON matrix:' )

  print ''
  print 'HERNDON_TEST'
  print '  Normal end of execution.'

  return