#! /usr/bin/env python3
#
def wathen_test07 ( ):

#*****************************************************************************80
#
## WATHEN_TEST06 assembles, factor and solves using WATHEN_CSC + CG_CSC.
#
#  Licensing:
#
#    This code is distributed under the GNU LGPL license.
#
#  Modified:
#
#    04 September 2014
#
#  Author:
#
#    John Burkardt
#
  import numpy as np
  import platform
  from cg_csc import cg_csc
  from numpy.linalg import norm
  from r8vec_uniform_01 import r8vec_uniform_01
  from wathen_csc import wathen_csc
  from wathen_order import wathen_order

  print ( '' )
  print ( 'WATHEN_TEST07' )
  print ( '  Python version: %s' % ( platform.python_version ( ) ) )
  print ( '  Assemble, factor and solve a Wathen system' )
  print ( '  defined by WATHEN_CSC and CG_CSC.' )
  print ( '' )

  nx = 2
  ny = 2
  print ( '  Elements in X direction NX = %d' % ( nx ) )
  print ( '  Elements in Y direction NY = %d' % ( ny ) )
  print ( '  Number of elements = %d' % ( nx * ny ) )
#
#  Compute the number of unknowns.
#
  n = wathen_order ( nx, ny )
  print ( '  Number of nodes N = %d' % ( n ) )
#
#  Set up a random solution X1.
#
  seed = 123456789
  x1, seed = r8vec_uniform_01 ( n, seed )
#
#  Compute the matrix.
#
  seed = 123456789
  a, seed = wathen_csc ( nx, ny, seed )
#
#  Compute the corresponding right hand side B.
#
  b = a.dot ( x1 )
#
#  Solve the linear system.
#
  x2 = np.ones ( n )
  x2 = cg_csc ( n, a, b, x2 )
#
#  Compute the maximum solution error.
#
  e = norm ( x1 - x2 )
  print ( '  Maximum solution error is %g' % ( e ) )
#
#  Terminate.
#
  print ( '' )
  print ( 'WATHEN_TEST07:' )
  print ( '  Normal end of execution.' )
  return

if ( __name__ == '__main__' ):
  wathen_test07 ( )