\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 r9212734 = 1.0;
double r9212735 = 2.0;
double r9212736 = r9212734 / r9212735;
double r9212737 = x;
double r9212738 = r9212734 + r9212737;
double r9212739 = r9212734 - r9212737;
double r9212740 = r9212738 / r9212739;
double r9212741 = log(r9212740);
double r9212742 = r9212736 * r9212741;
return r9212742;
}
double f(double x) {
double r9212743 = 0.5;
double r9212744 = x;
double r9212745 = 5.0;
double r9212746 = pow(r9212744, r9212745);
double r9212747 = 0.4;
double r9212748 = r9212746 * r9212747;
double r9212749 = 2.0;
double r9212750 = r9212749 * r9212744;
double r9212751 = 0.6666666666666666;
double r9212752 = r9212744 * r9212751;
double r9212753 = r9212744 * r9212752;
double r9212754 = r9212753 * r9212744;
double r9212755 = r9212750 + r9212754;
double r9212756 = r9212748 + r9212755;
double r9212757 = r9212743 * r9212756;
return r9212757;
}



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