def complex_i_test():
#*****************************************************************************80
#
## COMPLEX_I_TEST tests COMPLEX_I.
#
# Licensing:
#
# This code is distributed under the GNU LGPL license.
#
# Modified:
#
# 09 January 2015
#
# Author:
#
# John Burkardt
#
from r8mat_print import r8mat_print
print ''
print 'COMPLEX_I_TEST'
print ' COMPLEX_I computes the COMPLEX_I matrix.'
m = 2
n = m
a = complex_i()
r8mat_print(m, n, a, ' COMPLEX_I matrix:')
print ''
print 'COMPLEX_I_TEST'
print ' Normal end of execution.'
return
def complex_i_test ( ): #*****************************************************************************80 # ## COMPLEX_I_TEST tests COMPLEX_I. # # Licensing: # # This code is distributed under the GNU LGPL license. # # Modified: # # 09 January 2015 # # Author: # # John Burkardt # from r8mat_print import r8mat_print print '' print 'COMPLEX_I_TEST' print ' COMPLEX_I computes the COMPLEX_I matrix.' m = 2 n = m a = complex_i ( ) r8mat_print ( m, n, a, ' COMPLEX_I matrix:' ) print '' print 'COMPLEX_I_TEST' print ' Normal end of execution.' return
def complex_i_determinant_test():
#*****************************************************************************80
#
## COMPLEX_I_DETERMINANT_TEST tests COMPLEX_I_DETERMINANT.
#
# Licensing:
#
# This code is distributed under the GNU LGPL license.
#
# Modified:
#
# 09 January 2015
#
# Author:
#
# John Burkardt
#
from complex_i import complex_i
from r8mat_print import r8mat_print
print ''
print 'COMPLEX_I_DETERMINANT_TEST'
print ' COMPLEX_I_DETERMINANT computes the determinant of the COMPLEX_I matrix.'
m = 2
n = m
a = complex_i()
r8mat_print(m, n, a, ' COMPLEX_I matrix:')
value = complex_i_determinant()
print ''
print ' Value = %g' % (value)
print ''
print 'COMPLEX_I_DETERMINANT_TEST'
print ' Normal end of execution.'
return
def complex_i_determinant_test ( ): #*****************************************************************************80 # ## COMPLEX_I_DETERMINANT_TEST tests COMPLEX_I_DETERMINANT. # # Licensing: # # This code is distributed under the GNU LGPL license. # # Modified: # # 09 January 2015 # # Author: # # John Burkardt # from complex_i import complex_i from r8mat_print import r8mat_print print '' print 'COMPLEX_I_DETERMINANT_TEST' print ' COMPLEX_I_DETERMINANT computes the determinant of the COMPLEX_I matrix.' m = 2 n = m a = complex_i ( ) r8mat_print ( m, n, a, ' COMPLEX_I matrix:' ) value = complex_i_determinant ( ) print '' print ' Value = %g' % ( value ) print '' print 'COMPLEX_I_DETERMINANT_TEST' print ' Normal end of execution.' return