function circle_triple_angles_2d_test ( )

%*****************************************************************************80
%
%% circle_triple_angles_2d_test() tests circle_triple_angles_2d().
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    28 January 2021
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'circle_triple_angles_2d_test():\n' );
  fprintf ( 1, '  circle_triple_angles_2d() computes the angles\n' );
  fprintf ( 1, '  in the triangle formed by the centers of 3\n' );
  fprintf ( 1, '  cotangent circles of radius r1, r2, r3.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '      R1      R2      R3      A1      A2      A3\n' );
  fprintf ( 1, '\n' );

  for test = 1 : 10

    r1 = 1.0 + 4.0 * rand ( 1, 1 );
    r2 = 1.0 + 4.0 * rand ( 1, 1 );
    r3 = 1.0 + 4.0 * rand ( 1, 1 );

    [ angle1, angle2, angle3 ] = circle_triple_angles_2d ( r1, r2, r3 );

    fprintf ( 1, '  %8.4f%8.4f%8.4f%8.4f%8.4f%8.4f\n', ...
      r1, r2, r3, angle1, angle2, angle3 );

  end

  return
end
