\frac{2}{e^{x} + e^{-x}}\sqrt{\frac{2}{e^{x} + e^{-x}}} \cdot \sqrt{\left(\sqrt[3]{\frac{2}{e^{x} + e^{-x}}} \cdot \sqrt[3]{\frac{2}{e^{x} + e^{-x}}}\right) \cdot \sqrt[3]{\frac{2}{e^{x} + e^{-x}}}}double f(double x) {
double r55534 = 2.0;
double r55535 = x;
double r55536 = exp(r55535);
double r55537 = -r55535;
double r55538 = exp(r55537);
double r55539 = r55536 + r55538;
double r55540 = r55534 / r55539;
return r55540;
}
double f(double x) {
double r55541 = 2.0;
double r55542 = x;
double r55543 = exp(r55542);
double r55544 = -r55542;
double r55545 = exp(r55544);
double r55546 = r55543 + r55545;
double r55547 = r55541 / r55546;
double r55548 = sqrt(r55547);
double r55549 = cbrt(r55547);
double r55550 = r55549 * r55549;
double r55551 = r55550 * r55549;
double r55552 = sqrt(r55551);
double r55553 = r55548 * r55552;
return r55553;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-sqr-sqrt0.0
rmApplied add-cube-cbrt0.0
Final simplification0.0
herbie shell --seed 2019209
(FPCore (x)
:name "Hyperbolic secant"
:precision binary64
(/ 2 (+ (exp x) (exp (- x)))))