Something went wrong. Try again.
Cider Isn't Darwin Emulation, Really
Something went wrong. Try again.
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374
//// atanh//// by Ian Ollmann//// based on MathLib v3//// Copyright � 2005, Apple Computer, Inc. All Rights Reserved.//
#include "math.h"
double atanh( double x ){ if( x != x ) return x + x; double fabsx = __builtin_fabs( x );
if( fabsx > 1.0) return sqrt( -fabsx ); if( fabsx >= 0x1.0p-27 ) //sqrt( negative epsilon ) { fabsx = 0.5 * log1p( (fabsx + fabsx) / (1.0 - fabsx) ); } else { if( x == 0.0 ) return x; fabsx *= 0x1.0p55; fabsx += 0x1.0p-1022; fabsx *= 0x1.0p-55; }
if( x < 0 ) fabsx = -fabsx;
return fabsx;}
long double atanhl( long double x ){ if( x != x ) return x + x; long double fabsx = __builtin_fabsl( x );
if( fabsx > 1.0L) return sqrtl( -fabsx ); if( fabsx >= 0x1.0p-32 ) //sqrt( negative epsilon ) { fabsx = 0.5 * log1pl( (fabsx + fabsx) / (1.0L - fabsx) ); } else { if( x == 0.0 ) return x; fabsx *= 0x1.0p65; fabsx += 0x1.0p-16382L; fabsx *= 0x1.0p-65; }
if( x < 0 ) fabsx = -fabsx;
return fabsx;}