\frac{1}{2} \cdot \log \left(\frac{1 + x}{1 - x}\right)\left(2 \cdot x + \left(\frac{2}{5} \cdot {x}^{5} + x \cdot \left(\left(x \cdot x\right) \cdot \frac{2}{3}\right)\right)\right) \cdot \frac{1}{2}double f(double x) {
double r1006562 = 1.0;
double r1006563 = 2.0;
double r1006564 = r1006562 / r1006563;
double r1006565 = x;
double r1006566 = r1006562 + r1006565;
double r1006567 = r1006562 - r1006565;
double r1006568 = r1006566 / r1006567;
double r1006569 = log(r1006568);
double r1006570 = r1006564 * r1006569;
return r1006570;
}
double f(double x) {
double r1006571 = 2.0;
double r1006572 = x;
double r1006573 = r1006571 * r1006572;
double r1006574 = 0.4;
double r1006575 = 5.0;
double r1006576 = pow(r1006572, r1006575);
double r1006577 = r1006574 * r1006576;
double r1006578 = r1006572 * r1006572;
double r1006579 = 0.6666666666666666;
double r1006580 = r1006578 * r1006579;
double r1006581 = r1006572 * r1006580;
double r1006582 = r1006577 + r1006581;
double r1006583 = r1006573 + r1006582;
double r1006584 = 0.5;
double r1006585 = r1006583 * r1006584;
return r1006585;
}



Bits error versus x
Results
Initial program 58.6
Simplified58.6
Taylor expanded around 0 0.2
Simplified0.2
rmApplied distribute-rgt-in0.2
Applied associate-+r+0.2
Final simplification0.2
herbie shell --seed 2019153
(FPCore (x)
:name "Hyperbolic arc-(co)tangent"
(* (/ 1 2) (log (/ (+ 1 x) (- 1 x)))))