\frac{2}{e^{x} + e^{-x}}\left(\sqrt{\frac{2}{e^{-x} + e^{x}}} \cdot \sqrt{\sqrt{2}}\right) \cdot \sqrt{\frac{\sqrt{2}}{e^{x} + e^{-x}}}double f(double x) {
double r49781 = 2.0;
double r49782 = x;
double r49783 = exp(r49782);
double r49784 = -r49782;
double r49785 = exp(r49784);
double r49786 = r49783 + r49785;
double r49787 = r49781 / r49786;
return r49787;
}
double f(double x) {
double r49788 = 2.0;
double r49789 = x;
double r49790 = -r49789;
double r49791 = exp(r49790);
double r49792 = exp(r49789);
double r49793 = r49791 + r49792;
double r49794 = r49788 / r49793;
double r49795 = sqrt(r49794);
double r49796 = sqrt(r49788);
double r49797 = sqrt(r49796);
double r49798 = r49795 * r49797;
double r49799 = r49792 + r49791;
double r49800 = r49796 / r49799;
double r49801 = sqrt(r49800);
double r49802 = r49798 * r49801;
return r49802;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-sqr-sqrt0.0
rmApplied *-un-lft-identity0.0
Applied add-sqr-sqrt0.0
Applied times-frac0.0
Applied sqrt-prod0.0
Applied associate-*r*0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2019323
(FPCore (x)
:name "Hyperbolic secant"
:precision binary64
(/ 2 (+ (exp x) (exp (- x)))))