\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 r56847 = 1.0;
double r56848 = x;
double r56849 = r56847 / r56848;
double r56850 = r56848 * r56848;
double r56851 = r56847 - r56850;
double r56852 = sqrt(r56851);
double r56853 = r56852 / r56848;
double r56854 = r56849 + r56853;
double r56855 = log(r56854);
return r56855;
}
double f(double x) {
double r56856 = 1.0;
double r56857 = x;
double r56858 = r56856 / r56857;
double r56859 = sqrt(r56856);
double r56860 = r56859 + r56857;
double r56861 = sqrt(r56860);
double r56862 = sqrt(r56857);
double r56863 = r56861 / r56862;
double r56864 = r56859 - r56857;
double r56865 = sqrt(r56864);
double r56866 = r56865 / r56862;
double r56867 = r56863 * r56866;
double r56868 = r56858 + r56867;
double r56869 = log(r56868);
return r56869;
}



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