\frac{2}{e^{x} + e^{-x}}\frac{\frac{\frac{2}{\sqrt{\sqrt{e^{x} + e^{-x}}}}}{\sqrt{\sqrt{e^{x} + e^{-x}}}}}{\sqrt{e^{x} + e^{-x}}}double f(double x) {
double r2707703 = 2.0;
double r2707704 = x;
double r2707705 = exp(r2707704);
double r2707706 = -r2707704;
double r2707707 = exp(r2707706);
double r2707708 = r2707705 + r2707707;
double r2707709 = r2707703 / r2707708;
return r2707709;
}
double f(double x) {
double r2707710 = 2.0;
double r2707711 = x;
double r2707712 = exp(r2707711);
double r2707713 = -r2707711;
double r2707714 = exp(r2707713);
double r2707715 = r2707712 + r2707714;
double r2707716 = sqrt(r2707715);
double r2707717 = sqrt(r2707716);
double r2707718 = r2707710 / r2707717;
double r2707719 = r2707718 / r2707717;
double r2707720 = r2707719 / r2707716;
return r2707720;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-sqr-sqrt0.8
Applied associate-/r*0.5
rmApplied add-sqr-sqrt0.0
Applied associate-/r*0.0
Final simplification0.0
herbie shell --seed 2019141
(FPCore (x)
:name "Hyperbolic secant"
(/ 2 (+ (exp x) (exp (- x)))))