home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / MATH / GEFSTD_.A < prev    next >
Text File  |  1990-08-14  |  3KB  |  52 lines
  1. with ELEMENTARY_FUNCTIONS_EXCEPTIONS ;
  2.  
  3. generic
  4.  
  5.    type FLOAT_TYPE is digits <> ;
  6.  
  7. package GENERIC_ELEMENTARY_FUNCTIONS is
  8.  
  9.    function SQRT    ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  10.    function LOG     ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  11.    function LOG     ( X , BASE  : FLOAT_TYPE )        return FLOAT_TYPE ;
  12.    function EXP     ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  13.    function "**"    ( X , Y     : FLOAT_TYPE )        return FLOAT_TYPE ;
  14.  
  15.    function SIN     ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  16.    function SIN     ( X , CYCLE : FLOAT_TYPE )        return FLOAT_TYPE ;
  17.    function COS     ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  18.    function COS     ( X , CYCLE : FLOAT_TYPE )        return FLOAT_TYPE ;
  19.    function TAN     ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  20.    function TAN     ( X , CYCLE : FLOAT_TYPE )        return FLOAT_TYPE ;
  21.    function COT     ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  22.    function COT     ( X , CYCLE : FLOAT_TYPE )        return FLOAT_TYPE ;
  23.  
  24.    function ARCSIN  ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  25.    function ARCSIN  ( X , CYCLE : FLOAT_TYPE )        return FLOAT_TYPE ;
  26.    function ARCCOS  ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  27.    function ARCCOS  ( X , CYCLE : FLOAT_TYPE )        return FLOAT_TYPE ;
  28.    function ARCTAN  ( Y         : FLOAT_TYPE ;
  29.                       X         : FLOAT_TYPE := 1.0 ) return FLOAT_TYPE ;
  30.    function ARCTAN  ( Y         : FLOAT_TYPE ;
  31.                       X         : FLOAT_TYPE := 1.0 ;
  32.                       CYCLE     : FLOAT_TYPE )        return FLOAT_TYPE ;
  33.    function ARCCOT  ( X         : FLOAT_TYPE ;
  34.                       Y         : FLOAT_TYPE := 1.0 ) return FLOAT_TYPE ;
  35.    function ARCCOT  ( X         : FLOAT_TYPE ;
  36.                       Y         : FLOAT_TYPE := 1.0 ;
  37.                       CYCLE     : FLOAT_TYPE )        return FLOAT_TYPE ;
  38.  
  39.    function SINH    ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  40.    function COSH    ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  41.    function TANH    ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  42.    function COTH    ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  43.  
  44.    function ARCSINH ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  45.    function ARCCOSH ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  46.    function ARCTANH ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  47.    function ARCCOTH ( X         : FLOAT_TYPE )        return FLOAT_TYPE ;
  48.  
  49.    ARGUMENT_ERROR : exception renames ELEMENTARY_FUNCTIONS_EXCEPTIONS.ARGUMENT_ERROR ;
  50.  
  51. end GENERIC_ELEMENTARY_FUNCTIONS ;
  52.