\frac{1}{2} \cdot \log \left(\frac{1 + x}{1 - x}\right)\frac{1}{2} \cdot \left(2 \cdot x + \left(0.66666666666666663 \cdot {x}^{3} + 0.40000000000000002 \cdot {x}^{5}\right)\right)double f(double x) {
double r59173 = 1.0;
double r59174 = 2.0;
double r59175 = r59173 / r59174;
double r59176 = x;
double r59177 = r59173 + r59176;
double r59178 = r59173 - r59176;
double r59179 = r59177 / r59178;
double r59180 = log(r59179);
double r59181 = r59175 * r59180;
return r59181;
}
double f(double x) {
double r59182 = 1.0;
double r59183 = 2.0;
double r59184 = r59182 / r59183;
double r59185 = x;
double r59186 = r59183 * r59185;
double r59187 = 0.6666666666666666;
double r59188 = 3.0;
double r59189 = pow(r59185, r59188);
double r59190 = r59187 * r59189;
double r59191 = 0.4;
double r59192 = 5.0;
double r59193 = pow(r59185, r59192);
double r59194 = r59191 * r59193;
double r59195 = r59190 + r59194;
double r59196 = r59186 + r59195;
double r59197 = r59184 * r59196;
return r59197;
}



Bits error versus x
Results
Initial program 58.5
rmApplied log-div58.5
Taylor expanded around 0 0.2
Simplified0.2
Taylor expanded around 0 0.2
Simplified0.2
Final simplification0.2
herbie shell --seed 2020046
(FPCore (x)
:name "Hyperbolic arc-(co)tangent"
:precision binary64
(* (/ 1 2) (log (/ (+ 1 x) (- 1 x)))))