\frac{2}{e^{x} + e^{-x}}\left(\sqrt{\frac{2}{e^{x} + e^{-x}}} \cdot \sqrt{\sqrt{2}}\right) \cdot \sqrt{\frac{\sqrt{2}}{e^{x} + e^{-x}}}double f(double x) {
double r65132 = 2.0;
double r65133 = x;
double r65134 = exp(r65133);
double r65135 = -r65133;
double r65136 = exp(r65135);
double r65137 = r65134 + r65136;
double r65138 = r65132 / r65137;
return r65138;
}
double f(double x) {
double r65139 = 2.0;
double r65140 = x;
double r65141 = exp(r65140);
double r65142 = -r65140;
double r65143 = exp(r65142);
double r65144 = r65141 + r65143;
double r65145 = r65139 / r65144;
double r65146 = sqrt(r65145);
double r65147 = sqrt(r65139);
double r65148 = sqrt(r65147);
double r65149 = r65146 * r65148;
double r65150 = r65147 / r65144;
double r65151 = sqrt(r65150);
double r65152 = r65149 * r65151;
return r65152;
}



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