function stetter_lambda_test ( )

%*****************************************************************************80
%
%% stetter_lambda_test() tests stetter_lambda().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    05 March 2021
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'stetter_lambda_test()\n' );
  fprintf ( 1, '  Plot lambda(t) for stetter_ode().\n' );

  n = 121;
  t = linspace ( 0.0, 30.0, n );
  y = ones ( n, 1 );
  dydt = stetter_deriv ( t, y );

  clf ( );
  plot ( t, dydt, 'ro' );
  grid ( 'on' );
  xlabel ( '<--- T --->' );
  ylabel ( '<--- Lambda(T) --->' );
  title ( 'Lambda(T) for stetter_ode()' );

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

  return
end

