\frac{1}{2} \cdot \log \left(\frac{1 + x}{1 - x}\right)
\left(x + \left({x}^{3} \cdot 0.3333333333333333 + {x}^{5} \cdot 0.2\right)\right) + {x}^{7} \cdot 0.14285714285714285
(FPCore (x) :precision binary64 (* (/ 1.0 2.0) (log (/ (+ 1.0 x) (- 1.0 x)))))
(FPCore (x) :precision binary64 (+ (+ x (+ (* (pow x 3.0) 0.3333333333333333) (* (pow x 5.0) 0.2))) (* (pow x 7.0) 0.14285714285714285)))
double code(double x) {
return (1.0 / 2.0) * log((1.0 + x) / (1.0 - x));
}
double code(double x) {
return (x + ((pow(x, 3.0) * 0.3333333333333333) + (pow(x, 5.0) * 0.2))) + (pow(x, 7.0) * 0.14285714285714285);
}



Bits error versus x
Results
Initial program 58.6
Simplified58.6
Taylor expanded in x around 0 0.1
Simplified0.1
Final simplification0.1
herbie shell --seed 2021206
(FPCore (x)
:name "Hyperbolic arc-(co)tangent"
:precision binary64
(* (/ 1.0 2.0) (log (/ (+ 1.0 x) (- 1.0 x)))))