\frac{1}{2} \cdot \log \left(\frac{1 + x}{1 - x}\right)\mathsf{fma}\left({x}^{5}, \frac{2}{5}, x \cdot 2 + x \cdot \left(\left(\frac{2}{3} \cdot x\right) \cdot x\right)\right) \cdot \frac{1}{2}double f(double x) {
double r3013423 = 1.0;
double r3013424 = 2.0;
double r3013425 = r3013423 / r3013424;
double r3013426 = x;
double r3013427 = r3013423 + r3013426;
double r3013428 = r3013423 - r3013426;
double r3013429 = r3013427 / r3013428;
double r3013430 = log(r3013429);
double r3013431 = r3013425 * r3013430;
return r3013431;
}
double f(double x) {
double r3013432 = x;
double r3013433 = 5.0;
double r3013434 = pow(r3013432, r3013433);
double r3013435 = 0.4;
double r3013436 = 2.0;
double r3013437 = r3013432 * r3013436;
double r3013438 = 0.6666666666666666;
double r3013439 = r3013438 * r3013432;
double r3013440 = r3013439 * r3013432;
double r3013441 = r3013432 * r3013440;
double r3013442 = r3013437 + r3013441;
double r3013443 = fma(r3013434, r3013435, r3013442);
double r3013444 = 0.5;
double r3013445 = r3013443 * r3013444;
return r3013445;
}



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