\frac{2}{e^{x} + e^{-x}}\sqrt{\frac{2}{e^{x} + e^{-x}}} \cdot \sqrt{\frac{2}{{x}^{2} + \left(\frac{1}{12} \cdot {x}^{4} + 2\right)}}double f(double x) {
double r69088 = 2.0;
double r69089 = x;
double r69090 = exp(r69089);
double r69091 = -r69089;
double r69092 = exp(r69091);
double r69093 = r69090 + r69092;
double r69094 = r69088 / r69093;
return r69094;
}
double f(double x) {
double r69095 = 2.0;
double r69096 = x;
double r69097 = exp(r69096);
double r69098 = -r69096;
double r69099 = exp(r69098);
double r69100 = r69097 + r69099;
double r69101 = r69095 / r69100;
double r69102 = sqrt(r69101);
double r69103 = 2.0;
double r69104 = pow(r69096, r69103);
double r69105 = 0.08333333333333333;
double r69106 = 4.0;
double r69107 = pow(r69096, r69106);
double r69108 = r69105 * r69107;
double r69109 = r69108 + r69103;
double r69110 = r69104 + r69109;
double r69111 = r69095 / r69110;
double r69112 = sqrt(r69111);
double r69113 = r69102 * r69112;
return r69113;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-sqr-sqrt0.0
Taylor expanded around 0 0.4
Final simplification0.4
herbie shell --seed 2019304
(FPCore (x)
:name "Hyperbolic secant"
:precision binary64
(/ 2 (+ (exp x) (exp (- x)))))