\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 r2662256 = 2.0;
double r2662257 = x;
double r2662258 = exp(r2662257);
double r2662259 = -r2662257;
double r2662260 = exp(r2662259);
double r2662261 = r2662258 + r2662260;
double r2662262 = r2662256 / r2662261;
return r2662262;
}
double f(double x) {
double r2662263 = 2.0;
double r2662264 = sqrt(r2662263);
double r2662265 = x;
double r2662266 = exp(r2662265);
double r2662267 = -r2662265;
double r2662268 = exp(r2662267);
double r2662269 = r2662266 + r2662268;
double r2662270 = r2662264 / r2662269;
double r2662271 = r2662264 * r2662270;
double r2662272 = cbrt(r2662271);
double r2662273 = r2662263 / r2662269;
double r2662274 = cbrt(r2662273);
double r2662275 = sqrt(r2662274);
double r2662276 = r2662274 * r2662275;
double r2662277 = r2662276 * r2662275;
double r2662278 = r2662272 * r2662277;
return r2662278;
}



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