\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 r60382 = 2.0;
double r60383 = x;
double r60384 = exp(r60383);
double r60385 = -r60383;
double r60386 = exp(r60385);
double r60387 = r60384 + r60386;
double r60388 = r60382 / r60387;
return r60388;
}
double f(double x) {
double r60389 = 2.0;
double r60390 = x;
double r60391 = exp(r60390);
double r60392 = -r60390;
double r60393 = exp(r60392);
double r60394 = r60391 + r60393;
double r60395 = r60389 / r60394;
double r60396 = sqrt(r60395);
double r60397 = sqrt(r60389);
double r60398 = sqrt(r60397);
double r60399 = r60396 * r60398;
double r60400 = r60397 / r60394;
double r60401 = sqrt(r60400);
double r60402 = r60399 * r60401;
return r60402;
}



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