with Math_Lib;
     with TypeAKD ;

     package MathAKD is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     -- SX PCs require the coprocessor emulation to use float ( bamp -u ).
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     Copyright : constant string :=
       "MathAKD v1.01 (C) 1994 David Wallace Croft.  All rights reserved.";
     ----------------------------------------------------------------------
     -- Meridian OpenAda for DOS Math_Lib package constants and functions.
     ----------------------------------------------------------------------
     function ATan ( X: float ) return float renames Math_Lib.ATan;
     function Cos  ( X: float ) return float renames Math_Lib.Cos;
     function Exp  ( X: float ) return float renames Math_Lib.Exp;
     function Ln   ( X: float ) return float renames Math_Lib.Ln;
     function Sin  ( X: float ) return float renames Math_Lib.Sin;
     function SqRt ( X: float ) return float renames Math_Lib.SqRt;
     ----------------------------------------------------------------------
     -- Unique math constants, types, and sub-programs.
     ----------------------------------------------------------------------
     function  Characteristic ( InFloat: in float ) return long_integer;
     function Combination (
       N : in natural;
       R : in natural )
       return float;
     procedure Demo;
     procedure Float_String (
       In_Str: in string;
       Is_Float: out boolean;
       Out_Float: out float );
     procedure Integer_String (
       In_Str: in string;
       Is_Integer: out boolean;
       Out_Integer: out integer );
     function  Mantissa (
       InFloat: in float )
       return float;
     function  Mantissa (
       InFloat: in float )
       return string;
     function  Sigmoid (
       InFloat  : in float;
       Reversed : in boolean := false )
       return float;
     function  Tanh (
       X :  in float )
       return float;
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end MathAKD;