function value = cotd ( angle )

%% COTD returns the cotangent of an angle given in degrees.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    23 July 2004
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Input, real ANGLE, the angle, in degrees.
%
%    Output, real COTD, the cotangent of the angle.
%
  degrees_to_radians = pi / 180.0;

  cotd  = cos ( degrees_to_radians * angle ) / sin ( degrees_to_radians * angle );

  return
end