\log \left(\frac{1}{x} + \frac{\sqrt{1 - x \cdot x}}{x}\right)\log \left(\frac{1}{x} + \frac{\sqrt{\sqrt{1} + x}}{\sqrt{x}} \cdot \frac{\sqrt{\sqrt{1} - x}}{\sqrt{x}}\right)double f(double x) {
double r92218 = 1.0;
double r92219 = x;
double r92220 = r92218 / r92219;
double r92221 = r92219 * r92219;
double r92222 = r92218 - r92221;
double r92223 = sqrt(r92222);
double r92224 = r92223 / r92219;
double r92225 = r92220 + r92224;
double r92226 = log(r92225);
return r92226;
}
double f(double x) {
double r92227 = 1.0;
double r92228 = x;
double r92229 = r92227 / r92228;
double r92230 = sqrt(r92227);
double r92231 = r92230 + r92228;
double r92232 = sqrt(r92231);
double r92233 = sqrt(r92228);
double r92234 = r92232 / r92233;
double r92235 = r92230 - r92228;
double r92236 = sqrt(r92235);
double r92237 = r92236 / r92233;
double r92238 = r92234 * r92237;
double r92239 = r92229 + r92238;
double r92240 = log(r92239);
return r92240;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-sqr-sqrt0.0
Applied add-sqr-sqrt0.0
Applied difference-of-squares0.0
Applied sqrt-prod0.0
Applied times-frac0.0
Final simplification0.0
herbie shell --seed 2020057 +o rules:numerics
(FPCore (x)
:name "Hyperbolic arc-(co)secant"
:precision binary64
(log (+ (/ 1 x) (/ (sqrt (- 1 (* x x))) x))))