function showmysqrt ( )
%
%% showmysqrt() plots the error in the function Mysqrt.

  fprintf ( 1, '\n' );
  fprintf ( 1, 'showmysqrt():\n' );

  close all
  L = 1.0;
  R = 20.0;

   Avals = linspace(L,R,300);
   s = zeros(1,300);
   for k=1:300
      s(k) = MySqrt(Avals(k));
   end
   error = abs(s-sqrt(Avals))./sqrt(Avals);

   figure
   plot(Avals,error+eps*.01)
   title('Relative Error in the Function MySqrt(A)')
   xlabel('A');
  filename = 'showmysqrt.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Graphics saved as "%s"\n', filename );

  return
end

 


   
