\frac{2}{e^{x} + e^{-x}}\sqrt{\frac{2}{e^{x} + e^{-x}}} \cdot \sqrt{\frac{2}{e^{x} + e^{-x}}}double f(double x) {
double r1770554 = 2.0;
double r1770555 = x;
double r1770556 = exp(r1770555);
double r1770557 = -r1770555;
double r1770558 = exp(r1770557);
double r1770559 = r1770556 + r1770558;
double r1770560 = r1770554 / r1770559;
return r1770560;
}
double f(double x) {
double r1770561 = 2.0;
double r1770562 = x;
double r1770563 = exp(r1770562);
double r1770564 = -r1770562;
double r1770565 = exp(r1770564);
double r1770566 = r1770563 + r1770565;
double r1770567 = r1770561 / r1770566;
double r1770568 = sqrt(r1770567);
double r1770569 = r1770568 * r1770568;
return r1770569;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-sqr-sqrt0.0
Final simplification0.0
herbie shell --seed 2019153 +o rules:numerics
(FPCore (x)
:name "Hyperbolic secant"
(/ 2 (+ (exp x) (exp (- x)))))