\frac{2}{e^{x} + e^{-x}}\log \left(e^{\frac{2}{e^{x} + e^{-x}}}\right)double f(double x) {
double r2043384 = 2.0;
double r2043385 = x;
double r2043386 = exp(r2043385);
double r2043387 = -r2043385;
double r2043388 = exp(r2043387);
double r2043389 = r2043386 + r2043388;
double r2043390 = r2043384 / r2043389;
return r2043390;
}
double f(double x) {
double r2043391 = 2.0;
double r2043392 = x;
double r2043393 = exp(r2043392);
double r2043394 = -r2043392;
double r2043395 = exp(r2043394);
double r2043396 = r2043393 + r2043395;
double r2043397 = r2043391 / r2043396;
double r2043398 = exp(r2043397);
double r2043399 = log(r2043398);
return r2043399;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-log-exp0.2
Final simplification0.2
herbie shell --seed 2019192 +o rules:numerics
(FPCore (x)
:name "Hyperbolic secant"
(/ 2.0 (+ (exp x) (exp (- x)))))