package MATHEMATICAL_CONSTANTS is

-- Only the basic constant is provided.
-- There should be a few more digits than SYSTEM.MAX_DIGITS in each
-- constant.
--
-- Users may get accurate derived constants by the following technique:
--
--  TWO_PI : constant := 2.0 * MATHEMATICAL_CONSTANTS.PI ;
--  HALF_PI : constant := 0.5 * MATHEMATICAL_CONSTANTS.PI ;
--  LOG_BASE_2_OF_10 : constant := 1.0 / MATHEMATICAL_CONSTANTS.LOG10_2 ;
--  LOG_BASE_10_OF_E : constant := 1.0 / MATHEMATICAL_CONSTANTS.LOG_10 ;
--  LOG_BASE_10_OF_PI : constant := MATHEMATICAL_CONSTANTS.LOG_PI / LOG_10 ; 
--
-- Users may rename any constants without loss of accuracy
--
--  E : constant := MATHEMATICAL_CONSTANTS.NATURAL_E ;
--

  PI        : constant := 3.14159_26535_89793_23846_26433_83279_50288_41971 ;
  SQRT_PI   : constant := 1.77245_38509_05516_02729_81674_83341_1452 ;
  LOG_PI    : constant := 1.14472_98858_49400_17414_34273_51353_05871_16472 ;
  NATURAL_E : constant := 2.71828_18284_59045_23536_02874_71352_66249_77572 ;
  SQRT_2    : constant := 1.41421_35623_73095_04880_16887_24209_69807_85696 ;
  CBRT_2    : constant := 1.25992_10498_94873_16476_72106_07278_22835_05702 ;
  SQRT_3    : constant := 1.73205_08075_68877_29352_74463_41505_87236_69428 ;
  LOG_2     : constant := 0.69314_71805_59945_30941_72321_21458_17656_80755 ;
  LOG_10    : constant := 2.30258_50929_94045_68401_79914_54684_36420_76011 ;
  LOG10_2   : constant := 0.30102_99956_63981_19521_37388_94724_49302_67881 ;
  GAMMA     : constant := 0.57721_56649_01532_86060_65120_90082_4024 ;
  LOG_GAMMA : constant :=-0.54953_93129_81644_82233_7662 ;

end MATHEMATICAL_CONSTANTS ;