home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB21.ZIP / MADTRB14.ZIP / SIGCONST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-05-17  |  1.1 KB  |  17 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*               Global constants for significance routines                *)
  3. (*-------------------------------------------------------------------------*)
  4. (*               WARNING:  These are for Turbo-87 only!!!!!                *)
  5. (*-------------------------------------------------------------------------*)
  6.  
  7. CONST
  8.    PI         = 3.141592653589793      (* Math constant PI       *);
  9.    Xln2sp     = 9.18938533204673E-01   (* LogE( Sqrt( 2 * PI ) ) *);
  10.    Rmax       = 1.67E+308              (* Maximum flt pt number  *);
  11.    Rsmall     = 4.19E-306              (* Smallest flt pt number *);
  12.    Rinf       = 1.67E+308              (* Machine "infinity"     *);
  13.    Zeta       = 1.0E-16                (* Approx. machine prec.  *);
  14.    MaxPrec    = 16                     (* Max. precision         *);
  15.    Sqrt2      = 1.4142135623730950     (* Square root of 2       *);
  16.    LnTenInv   = 0.4342944819032520     (* 1 / LN(10)             *);
  17.    LnTwo      = 0.6931471805599450     (* LN(2)                  *);