\frac{2}{e^{x} + e^{-x}}\frac{\sqrt{\frac{2}{e^{x} + e^{-x}}} \cdot \sqrt{2}}{\sqrt{e^{x} + e^{-x}}}double f(double x) {
double r55947 = 2.0;
double r55948 = x;
double r55949 = exp(r55948);
double r55950 = -r55948;
double r55951 = exp(r55950);
double r55952 = r55949 + r55951;
double r55953 = r55947 / r55952;
return r55953;
}
double f(double x) {
double r55954 = 2.0;
double r55955 = x;
double r55956 = exp(r55955);
double r55957 = -r55955;
double r55958 = exp(r55957);
double r55959 = r55956 + r55958;
double r55960 = r55954 / r55959;
double r55961 = sqrt(r55960);
double r55962 = sqrt(r55954);
double r55963 = r55961 * r55962;
double r55964 = sqrt(r55959);
double r55965 = r55963 / r55964;
return r55965;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-sqr-sqrt0.0
rmApplied sqrt-div0.0
Applied associate-*r/0.0
Final simplification0.0
herbie shell --seed 2019212 +o rules:numerics
(FPCore (x)
:name "Hyperbolic secant"
:precision binary64
(/ 2 (+ (exp x) (exp (- x)))))