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



Bits error versus lo



Bits error versus hi



Bits error versus x
Initial program 62.0
Taylor expanded in lo around inf 64.0
Simplified51.9
Applied egg-rr51.5
Taylor expanded in hi around inf 51.5
Applied egg-rr51.5
Final simplification51.5
herbie shell --seed 2022131
(FPCore (lo hi x)
:name "(/ (- x lo) (- hi lo))"
:precision binary64
:pre (and (< lo -1e+308) (> hi 1e+308))
(/ (- x lo) (- hi lo)))