\frac{2}{e^{x} + e^{-x}}\sqrt[3]{\sqrt{2} \cdot \frac{\sqrt{2}}{e^{x} + e^{-x}}} \cdot \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)double f(double x) {
double r2959695 = 2.0;
double r2959696 = x;
double r2959697 = exp(r2959696);
double r2959698 = -r2959696;
double r2959699 = exp(r2959698);
double r2959700 = r2959697 + r2959699;
double r2959701 = r2959695 / r2959700;
return r2959701;
}
double f(double x) {
double r2959702 = 2.0;
double r2959703 = sqrt(r2959702);
double r2959704 = x;
double r2959705 = exp(r2959704);
double r2959706 = -r2959704;
double r2959707 = exp(r2959706);
double r2959708 = r2959705 + r2959707;
double r2959709 = r2959703 / r2959708;
double r2959710 = r2959703 * r2959709;
double r2959711 = cbrt(r2959710);
double r2959712 = r2959702 / r2959708;
double r2959713 = cbrt(r2959712);
double r2959714 = sqrt(r2959713);
double r2959715 = r2959713 * r2959714;
double r2959716 = r2959715 * r2959714;
double r2959717 = r2959711 * r2959716;
return r2959717;
}



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 +o rules:numerics
(FPCore (x)
:name "Hyperbolic secant"
(/ 2.0 (+ (exp x) (exp (- x)))))