\frac{1}{2} \cdot \log \left(\frac{1 + x}{1 - x}\right)\frac{1}{2} \cdot \mathsf{fma}\left(\frac{2}{3}, {\left(\frac{x}{1}\right)}^{3}, \mathsf{fma}\left(2, x, \frac{2}{5} \cdot \frac{{x}^{5}}{{1}^{5}}\right)\right)double f(double x) {
double r42336 = 1.0;
double r42337 = 2.0;
double r42338 = r42336 / r42337;
double r42339 = x;
double r42340 = r42336 + r42339;
double r42341 = r42336 - r42339;
double r42342 = r42340 / r42341;
double r42343 = log(r42342);
double r42344 = r42338 * r42343;
return r42344;
}
double f(double x) {
double r42345 = 1.0;
double r42346 = 2.0;
double r42347 = r42345 / r42346;
double r42348 = 0.6666666666666666;
double r42349 = x;
double r42350 = r42349 / r42345;
double r42351 = 3.0;
double r42352 = pow(r42350, r42351);
double r42353 = 0.4;
double r42354 = 5.0;
double r42355 = pow(r42349, r42354);
double r42356 = pow(r42345, r42354);
double r42357 = r42355 / r42356;
double r42358 = r42353 * r42357;
double r42359 = fma(r42346, r42349, r42358);
double r42360 = fma(r42348, r42352, r42359);
double r42361 = r42347 * r42360;
return r42361;
}



Bits error versus x
Initial program 58.5
rmApplied div-inv58.5
Applied log-prod58.5
Simplified58.5
Taylor expanded around 0 0.3
Simplified0.3
Final simplification0.3
herbie shell --seed 2019303 +o rules:numerics
(FPCore (x)
:name "Hyperbolic arc-(co)tangent"
:precision binary64
(* (/ 1 2) (log (/ (+ 1 x) (- 1 x)))))