\frac{2}{e^{x} + e^{-x}}\left(\sqrt[3]{\sqrt[3]{\frac{2}{e^{x} + e^{-x}} \cdot \left(\frac{2}{e^{x} + e^{-x}} \cdot \frac{2}{e^{x} + e^{-x}}\right)}} \cdot \sqrt[3]{\frac{2}{e^{x} + e^{-x}}}\right) \cdot \sqrt[3]{\frac{2}{e^{x} + e^{-x}}}double f(double x) {
double r2507414 = 2.0;
double r2507415 = x;
double r2507416 = exp(r2507415);
double r2507417 = -r2507415;
double r2507418 = exp(r2507417);
double r2507419 = r2507416 + r2507418;
double r2507420 = r2507414 / r2507419;
return r2507420;
}
double f(double x) {
double r2507421 = 2.0;
double r2507422 = x;
double r2507423 = exp(r2507422);
double r2507424 = -r2507422;
double r2507425 = exp(r2507424);
double r2507426 = r2507423 + r2507425;
double r2507427 = r2507421 / r2507426;
double r2507428 = r2507427 * r2507427;
double r2507429 = r2507427 * r2507428;
double r2507430 = cbrt(r2507429);
double r2507431 = cbrt(r2507430);
double r2507432 = cbrt(r2507427);
double r2507433 = r2507431 * r2507432;
double r2507434 = r2507433 * r2507432;
return r2507434;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-cube-cbrt0.0
rmApplied add-cbrt-cube0.1
Final simplification0.1
herbie shell --seed 2019134
(FPCore (x)
:name "Hyperbolic secant"
(/ 2 (+ (exp x) (exp (- x)))))