function vdc_base_test ( )

%*****************************************************************************80
%
%% vdc_base_test() tests vdc_base().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    09 August 2016
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'vdc_base_test():\n' );
  fprintf ( 1, '  VDC_BASE returns the I-th element of a van der Corput\n' );
  fprintf ( 1, '  sequence in base B.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '    I          VDC_BASE(I,2)   VDC_BASE(I,3)   VDC_BASE(I,5)\n' );
  fprintf ( 1, '\n' );

  for i = -10 : 10
    r2 = vdc_base ( i, 2 );
    r3 = vdc_base ( i, 3 );
    r5 = vdc_base ( i, 5 );
    fprintf ( 1, '  %3d         %14.8f  %14.8f  %14.8f\n', i, r2, r3, r5 );
  end

  return
end
