\frac{1}{2} \cdot \log \left(\frac{1 + x}{1 - x}\right)(\frac{2}{5} \cdot \left({x}^{5}\right) + \left(2 \cdot x + \left(\frac{2}{3} \cdot \left(x \cdot x\right)\right) \cdot x\right))_* \cdot \frac{1}{2}double f(double x) {
double r12085615 = 1.0;
double r12085616 = 2.0;
double r12085617 = r12085615 / r12085616;
double r12085618 = x;
double r12085619 = r12085615 + r12085618;
double r12085620 = r12085615 - r12085618;
double r12085621 = r12085619 / r12085620;
double r12085622 = log(r12085621);
double r12085623 = r12085617 * r12085622;
return r12085623;
}
double f(double x) {
double r12085624 = 0.4;
double r12085625 = x;
double r12085626 = 5.0;
double r12085627 = pow(r12085625, r12085626);
double r12085628 = 2.0;
double r12085629 = r12085628 * r12085625;
double r12085630 = 0.6666666666666666;
double r12085631 = r12085625 * r12085625;
double r12085632 = r12085630 * r12085631;
double r12085633 = r12085632 * r12085625;
double r12085634 = r12085629 + r12085633;
double r12085635 = fma(r12085624, r12085627, r12085634);
double r12085636 = 0.5;
double r12085637 = r12085635 * r12085636;
return r12085637;
}



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