OpenEuphoria

Re: New proposal for math.e

• Posted by Juergen Luethje <j.lue at gmx??e> Aug 04, 2007
• 535 views

No differenced anymore!  *LOL*

constant FLOAT64_TO_ATOM = 47

global constant
   E          = 2.7182818284590452,
   PI         = 3.1415926535897932,
   LN2        = log(2),
   LN10       = log(10),
   SQRT2      = sqrt(2),
   HALF_SQRT2 = sqrt(2)/2,
   HALF_PI    = PI/2, 
   QUARTER_PI = PI/4, 
   TWO_PI     = PI*2, 

   E_f          = machine_func(FLOAT64_TO_ATOM, {105,87,20,139,10,191,5,64}),
   PI_f         = machine_func(FLOAT64_TO_ATOM, {24,45,68,84,251,33,9,64}),
   LN2_f        = machine_func(FLOAT64_TO_ATOM, {239,57,250,254,66,46,230,63}),
   LN10_f       = machine_func(FLOAT64_TO_ATOM, {22,85,181,187,177,107,2,64}),
SQRT2_f      = machine_func(FLOAT64_TO_ATOM,
   {205,59,127,102,158,160,246,63}),
HALF_SQRT2_f = machine_func(FLOAT64_TO_ATOM,
   {205,59,127,102,158,160,230,63}),
   HALF_PI_f    = machine_func(FLOAT64_TO_ATOM, {24,45,68,84,251,33,249,63}),
   QUARTER_PI_f = machine_func(FLOAT64_TO_ATOM, {24,45,68,84,251,33,233,63}),
   TWO_PI_f     = machine_func(FLOAT64_TO_ATOM, {24,45,68,84,251,33,25,64})

? compare( E         , E_f )
? compare( PI        , PI_f )
? compare( LN2       , LN2_f )
? compare( LN10      , LN10_f )
? compare( SQRT2     , SQRT2_f )
? compare( HALF_SQRT2, HALF_SQRT2_f )
? compare( HALF_PI   , HALF_PI_f ) 
? compare( QUARTER_PI, QUARTER_PI_f ) 
? compare( TWO_PI    , TWO_PI_f ) 

Regards,
   Juergen