function daub4_scale_plot ( n )

%*****************************************************************************80
%
%% daub4_scale_plot() plots the DAUB4 scaling function.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    01 August 2011
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer N, the recursion level.
%
  x = linspace ( 0.0, 4.0, 801 );

  y = daub4_scale ( n, x );

  plot ( x, y, 'LineWidth', 2 );

  grid on
  xlabel ( '<---X--->' );
  ylabel ( '<---Y--->' );
  title ( sprintf ( 'DAUB4 Scale Function, Recursion level n = %d', n ) );

  return
end
