function ode23tx_test ( )

%*****************************************************************************80
%
%% ode23tx_test tests ode23tx.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 January 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'ode23tx_test\n' );
  fprintf ( 1, '  Test ode23tx.\n' );

  tspan = [0 2*pi];
  y0 = [1 0]';
  F = @(t,y) [0 1; -1 0]*y;
  [ tout, yout ] = ode23tx ( F, tspan, y0 );
  plot ( tout, yout, 'linewidth', 3 );
  grid ( 'on' );
  xlabel ( '<-- T -->' )
  ylabel ( '<-- Y(T) -->' );
  title ( 'ODE solution from ode23tx' );

  filename = 'ode23tx_test.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Graphics saved as "%s"\n', filename );


  return
end

