function diophantine_test02 ( )

%*****************************************************************************80
%
%% diophantine_test02() tests diophantine on a three-variable problem.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    11 March 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'diophantine_test02():\n' );
  fprintf ( 1, '  Solve one Diophantine equation in three variables.\n' );

  a = [ 6; -14; 21 ];
  b = 11;
  diophantine_equation_print ( a, b );

  [ d, v, B ] = diophantine_basis ( a, b );

  diophantine_basis_print ( d, v, B );

  r = diophantine_residual ( a, b, v );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  The residual for the particular solution with c=0 is %d\n', r );

  return
end

