def invol_inverse(n):
#*****************************************************************************80
#
## INVOL_INVERSE returns the inverse of the INVOL matrix.
#
# Licensing:
#
# This code is distributed under the GNU LGPL license.
#
# Modified:
#
# 27 March 2015
#
# Author:
#
# John Burkardt
#
# Parameters:
#
# Input, integer N, the order of A.
#
# Output, real A(N,N), the matrix.
#
a = invol(n)
return a
def invol_inverse ( n ): #*****************************************************************************80 # ## INVOL_INVERSE returns the inverse of the INVOL matrix. # # Licensing: # # This code is distributed under the GNU LGPL license. # # Modified: # # 27 March 2015 # # Author: # # John Burkardt # # Parameters: # # Input, integer N, the order of A. # # Output, real A(N,N), the matrix. # a = invol ( n ) return a
def invol_determinant_test():
#*****************************************************************************80
#
## INVOL_DETERMINANT_TEST tests INVOL_DETERMINANT.
#
# Licensing:
#
# This code is distributed under the GNU LGPL license.
#
# Modified:
#
# 16 February 2015
#
# Author:
#
# John Burkardt
#
from invol import invol
from r8mat_print import r8mat_print
print ''
print 'INVOL_DETERMINANT_TEST'
print ' INVOL_DETERMINANT computes the INVOL determinant.'
m = 5
n = m
a = invol(n)
r8mat_print(m, n, a, ' INVOL matrix:')
value = invol_determinant(n)
print ''
print ' Value = %g' % (value)
print ''
print 'INVOL_DETERMINANT_TEST'
print ' Normal end of execution.'
return
def invol_determinant_test ( ): #*****************************************************************************80 # ## INVOL_DETERMINANT_TEST tests INVOL_DETERMINANT. # # Licensing: # # This code is distributed under the GNU LGPL license. # # Modified: # # 16 February 2015 # # Author: # # John Burkardt # from invol import invol from r8mat_print import r8mat_print print '' print 'INVOL_DETERMINANT_TEST' print ' INVOL_DETERMINANT computes the INVOL determinant.' m = 5 n = m a = invol ( n ) r8mat_print ( m, n, a, ' INVOL matrix:' ) value = invol_determinant ( n ) print '' print ' Value = %g' % ( value ) print '' print 'INVOL_DETERMINANT_TEST' print ' Normal end of execution.' return
def invol_test():
#*****************************************************************************80
#
## INVOL_TEST tests INVOL.
#
# Licensing:
#
# This code is distributed under the GNU LGPL license.
#
# Modified:
#
# 16 February 2015
#
# Author:
#
# John Burkardt
#
from r8mat_print import r8mat_print
print ''
print 'INVOL_TEST'
print ' INVOL computes the INVOL matrix.'
m = 5
n = m
a = invol(n)
r8mat_print(m, n, a, ' INVOL matrix:')
print ''
print 'INVOL_TEST'
print ' Normal end of execution.'
return
def invol_test ( ): #*****************************************************************************80 # ## INVOL_TEST tests INVOL. # # Licensing: # # This code is distributed under the GNU LGPL license. # # Modified: # # 16 February 2015 # # Author: # # John Burkardt # from r8mat_print import r8mat_print print '' print 'INVOL_TEST' print ' INVOL computes the INVOL matrix.' m = 5 n = m a = invol ( n ) r8mat_print ( m, n, a, ' INVOL matrix:' ) print '' print 'INVOL_TEST' print ' Normal end of execution.' return
