-\log \left(\frac{1}{x} - 1\right)
\begin{array}{l}
t_0 := \log \left(\sqrt{\frac{1}{x} - 1}\right)\\
-\left(t_0 + t_0\right)
\end{array}
(FPCore (x) :precision binary64 (- (log (- (/ 1.0 x) 1.0))))
(FPCore (x) :precision binary64 (let* ((t_0 (log (sqrt (- (/ 1.0 x) 1.0))))) (- (+ t_0 t_0))))
double code(double x) {
return -log((1.0 / x) - 1.0);
}
double code(double x) {
double t_0 = log(sqrt((1.0 / x) - 1.0));
return -(t_0 + t_0);
}



Bits error versus x
Results
Initial program 0.0
Applied add-sqr-sqrt_binary640.0
Applied log-prod_binary640.0
Final simplification0.0
herbie shell --seed 2021275
(FPCore (x)
:name "neg log"
:precision binary64
(- (log (- (/ 1.0 x) 1.0))))