\frac{2}{e^{x} + e^{-x}}\mathsf{expm1}\left(\mathsf{log1p}\left(\frac{2}{e^{x} + e^{-x}}\right)\right)double code(double x) {
return (2.0 / (exp(x) + exp(-x)));
}
double code(double x) {
return expm1(log1p((2.0 / (exp(x) + exp(-x)))));
}



Bits error versus x
Results
Initial program 0.0
rmApplied expm1-log1p-u0.0
Final simplification0.0
herbie shell --seed 2020106 +o rules:numerics
(FPCore (x)
:name "Hyperbolic secant"
:precision binary64
(/ 2 (+ (exp x) (exp (- x)))))