\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(\frac{2}{3} \cdot x\right) \cdot x\right)\right)\right) \cdot \frac{1}{2}double f(double x) {
double r3031887 = 1.0;
double r3031888 = 2.0;
double r3031889 = r3031887 / r3031888;
double r3031890 = x;
double r3031891 = r3031887 + r3031890;
double r3031892 = r3031887 - r3031890;
double r3031893 = r3031891 / r3031892;
double r3031894 = log(r3031893);
double r3031895 = r3031889 * r3031894;
return r3031895;
}
double f(double x) {
double r3031896 = 2.0;
double r3031897 = x;
double r3031898 = r3031896 * r3031897;
double r3031899 = 0.4;
double r3031900 = 5.0;
double r3031901 = pow(r3031897, r3031900);
double r3031902 = r3031899 * r3031901;
double r3031903 = 0.6666666666666666;
double r3031904 = r3031903 * r3031897;
double r3031905 = r3031904 * r3031897;
double r3031906 = r3031897 * r3031905;
double r3031907 = r3031902 + r3031906;
double r3031908 = r3031898 + r3031907;
double r3031909 = 0.5;
double r3031910 = r3031908 * r3031909;
return r3031910;
}



Bits error versus x
Results
Initial program 58.4
Simplified58.4
Taylor expanded around 0 0.3
Simplified0.3
rmApplied distribute-lft-in0.3
Applied associate-+r+0.3
Final simplification0.3
herbie shell --seed 2019163
(FPCore (x)
:name "Hyperbolic arc-(co)tangent"
(* (/ 1 2) (log (/ (+ 1 x) (- 1 x)))))