\log \left(\frac{1}{x} + \frac{\sqrt{1 - x \cdot x}}{x}\right)\log \left(\frac{1}{\sqrt{x}}\right) + \log \left(\frac{1}{\sqrt{x}} + \frac{\sqrt{1 - x \cdot x}}{\sqrt{x}}\right)double f(double x) {
double r75894 = 1.0;
double r75895 = x;
double r75896 = r75894 / r75895;
double r75897 = r75895 * r75895;
double r75898 = r75894 - r75897;
double r75899 = sqrt(r75898);
double r75900 = r75899 / r75895;
double r75901 = r75896 + r75900;
double r75902 = log(r75901);
return r75902;
}
double f(double x) {
double r75903 = 1.0;
double r75904 = x;
double r75905 = sqrt(r75904);
double r75906 = r75903 / r75905;
double r75907 = log(r75906);
double r75908 = 1.0;
double r75909 = r75908 / r75905;
double r75910 = r75904 * r75904;
double r75911 = r75908 - r75910;
double r75912 = sqrt(r75911);
double r75913 = r75912 / r75905;
double r75914 = r75909 + r75913;
double r75915 = log(r75914);
double r75916 = r75907 + r75915;
return r75916;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-sqr-sqrt0.0
Applied *-un-lft-identity0.0
Applied times-frac0.0
Applied add-sqr-sqrt0.0
Applied *-un-lft-identity0.0
Applied times-frac0.0
Applied distribute-lft-out0.0
Applied log-prod0.2
Final simplification0.2
herbie shell --seed 2020049
(FPCore (x)
:name "Hyperbolic arc-(co)secant"
:precision binary64
(log (+ (/ 1 x) (/ (sqrt (- 1 (* x x))) x))))