\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)(FPCore (x) :precision binary64 (log (+ (/ 1.0 x) (/ (sqrt (- 1.0 (* x x))) x))))
(FPCore (x) :precision binary64 (+ (log (/ 1.0 (sqrt x))) (log (+ (/ 1.0 (sqrt x)) (/ (sqrt (- 1.0 (* x x))) (sqrt x))))))
double code(double x) {
return log((1.0 / x) + (sqrt(1.0 - (x * x)) / x));
}
double code(double x) {
return log(1.0 / sqrt(x)) + log((1.0 / sqrt(x)) + (sqrt(1.0 - (x * x)) / sqrt(x)));
}



Bits error versus x
Results
Initial program 0.1
rmApplied add-sqr-sqrt_binary640.1
Applied *-un-lft-identity_binary640.1
Applied times-frac_binary640.1
Applied add-sqr-sqrt_binary640.1
Applied *-un-lft-identity_binary640.1
Applied times-frac_binary640.1
Applied distribute-lft-out_binary640.1
Applied log-prod_binary640.2
Final simplification0.2
herbie shell --seed 2021175
(FPCore (x)
:name "Hyperbolic arc-(co)secant"
:precision binary64
(log (+ (/ 1.0 x) (/ (sqrt (- 1.0 (* x x))) x))))