mirror of
https://github.com/ziglang/zig.git
synced 2025-12-12 17:23:09 +00:00
35 lines
900 B
C
Vendored
35 lines
900 B
C
Vendored
/**
|
|
* This file has no copyright assigned and is placed in the Public Domain.
|
|
* This file is part of the mingw-w64 runtime package.
|
|
* No warranty is given; refer to the file DISCLAIMER.PD within this package.
|
|
*/
|
|
#include <math.h>
|
|
#include <errno.h>
|
|
#include <float.h>
|
|
#include "fastmath.h"
|
|
|
|
/* asinh(x) = copysign(log(fabs(x) + sqrt(x * x + 1.0)), x) */
|
|
float asinhf(float x)
|
|
{
|
|
float z;
|
|
if (!isfinite (x))
|
|
return x;
|
|
z = fabsf (x);
|
|
|
|
/* Avoid setting FPU underflow exception flag in x * x. */
|
|
#if 0
|
|
if ( z < 0x1p-32)
|
|
return x;
|
|
#endif
|
|
|
|
/* See commentary in asinh */
|
|
const float asinhCutover = pow(2,FLT_MAX_EXP/2);
|
|
|
|
if (z < asinhCutover)
|
|
z = __fast_log1p (z + z * (z / (__fast_sqrt (z * z + 1.0) + 1.0)));
|
|
//z = __fast_log(z + __fast_sqrt(z * z + 1.0));
|
|
else
|
|
z = __fast_log(2) + __fast_log(z);
|
|
return copysignf(z, x); //ensure 0.0 -> 0.0 and -0.0 -> -0.0.
|
|
}
|