\log \left(\frac{1}{x} + \frac{\sqrt{1 - x \cdot x}}{x}\right)\log \left(\frac{1}{\sqrt{x}} + \frac{\sqrt{1 - x \cdot x}}{\sqrt{x}}\right) - \log \left(\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)) (/ (sqrt (- 1.0 (* x x))) (sqrt x)))) (log (sqrt x))))
double code(double x) {
return ((double) log(((double) ((1.0 / x) + (((double) sqrt(((double) (1.0 - ((double) (x * x)))))) / x)))));
}
double code(double x) {
return ((double) (((double) log(((double) ((1.0 / ((double) sqrt(x))) + (((double) sqrt(((double) (1.0 - ((double) (x * x)))))) / ((double) sqrt(x))))))) - ((double) log(((double) sqrt(x))))));
}



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
Simplified0.2
Final simplification0.2
herbie shell --seed 2020198
(FPCore (x)
:name "Hyperbolic arc-(co)secant"
:precision binary64
(log (+ (/ 1.0 x) (/ (sqrt (- 1.0 (* x x))) x))))