\frac{2}{e^{x} + e^{-x}}\sqrt{\frac{\sqrt{2}}{\sqrt{e^{x} + e^{-x}}}} \cdot \left(\sqrt{\frac{\sqrt{2}}{\sqrt{e^{x} + e^{-x}}}} \cdot \frac{\sqrt{2}}{\sqrt{e^{x} + e^{-x}}}\right)double f(double x) {
double r2333790 = 2.0;
double r2333791 = x;
double r2333792 = exp(r2333791);
double r2333793 = -r2333791;
double r2333794 = exp(r2333793);
double r2333795 = r2333792 + r2333794;
double r2333796 = r2333790 / r2333795;
return r2333796;
}
double f(double x) {
double r2333797 = 2.0;
double r2333798 = sqrt(r2333797);
double r2333799 = x;
double r2333800 = exp(r2333799);
double r2333801 = -r2333799;
double r2333802 = exp(r2333801);
double r2333803 = r2333800 + r2333802;
double r2333804 = sqrt(r2333803);
double r2333805 = r2333798 / r2333804;
double r2333806 = sqrt(r2333805);
double r2333807 = r2333806 * r2333805;
double r2333808 = r2333806 * r2333807;
return r2333808;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-sqr-sqrt0.8
Applied add-sqr-sqrt0.0
Applied times-frac0.0
rmApplied add-sqr-sqrt0.0
Applied associate-*l*0.0
Final simplification0.0
herbie shell --seed 2019151 +o rules:numerics
(FPCore (x)
:name "Hyperbolic secant"
(/ 2 (+ (exp x) (exp (- x)))))