mirror of
https://github.com/freebsd/freebsd-src
synced 2024-10-16 05:13:40 +00:00
072a4ba82a
Sponsored by: Arm Ltd
72 lines
2.2 KiB
C
72 lines
2.2 KiB
C
/*
|
|
* Single-precision cosh(x) function.
|
|
*
|
|
* Copyright (c) 2022-2023, Arm Limited.
|
|
* SPDX-License-Identifier: MIT OR Apache-2.0 WITH LLVM-exception
|
|
*/
|
|
|
|
#include "math_config.h"
|
|
#include "pl_sig.h"
|
|
#include "pl_test.h"
|
|
|
|
#define AbsMask 0x7fffffff
|
|
#define TinyBound 0x20000000 /* 0x1p-63: Round to 1 below this. */
|
|
#define SpecialBound \
|
|
0x42ad496c /* 0x1.5a92d8p+6: expf overflows above this, so have to use \
|
|
special case. */
|
|
|
|
float
|
|
optr_aor_exp_f32 (float);
|
|
|
|
static NOINLINE float
|
|
specialcase (float x, uint32_t iax)
|
|
{
|
|
if (iax == 0x7f800000)
|
|
return INFINITY;
|
|
if (iax > 0x7f800000)
|
|
return __math_invalidf (x);
|
|
if (iax <= TinyBound)
|
|
/* For tiny x, avoid underflow by just returning 1. */
|
|
return 1;
|
|
/* Otherwise SpecialBound <= |x| < Inf. x is too large to calculate exp(x)
|
|
without overflow, so use exp(|x|/2) instead. For large x cosh(x) is
|
|
dominated by exp(x), so return:
|
|
cosh(x) ~= (exp(|x|/2))^2 / 2. */
|
|
float t = optr_aor_exp_f32 (asfloat (iax) / 2);
|
|
return (0.5 * t) * t;
|
|
}
|
|
|
|
/* Approximation for single-precision cosh(x) using exp.
|
|
cosh(x) = (exp(x) + exp(-x)) / 2.
|
|
The maximum error is 1.89 ULP, observed for |x| > SpecialBound:
|
|
coshf(0x1.65898cp+6) got 0x1.f00aep+127 want 0x1.f00adcp+127.
|
|
The maximum error observed for TinyBound < |x| < SpecialBound is 1.02 ULP:
|
|
coshf(0x1.50a3cp+0) got 0x1.ff21dcp+0 want 0x1.ff21dap+0. */
|
|
float
|
|
coshf (float x)
|
|
{
|
|
uint32_t ix = asuint (x);
|
|
uint32_t iax = ix & AbsMask;
|
|
float ax = asfloat (iax);
|
|
|
|
if (unlikely (iax <= TinyBound || iax >= SpecialBound))
|
|
{
|
|
/* x is tiny, large or special. */
|
|
return specialcase (x, iax);
|
|
}
|
|
|
|
/* Compute cosh using the definition:
|
|
coshf(x) = exp(x) / 2 + exp(-x) / 2. */
|
|
float t = optr_aor_exp_f32 (ax);
|
|
return 0.5f * t + 0.5f / t;
|
|
}
|
|
|
|
PL_SIG (S, F, 1, cosh, -10.0, 10.0)
|
|
PL_TEST_ULP (coshf, 1.89)
|
|
PL_TEST_INTERVAL (coshf, 0, 0x1p-63, 100)
|
|
PL_TEST_INTERVAL (coshf, 0, 0x1.5a92d8p+6, 80000)
|
|
PL_TEST_INTERVAL (coshf, 0x1.5a92d8p+6, inf, 2000)
|
|
PL_TEST_INTERVAL (coshf, -0, -0x1p-63, 100)
|
|
PL_TEST_INTERVAL (coshf, -0, -0x1.5a92d8p+6, 80000)
|
|
PL_TEST_INTERVAL (coshf, -0x1.5a92d8p+6, -inf, 2000)
|