(FPCore (lo hi x) :precision binary64 (/ (- x lo) (- hi lo)))
(FPCore (lo hi x) :precision binary64 (+ (* (/ x hi) (/ lo hi)) (- (/ (- x lo) hi) (sqrt (pow (+ (pow (/ lo hi) 3.0) (/ lo (* hi (/ hi lo)))) 2.0)))))
double code(double lo, double hi, double x) {
return (x - lo) / (hi - lo);
}
double code(double lo, double hi, double x) {
return ((x / hi) * (lo / hi)) + (((x - lo) / hi) - sqrt(pow((pow((lo / hi), 3.0) + (lo / (hi * (hi / lo)))), 2.0)));
}
real(8) function code(lo, hi, x)
real(8), intent (in) :: lo
real(8), intent (in) :: hi
real(8), intent (in) :: x
code = (x - lo) / (hi - lo)
end function
real(8) function code(lo, hi, x)
real(8), intent (in) :: lo
real(8), intent (in) :: hi
real(8), intent (in) :: x
code = ((x / hi) * (lo / hi)) + (((x - lo) / hi) - sqrt(((((lo / hi) ** 3.0d0) + (lo / (hi * (hi / lo)))) ** 2.0d0)))
end function
public static double code(double lo, double hi, double x) {
return (x - lo) / (hi - lo);
}
public static double code(double lo, double hi, double x) {
return ((x / hi) * (lo / hi)) + (((x - lo) / hi) - Math.sqrt(Math.pow((Math.pow((lo / hi), 3.0) + (lo / (hi * (hi / lo)))), 2.0)));
}
def code(lo, hi, x): return (x - lo) / (hi - lo)
def code(lo, hi, x): return ((x / hi) * (lo / hi)) + (((x - lo) / hi) - math.sqrt(math.pow((math.pow((lo / hi), 3.0) + (lo / (hi * (hi / lo)))), 2.0)))
function code(lo, hi, x) return Float64(Float64(x - lo) / Float64(hi - lo)) end
function code(lo, hi, x) return Float64(Float64(Float64(x / hi) * Float64(lo / hi)) + Float64(Float64(Float64(x - lo) / hi) - sqrt((Float64((Float64(lo / hi) ^ 3.0) + Float64(lo / Float64(hi * Float64(hi / lo)))) ^ 2.0)))) end
function tmp = code(lo, hi, x) tmp = (x - lo) / (hi - lo); end
function tmp = code(lo, hi, x) tmp = ((x / hi) * (lo / hi)) + (((x - lo) / hi) - sqrt(((((lo / hi) ^ 3.0) + (lo / (hi * (hi / lo)))) ^ 2.0))); end
code[lo_, hi_, x_] := N[(N[(x - lo), $MachinePrecision] / N[(hi - lo), $MachinePrecision]), $MachinePrecision]
code[lo_, hi_, x_] := N[(N[(N[(x / hi), $MachinePrecision] * N[(lo / hi), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(x - lo), $MachinePrecision] / hi), $MachinePrecision] - N[Sqrt[N[Power[N[(N[Power[N[(lo / hi), $MachinePrecision], 3.0], $MachinePrecision] + N[(lo / N[(hi * N[(hi / lo), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\frac{x - lo}{hi - lo}
\frac{x}{hi} \cdot \frac{lo}{hi} + \left(\frac{x - lo}{hi} - \sqrt{{\left({\left(\frac{lo}{hi}\right)}^{3} + \frac{lo}{hi \cdot \frac{hi}{lo}}\right)}^{2}}\right)



Bits error versus lo



Bits error versus hi



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