\frac{1}{2} \cdot \log \left(\frac{1 + x}{1 - x}\right)\mathsf{fma}\left(\frac{2}{5}, {x}^{5}, x \cdot 2 + \left(\left(x \cdot \frac{2}{3}\right) \cdot x\right) \cdot x\right) \cdot \frac{1}{2}double f(double x) {
double r2360565 = 1.0;
double r2360566 = 2.0;
double r2360567 = r2360565 / r2360566;
double r2360568 = x;
double r2360569 = r2360565 + r2360568;
double r2360570 = r2360565 - r2360568;
double r2360571 = r2360569 / r2360570;
double r2360572 = log(r2360571);
double r2360573 = r2360567 * r2360572;
return r2360573;
}
double f(double x) {
double r2360574 = 0.4;
double r2360575 = x;
double r2360576 = 5.0;
double r2360577 = pow(r2360575, r2360576);
double r2360578 = 2.0;
double r2360579 = r2360575 * r2360578;
double r2360580 = 0.6666666666666666;
double r2360581 = r2360575 * r2360580;
double r2360582 = r2360581 * r2360575;
double r2360583 = r2360582 * r2360575;
double r2360584 = r2360579 + r2360583;
double r2360585 = fma(r2360574, r2360577, r2360584);
double r2360586 = 0.5;
double r2360587 = r2360585 * r2360586;
return r2360587;
}



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