\frac{1}{2} \cdot \log \left(\frac{1 + x}{1 - x}\right)\mathsf{fma}\left(\frac{2}{5}, \left({x}^{5}\right), \left(2 \cdot x + \left(\left(x \cdot \frac{2}{3}\right) \cdot x\right) \cdot x\right)\right) \cdot \frac{1}{2}double f(double x) {
double r2942289 = 1.0;
double r2942290 = 2.0;
double r2942291 = r2942289 / r2942290;
double r2942292 = x;
double r2942293 = r2942289 + r2942292;
double r2942294 = r2942289 - r2942292;
double r2942295 = r2942293 / r2942294;
double r2942296 = log(r2942295);
double r2942297 = r2942291 * r2942296;
return r2942297;
}
double f(double x) {
double r2942298 = 0.4;
double r2942299 = x;
double r2942300 = 5.0;
double r2942301 = pow(r2942299, r2942300);
double r2942302 = 2.0;
double r2942303 = r2942302 * r2942299;
double r2942304 = 0.6666666666666666;
double r2942305 = r2942299 * r2942304;
double r2942306 = r2942305 * r2942299;
double r2942307 = r2942306 * r2942299;
double r2942308 = r2942303 + r2942307;
double r2942309 = fma(r2942298, r2942301, r2942308);
double r2942310 = 0.5;
double r2942311 = r2942309 * r2942310;
return r2942311;
}



Bits error versus x
Initial program 58.5
Simplified58.5
Taylor expanded around 0 0.2
Simplified0.2
rmApplied distribute-rgt-in0.2
Final simplification0.2
herbie shell --seed 2019130 +o rules:numerics
(FPCore (x)
:name "Hyperbolic arc-(co)tangent"
(* (/ 1 2) (log (/ (+ 1 x) (- 1 x)))))