\frac{1}{2} \cdot \log \left(\frac{1 + x}{1 - x}\right)\frac{1}{2} \cdot \left(\left(\frac{2.666666666666666518636930049979127943516 \cdot \left(x \cdot \left(x \cdot x\right)\right)}{1 \cdot \left(1 \cdot 1\right)} + 2 \cdot \left(x + \frac{x \cdot x}{1 \cdot 1}\right)\right) - 2 \cdot \left(\frac{x \cdot \left(x \cdot x\right)}{1 \cdot 1} + x \cdot x\right)\right)double f(double x) {
double r4824088 = 1.0;
double r4824089 = 2.0;
double r4824090 = r4824088 / r4824089;
double r4824091 = x;
double r4824092 = r4824088 + r4824091;
double r4824093 = r4824088 - r4824091;
double r4824094 = r4824092 / r4824093;
double r4824095 = log(r4824094);
double r4824096 = r4824090 * r4824095;
return r4824096;
}
double f(double x) {
double r4824097 = 1.0;
double r4824098 = 2.0;
double r4824099 = r4824097 / r4824098;
double r4824100 = 2.6666666666666665;
double r4824101 = x;
double r4824102 = r4824101 * r4824101;
double r4824103 = r4824101 * r4824102;
double r4824104 = r4824100 * r4824103;
double r4824105 = r4824097 * r4824097;
double r4824106 = r4824097 * r4824105;
double r4824107 = r4824104 / r4824106;
double r4824108 = r4824102 / r4824105;
double r4824109 = r4824101 + r4824108;
double r4824110 = r4824098 * r4824109;
double r4824111 = r4824107 + r4824110;
double r4824112 = r4824103 / r4824105;
double r4824113 = r4824112 + r4824102;
double r4824114 = r4824098 * r4824113;
double r4824115 = r4824111 - r4824114;
double r4824116 = r4824099 * r4824115;
return r4824116;
}



Bits error versus x
Results
Initial program 58.5
rmApplied flip-+58.6
Applied associate-/l/58.5
rmApplied log-div58.5
Taylor expanded around 0 0.3
Simplified0.3
Final simplification0.3
herbie shell --seed 2019173
(FPCore (x)
:name "Hyperbolic arc-(co)tangent"
(* (/ 1.0 2.0) (log (/ (+ 1.0 x) (- 1.0 x)))))