\frac{2}{e^{x} + e^{-x}}\left(\left(\sqrt[3]{\frac{2}{e^{x} + e^{-x}}} \cdot \sqrt{\sqrt[3]{\frac{2}{e^{x} + e^{-x}}}}\right) \cdot \sqrt{\sqrt[3]{\frac{2}{e^{x} + e^{-x}}}}\right) \cdot \sqrt[3]{\sqrt{2} \cdot \frac{\sqrt{2}}{e^{x} + e^{-x}}}double f(double x) {
double r4507588 = 2.0;
double r4507589 = x;
double r4507590 = exp(r4507589);
double r4507591 = -r4507589;
double r4507592 = exp(r4507591);
double r4507593 = r4507590 + r4507592;
double r4507594 = r4507588 / r4507593;
return r4507594;
}
double f(double x) {
double r4507595 = 2.0;
double r4507596 = x;
double r4507597 = exp(r4507596);
double r4507598 = -r4507596;
double r4507599 = exp(r4507598);
double r4507600 = r4507597 + r4507599;
double r4507601 = r4507595 / r4507600;
double r4507602 = cbrt(r4507601);
double r4507603 = sqrt(r4507602);
double r4507604 = r4507602 * r4507603;
double r4507605 = r4507604 * r4507603;
double r4507606 = sqrt(r4507595);
double r4507607 = r4507606 / r4507600;
double r4507608 = r4507606 * r4507607;
double r4507609 = cbrt(r4507608);
double r4507610 = r4507605 * r4507609;
return r4507610;
}



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