\frac{2}{e^{x} + e^{-x}}\left(\sqrt{\sqrt[3]{\frac{2}{e^{x} + e^{-x}}}} \cdot \left(\sqrt{\sqrt[3]{\frac{2}{e^{x} + e^{-x}}}} \cdot \sqrt[3]{\frac{2}{e^{x} + e^{-x}}}\right)\right) \cdot \sqrt[3]{\sqrt{2} \cdot \frac{\sqrt{2}}{e^{x} + e^{-x}}}double f(double x) {
double r5389972 = 2.0;
double r5389973 = x;
double r5389974 = exp(r5389973);
double r5389975 = -r5389973;
double r5389976 = exp(r5389975);
double r5389977 = r5389974 + r5389976;
double r5389978 = r5389972 / r5389977;
return r5389978;
}
double f(double x) {
double r5389979 = 2.0;
double r5389980 = x;
double r5389981 = exp(r5389980);
double r5389982 = -r5389980;
double r5389983 = exp(r5389982);
double r5389984 = r5389981 + r5389983;
double r5389985 = r5389979 / r5389984;
double r5389986 = cbrt(r5389985);
double r5389987 = sqrt(r5389986);
double r5389988 = r5389987 * r5389986;
double r5389989 = r5389987 * r5389988;
double r5389990 = sqrt(r5389979);
double r5389991 = r5389990 / r5389984;
double r5389992 = r5389990 * r5389991;
double r5389993 = cbrt(r5389992);
double r5389994 = r5389989 * r5389993;
return r5389994;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-cube-cbrt0.0
rmApplied add-sqr-sqrt0.0
Applied associate-*l*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)))))