\frac{2}{e^{x} + e^{-x}}\sqrt[3]{\frac{1}{\left(e^{-1 \cdot x} + e^{x}\right) \cdot \left(e^{-1 \cdot x} + e^{x}\right)} \cdot \frac{{2}^{3}}{e^{-1 \cdot x} + e^{x}}}double f(double x) {
double r46102 = 2.0;
double r46103 = x;
double r46104 = exp(r46103);
double r46105 = -r46103;
double r46106 = exp(r46105);
double r46107 = r46104 + r46106;
double r46108 = r46102 / r46107;
return r46108;
}
double f(double x) {
double r46109 = 1.0;
double r46110 = -1.0;
double r46111 = x;
double r46112 = r46110 * r46111;
double r46113 = exp(r46112);
double r46114 = exp(r46111);
double r46115 = r46113 + r46114;
double r46116 = r46115 * r46115;
double r46117 = r46109 / r46116;
double r46118 = 2.0;
double r46119 = 3.0;
double r46120 = pow(r46118, r46119);
double r46121 = r46120 / r46115;
double r46122 = r46117 * r46121;
double r46123 = cbrt(r46122);
return r46123;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-cbrt-cube0.1
Applied add-cbrt-cube0.1
Applied cbrt-undiv0.1
Simplified0.1
rmApplied add-cube-cbrt1.3
Applied *-un-lft-identity1.3
Applied times-frac1.3
Applied unpow-prod-down1.3
Simplified0.6
Simplified0.1
Final simplification0.1
herbie shell --seed 2020020
(FPCore (x)
:name "Hyperbolic secant"
:precision binary64
(/ 2 (+ (exp x) (exp (- x)))))