#*****************************************************************************80
#
## tspsa_test tests tspsa.
#
#  Licensing:
#
#    Copyright 2016 James P. Howard, II
#
#    The computer code and data files on this web page are distributed under
#    https://opensource.org/licenses/BSD-2-Clause, the BSD-2-Clause license.
#
#  Modified:
#
#    21 March 2020
#
#  Author:
#
#    John Burkardt
#
cat ( date ( ), "\n" )
cat ( "\n" )
cat ( "tspsa_test\n" )
cat ( " ", version$version.string, "\n" )
cat ( "  tspsa solves a traveling salesperson problem using simulated annealing.\n" )

source ( "/home/burkardt/public_html/r_src/tspsa/tspsa.R" )  

cities <- matrix ( floor ( runif ( 30, 0, 100 ) ), ncol = 2 )

value <- tspsa ( cities, temp = 1.0 )
cat ( "\n" )
cat ( "  For temp = 1\n" )
cat ( "  Ordering:\n" );
print ( value$order )
cat ( "  Distance:\n" );
print ( value$distance )

value <- tspsa ( cities, temp = 100.0 )
cat ( "\n" )
cat ( "  For temp = 100\n" )
cat ( "  Ordering:\n" );
print ( value$order )
cat ( "  Distance:\n" );
print ( value$distance )
#
#  Terminate.
#
cat ( "\n" )
cat ( "tspsa_test\n" )
cat ( "  Normal end of execution.\n" )
cat ( date ( ), "\n" )

quit ( )