\frac{1}{2} \cdot \log \left(\frac{1 + x}{1 - x}\right)\frac{1}{2} \cdot \left({x}^{5} \cdot \frac{2}{5} + \left(2 \cdot x + \left(x \cdot \left(x \cdot \frac{2}{3}\right)\right) \cdot x\right)\right)double f(double x) {
double r5987986 = 1.0;
double r5987987 = 2.0;
double r5987988 = r5987986 / r5987987;
double r5987989 = x;
double r5987990 = r5987986 + r5987989;
double r5987991 = r5987986 - r5987989;
double r5987992 = r5987990 / r5987991;
double r5987993 = log(r5987992);
double r5987994 = r5987988 * r5987993;
return r5987994;
}
double f(double x) {
double r5987995 = 0.5;
double r5987996 = x;
double r5987997 = 5.0;
double r5987998 = pow(r5987996, r5987997);
double r5987999 = 0.4;
double r5988000 = r5987998 * r5987999;
double r5988001 = 2.0;
double r5988002 = r5988001 * r5987996;
double r5988003 = 0.6666666666666666;
double r5988004 = r5987996 * r5988003;
double r5988005 = r5987996 * r5988004;
double r5988006 = r5988005 * r5987996;
double r5988007 = r5988002 + r5988006;
double r5988008 = r5988000 + r5988007;
double r5988009 = r5987995 * r5988008;
return r5988009;
}



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