\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 r62182 = 2.0;
double r62183 = x;
double r62184 = exp(r62183);
double r62185 = -r62183;
double r62186 = exp(r62185);
double r62187 = r62184 + r62186;
double r62188 = r62182 / r62187;
return r62188;
}
double f(double x) {
double r62189 = 2.0;
double r62190 = x;
double r62191 = -r62190;
double r62192 = exp(r62191);
double r62193 = exp(r62190);
double r62194 = r62192 + r62193;
double r62195 = r62189 / r62194;
double r62196 = sqrt(r62195);
double r62197 = sqrt(r62189);
double r62198 = sqrt(r62197);
double r62199 = r62196 * r62198;
double r62200 = r62193 + r62192;
double r62201 = r62197 / r62200;
double r62202 = sqrt(r62201);
double r62203 = r62199 * r62202;
return r62203;
}



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)))))