home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / MATH / MC2_.A < prev    next >
Text File  |  1990-08-13  |  2KB  |  34 lines
  1. package MATHEMATICAL_CONSTANTS is
  2.  
  3. -- Only the basic constant is provided.
  4. -- There should be a few more digits than SYSTEM.MAX_DIGITS in each
  5. -- constant.
  6. --
  7. -- Users may get accurate derived constants by the following technique:
  8. --
  9. --  TWO_PI : constant := 2.0 * MATHEMATICAL_CONSTANTS.PI ;
  10. --  HALF_PI : constant := 0.5 * MATHEMATICAL_CONSTANTS.PI ;
  11. --  LOG_BASE_2_OF_10 : constant := 1.0 / MATHEMATICAL_CONSTANTS.LOG10_2 ;
  12. --  LOG_BASE_10_OF_E : constant := 1.0 / MATHEMATICAL_CONSTANTS.LOG_10 ;
  13. --  LOG_BASE_10_OF_PI : constant := MATHEMATICAL_CONSTANTS.LOG_PI / LOG_10 ; 
  14. --
  15. -- Users may rename any constants without loss of accuracy
  16. --
  17. --  E : constant := MATHEMATICAL_CONSTANTS.NATURAL_E ;
  18. --
  19.  
  20.   PI        : constant := 3.14159_26535_89793_23846_26433_83279_50288_41971 ;
  21.   SQRT_PI   : constant := 1.77245_38509_05516_02729_81674_83341_1452 ;
  22.   LOG_PI    : constant := 1.14472_98858_49400_17414_34273_51353_05871_16472 ;
  23.   NATURAL_E : constant := 2.71828_18284_59045_23536_02874_71352_66249_77572 ;
  24.   SQRT_2    : constant := 1.41421_35623_73095_04880_16887_24209_69807_85696 ;
  25.   CBRT_2    : constant := 1.25992_10498_94873_16476_72106_07278_22835_05702 ;
  26.   SQRT_3    : constant := 1.73205_08075_68877_29352_74463_41505_87236_69428 ;
  27.   LOG_2     : constant := 0.69314_71805_59945_30941_72321_21458_17656_80755 ;
  28.   LOG_10    : constant := 2.30258_50929_94045_68401_79914_54684_36420_76011 ;
  29.   LOG10_2   : constant := 0.30102_99956_63981_19521_37388_94724_49302_67881 ;
  30.   GAMMA     : constant := 0.57721_56649_01532_86060_65120_90082_4024 ;
  31.   LOG_GAMMA : constant :=-0.54953_93129_81644_82233_7662 ;
  32.  
  33. end MATHEMATICAL_CONSTANTS ;
  34.