(FPCore (x) :precision binary64 (- (/ 1.0 (sqrt x)) (/ 1.0 (sqrt (+ x 1.0)))))
(FPCore (x) :precision binary64 (let* ((t_0 (sqrt (+ 1.0 x)))) (/ (/ 1.0 (fma t_0 (sqrt x) x)) t_0)))
double code(double x) {
return (1.0 / sqrt(x)) - (1.0 / sqrt((x + 1.0)));
}
double code(double x) {
double t_0 = sqrt((1.0 + x));
return (1.0 / fma(t_0, sqrt(x), x)) / t_0;
}
function code(x) return Float64(Float64(1.0 / sqrt(x)) - Float64(1.0 / sqrt(Float64(x + 1.0)))) end
function code(x) t_0 = sqrt(Float64(1.0 + x)) return Float64(Float64(1.0 / fma(t_0, sqrt(x), x)) / t_0) end
code[x_] := N[(N[(1.0 / N[Sqrt[x], $MachinePrecision]), $MachinePrecision] - N[(1.0 / N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[x_] := Block[{t$95$0 = N[Sqrt[N[(1.0 + x), $MachinePrecision]], $MachinePrecision]}, N[(N[(1.0 / N[(t$95$0 * N[Sqrt[x], $MachinePrecision] + x), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision]]
\frac{1}{\sqrt{x}} - \frac{1}{\sqrt{x + 1}}
\begin{array}{l}
t_0 := \sqrt{1 + x}\\
\frac{\frac{1}{\mathsf{fma}\left(t_0, \sqrt{x}, x\right)}}{t_0}
\end{array}




Bits error versus x
| Original | 20.1 |
|---|---|
| Target | 0.6 |
| Herbie | 0.3 |
Initial program 20.1
Applied frac-sub_binary6420.1
Simplified20.1
Simplified20.1
Applied flip--_binary6419.9
Simplified0.4
Applied associate-/r*_binary640.4
Simplified0.3
Final simplification0.3
herbie shell --seed 2022131
(FPCore (x)
:name "2isqrt (example 3.6)"
:precision binary64
:herbie-target
(/ 1.0 (+ (* (+ x 1.0) (sqrt x)) (* x (sqrt (+ x 1.0)))))
(- (/ 1.0 (sqrt x)) (/ 1.0 (sqrt (+ x 1.0)))))