function showtraj ( )

%% showtraj() plots a family of solutions to y'(t) = -5y(t)
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'showtraj()\n' );

   t= linspace(-.1,.4);
   y = exp(-5*t);
   plot(t,y);
   axis([-.1 .4 0 2])
   hold on
   for c=linspace(0,4,21)
      plot(t,c*y)
   end
   plot(0,1,'o')
   hold off
   title('Solutions to y''(t)  =  -5 y(t)')

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

  return
end

