unit ECO_calc;
interface

type
  degreetype =  record
    degrees, minutes, sECOnds : real;
  end;

const
  infinity = 9.9999999999e+37;

{  radians  }
{ sin, cos, and arctan are predefined }

function tan( radians : real ) : real;
function arcsin( invalue : real ) : real;
function arccos( invalue : real ) : real;

{  degrees, expressed as a real number  }

function degreestoradians( degrees : real ) : real;
function radianstodegrees( radians : real ) : real;
function sin_degree( degrees : real ) : real;
function cos_degree( degrees : real ) : real;
function tan_degree( degrees : real ) : real;
function arcsin_degree( degrees : real ) : real;
function arccos_degree( degrees : real ) : real;
function arctan_degree( degrees : real ) : real;

{  degrees, in degrees, minutes, and sECOnds, as real numbers  }

function degreepartstodegrees( degrees, minutes, sECOnds : real ) : real;
function degreepartstoradians( degrees, minutes, sECOnds : real ) : real;
procedure degreestodegreeparts( degreesin : real;
                                var degrees, minutes, sECOnds : real );
procedure radianstodegreeparts( radians : real;
                                var degrees, minutes, sECOnds : real );
function sin_degreeparts( degrees, minutes, sECOnds : real ) : real;
function cos_degreeparts( degrees, minutes, sECOnds : real ) : real;
function tan_degreeparts( degrees, minutes, sECOnds : real ) : real;
function arcsin_degreeparts( degrees, minutes, sECOnds : real ) : real;
function arccos_degreeparts( degrees, minutes, sECOnds : real ) : real;
function arctan_degreeparts( degrees, minutes, sECOnds : real ) : real;

{  degrees, expressed as degreetype ( reals in record ) }

function degreetypetodegrees( degreevar : degreetype ) : real;
function degreetypetoradians( degreevar : degreetype ) : real;
procedure degreetypetodegreeparts( degreevar : degreetype;
                                   var degrees, minutes, sECOnds : real );
procedure degreestodegreetype( degrees : real; var degreevar : degreetype );
procedure radianstodegreetype( radians : real; var degreevar : degreetype );
procedure degreepartstodegreetype( degrees, minutes, sECOnds : real;
                                   var degreevar : degreetype );
function sin_degreetype( degreevar : degreetype ) : real;
function cos_degreetype( degreevar : degreetype ) : real;
function tan_degreetype( degreevar : degreetype ) : real;
function arcsin_degreetype( degreevar : degreetype ) : real;
function arccos_degreetype( degreevar : degreetype ) : real;
function arctan_degreetype( degreevar : degreetype ) : real;

{  hyperbolic functions  }

function sinh( invalue : real ) : real;
function cosh( invalue : real ) : real;
function tanh( invalue : real ) : real;
function coth( invalue : real ) : real;
function sech( invalue : real ) : real;
function csch( invalue : real ) : real;
function arcsinh( invalue : real ) : real;
function arccosh( invalue : real ) : real;
function arctanh( invalue : real ) : real;
function arccoth( invalue : real ) : real;
function arcsech( invalue : real ) : real;
function arccsch( invalue : real ) : real;

{  logarithms, powers, and roots  }

{ e to the x  is  exp() }
{ natural log is  ln()  }
function log10( innumber : real ) : real;
function log( base, innumber : real ) : real;  { log of any base }
function power( innumber, exponent : real ) : real;
function root( innumber, theroot : real ) : real;