\frac{1}{2} \cdot \log \left(\frac{1 + x}{1 - x}\right)\left(\frac{2}{5} \cdot {x}^{5} + \left(\left(x \cdot x\right) \cdot \left(x \cdot \frac{2}{3}\right) + 2 \cdot x\right)\right) \cdot \frac{1}{2}double f(double x) {
double r2650382 = 1.0;
double r2650383 = 2.0;
double r2650384 = r2650382 / r2650383;
double r2650385 = x;
double r2650386 = r2650382 + r2650385;
double r2650387 = r2650382 - r2650385;
double r2650388 = r2650386 / r2650387;
double r2650389 = log(r2650388);
double r2650390 = r2650384 * r2650389;
return r2650390;
}
double f(double x) {
double r2650391 = 0.4;
double r2650392 = x;
double r2650393 = 5.0;
double r2650394 = pow(r2650392, r2650393);
double r2650395 = r2650391 * r2650394;
double r2650396 = r2650392 * r2650392;
double r2650397 = 0.6666666666666666;
double r2650398 = r2650392 * r2650397;
double r2650399 = r2650396 * r2650398;
double r2650400 = 2.0;
double r2650401 = r2650400 * r2650392;
double r2650402 = r2650399 + r2650401;
double r2650403 = r2650395 + r2650402;
double r2650404 = 0.5;
double r2650405 = r2650403 * r2650404;
return r2650405;
}



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