
(FPCore (lo hi x) :precision binary64 (/ (- x lo) (- hi lo)))
double code(double lo, double hi, double x) {
return (x - lo) / (hi - lo);
}
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
public static double code(double lo, double hi, double x) {
return (x - lo) / (hi - lo);
}
def code(lo, hi, x): return (x - lo) / (hi - lo)
function code(lo, hi, x) return Float64(Float64(x - lo) / Float64(hi - lo)) end
function tmp = code(lo, hi, x) tmp = (x - lo) / (hi - lo); end
code[lo_, hi_, x_] := N[(N[(x - lo), $MachinePrecision] / N[(hi - lo), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x - lo}{hi - lo}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 7 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (lo hi x) :precision binary64 (/ (- x lo) (- hi lo)))
double code(double lo, double hi, double x) {
return (x - lo) / (hi - lo);
}
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
public static double code(double lo, double hi, double x) {
return (x - lo) / (hi - lo);
}
def code(lo, hi, x): return (x - lo) / (hi - lo)
function code(lo, hi, x) return Float64(Float64(x - lo) / Float64(hi - lo)) end
function tmp = code(lo, hi, x) tmp = (x - lo) / (hi - lo); end
code[lo_, hi_, x_] := N[(N[(x - lo), $MachinePrecision] / N[(hi - lo), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x - lo}{hi - lo}
\end{array}
(FPCore (lo hi x)
:precision binary64
(let* ((t_0 (/ (- x hi) lo)) (t_1 (/ (- x lo) hi)))
(if (<= lo -1.08e+308)
(* (/ 1.0 (+ 1.0 (+ t_0 (pow t_0 2.0)))) (- 1.0 (pow (/ hi lo) 3.0)))
(/
(- (pow (* (- x lo) (* lo (pow hi -2.0))) 2.0) (pow t_1 2.0))
(/ (+ (* lo t_1) (- lo x)) hi)))))
double code(double lo, double hi, double x) {
double t_0 = (x - hi) / lo;
double t_1 = (x - lo) / hi;
double tmp;
if (lo <= -1.08e+308) {
tmp = (1.0 / (1.0 + (t_0 + pow(t_0, 2.0)))) * (1.0 - pow((hi / lo), 3.0));
} else {
tmp = (pow(((x - lo) * (lo * pow(hi, -2.0))), 2.0) - pow(t_1, 2.0)) / (((lo * t_1) + (lo - x)) / hi);
}
return tmp;
}
real(8) function code(lo, hi, x)
real(8), intent (in) :: lo
real(8), intent (in) :: hi
real(8), intent (in) :: x
real(8) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = (x - hi) / lo
t_1 = (x - lo) / hi
if (lo <= (-1.08d+308)) then
tmp = (1.0d0 / (1.0d0 + (t_0 + (t_0 ** 2.0d0)))) * (1.0d0 - ((hi / lo) ** 3.0d0))
else
tmp = ((((x - lo) * (lo * (hi ** (-2.0d0)))) ** 2.0d0) - (t_1 ** 2.0d0)) / (((lo * t_1) + (lo - x)) / hi)
end if
code = tmp
end function
public static double code(double lo, double hi, double x) {
double t_0 = (x - hi) / lo;
double t_1 = (x - lo) / hi;
double tmp;
if (lo <= -1.08e+308) {
tmp = (1.0 / (1.0 + (t_0 + Math.pow(t_0, 2.0)))) * (1.0 - Math.pow((hi / lo), 3.0));
} else {
tmp = (Math.pow(((x - lo) * (lo * Math.pow(hi, -2.0))), 2.0) - Math.pow(t_1, 2.0)) / (((lo * t_1) + (lo - x)) / hi);
}
return tmp;
}
def code(lo, hi, x): t_0 = (x - hi) / lo t_1 = (x - lo) / hi tmp = 0 if lo <= -1.08e+308: tmp = (1.0 / (1.0 + (t_0 + math.pow(t_0, 2.0)))) * (1.0 - math.pow((hi / lo), 3.0)) else: tmp = (math.pow(((x - lo) * (lo * math.pow(hi, -2.0))), 2.0) - math.pow(t_1, 2.0)) / (((lo * t_1) + (lo - x)) / hi) return tmp
function code(lo, hi, x) t_0 = Float64(Float64(x - hi) / lo) t_1 = Float64(Float64(x - lo) / hi) tmp = 0.0 if (lo <= -1.08e+308) tmp = Float64(Float64(1.0 / Float64(1.0 + Float64(t_0 + (t_0 ^ 2.0)))) * Float64(1.0 - (Float64(hi / lo) ^ 3.0))); else tmp = Float64(Float64((Float64(Float64(x - lo) * Float64(lo * (hi ^ -2.0))) ^ 2.0) - (t_1 ^ 2.0)) / Float64(Float64(Float64(lo * t_1) + Float64(lo - x)) / hi)); end return tmp end
function tmp_2 = code(lo, hi, x) t_0 = (x - hi) / lo; t_1 = (x - lo) / hi; tmp = 0.0; if (lo <= -1.08e+308) tmp = (1.0 / (1.0 + (t_0 + (t_0 ^ 2.0)))) * (1.0 - ((hi / lo) ^ 3.0)); else tmp = ((((x - lo) * (lo * (hi ^ -2.0))) ^ 2.0) - (t_1 ^ 2.0)) / (((lo * t_1) + (lo - x)) / hi); end tmp_2 = tmp; end
code[lo_, hi_, x_] := Block[{t$95$0 = N[(N[(x - hi), $MachinePrecision] / lo), $MachinePrecision]}, Block[{t$95$1 = N[(N[(x - lo), $MachinePrecision] / hi), $MachinePrecision]}, If[LessEqual[lo, -1.08e+308], N[(N[(1.0 / N[(1.0 + N[(t$95$0 + N[Power[t$95$0, 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 - N[Power[N[(hi / lo), $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[Power[N[(N[(x - lo), $MachinePrecision] * N[(lo * N[Power[hi, -2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision] - N[Power[t$95$1, 2.0], $MachinePrecision]), $MachinePrecision] / N[(N[(N[(lo * t$95$1), $MachinePrecision] + N[(lo - x), $MachinePrecision]), $MachinePrecision] / hi), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{x - hi}{lo}\\
t_1 := \frac{x - lo}{hi}\\
\mathbf{if}\;lo \leq -1.08 \cdot 10^{+308}:\\
\;\;\;\;\frac{1}{1 + \left(t_0 + {t_0}^{2}\right)} \cdot \left(1 - {\left(\frac{hi}{lo}\right)}^{3}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{{\left(\left(x - lo\right) \cdot \left(lo \cdot {hi}^{-2}\right)\right)}^{2} - {t_1}^{2}}{\frac{lo \cdot t_1 + \left(lo - x\right)}{hi}}\\
\end{array}
\end{array}
if lo < -1.0800000000000001e308Initial program 3.1%
Taylor expanded in lo around inf 11.3%
+-commutative11.3%
associate--l+11.3%
associate-*r/11.3%
associate-*r/11.3%
div-sub11.3%
distribute-lft-out--11.3%
associate-*r/11.3%
mul-1-neg11.3%
unsub-neg11.3%
Simplified11.3%
add-cbrt-cube11.3%
pow311.3%
Applied egg-rr11.3%
Applied egg-rr22.1%
Taylor expanded in x around 0 0.0%
mul-1-neg0.0%
cube-div22.1%
Simplified22.1%
if -1.0800000000000001e308 < lo Initial program 3.1%
Taylor expanded in hi around inf 0.0%
+-commutative0.0%
associate--l+0.0%
*-commutative0.0%
unpow20.0%
times-frac17.8%
div-sub17.8%
Simplified17.8%
flip-+17.8%
div-sub17.8%
Applied egg-rr0.0%
div-sub0.0%
associate-*l*42.1%
associate-*r/3.1%
associate-*l/42.1%
*-commutative42.1%
Simplified42.1%
Final simplification24.2%
(FPCore (lo hi x) :precision binary64 (let* ((t_0 (/ (- x hi) lo))) (* (/ 1.0 (+ 1.0 (+ t_0 (pow t_0 2.0)))) (- 1.0 (pow (/ hi lo) 3.0)))))
double code(double lo, double hi, double x) {
double t_0 = (x - hi) / lo;
return (1.0 / (1.0 + (t_0 + pow(t_0, 2.0)))) * (1.0 - pow((hi / lo), 3.0));
}
real(8) function code(lo, hi, x)
real(8), intent (in) :: lo
real(8), intent (in) :: hi
real(8), intent (in) :: x
real(8) :: t_0
t_0 = (x - hi) / lo
code = (1.0d0 / (1.0d0 + (t_0 + (t_0 ** 2.0d0)))) * (1.0d0 - ((hi / lo) ** 3.0d0))
end function
public static double code(double lo, double hi, double x) {
double t_0 = (x - hi) / lo;
return (1.0 / (1.0 + (t_0 + Math.pow(t_0, 2.0)))) * (1.0 - Math.pow((hi / lo), 3.0));
}
def code(lo, hi, x): t_0 = (x - hi) / lo return (1.0 / (1.0 + (t_0 + math.pow(t_0, 2.0)))) * (1.0 - math.pow((hi / lo), 3.0))
function code(lo, hi, x) t_0 = Float64(Float64(x - hi) / lo) return Float64(Float64(1.0 / Float64(1.0 + Float64(t_0 + (t_0 ^ 2.0)))) * Float64(1.0 - (Float64(hi / lo) ^ 3.0))) end
function tmp = code(lo, hi, x) t_0 = (x - hi) / lo; tmp = (1.0 / (1.0 + (t_0 + (t_0 ^ 2.0)))) * (1.0 - ((hi / lo) ^ 3.0)); end
code[lo_, hi_, x_] := Block[{t$95$0 = N[(N[(x - hi), $MachinePrecision] / lo), $MachinePrecision]}, N[(N[(1.0 / N[(1.0 + N[(t$95$0 + N[Power[t$95$0, 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 - N[Power[N[(hi / lo), $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{x - hi}{lo}\\
\frac{1}{1 + \left(t_0 + {t_0}^{2}\right)} \cdot \left(1 - {\left(\frac{hi}{lo}\right)}^{3}\right)
\end{array}
\end{array}
Initial program 3.1%
Taylor expanded in lo around inf 10.3%
+-commutative10.3%
associate--l+10.3%
associate-*r/10.3%
associate-*r/10.3%
div-sub10.3%
distribute-lft-out--10.3%
associate-*r/10.3%
mul-1-neg10.3%
unsub-neg10.3%
Simplified10.3%
add-cbrt-cube10.3%
pow310.3%
Applied egg-rr10.3%
Applied egg-rr21.8%
Taylor expanded in x around 0 0.0%
mul-1-neg0.0%
cube-div21.8%
Simplified21.8%
Final simplification21.8%
(FPCore (lo hi x) :precision binary64 (/ (- 1.0 (pow (/ hi lo) 3.0)) (- (fma (/ hi lo) (/ hi lo) 1.0) (/ hi lo))))
double code(double lo, double hi, double x) {
return (1.0 - pow((hi / lo), 3.0)) / (fma((hi / lo), (hi / lo), 1.0) - (hi / lo));
}
function code(lo, hi, x) return Float64(Float64(1.0 - (Float64(hi / lo) ^ 3.0)) / Float64(fma(Float64(hi / lo), Float64(hi / lo), 1.0) - Float64(hi / lo))) end
code[lo_, hi_, x_] := N[(N[(1.0 - N[Power[N[(hi / lo), $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision] / N[(N[(N[(hi / lo), $MachinePrecision] * N[(hi / lo), $MachinePrecision] + 1.0), $MachinePrecision] - N[(hi / lo), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1 - {\left(\frac{hi}{lo}\right)}^{3}}{\mathsf{fma}\left(\frac{hi}{lo}, \frac{hi}{lo}, 1\right) - \frac{hi}{lo}}
\end{array}
Initial program 3.1%
Taylor expanded in lo around inf 10.3%
+-commutative10.3%
associate--l+10.3%
associate-*r/10.3%
associate-*r/10.3%
div-sub10.3%
distribute-lft-out--10.3%
associate-*r/10.3%
mul-1-neg10.3%
unsub-neg10.3%
Simplified10.3%
add-cbrt-cube10.3%
pow310.3%
Applied egg-rr10.3%
Applied egg-rr21.8%
Taylor expanded in x around 0 0.0%
cube-div0.0%
mul-1-neg0.0%
unsub-neg0.0%
+-commutative0.0%
unpow20.0%
unpow20.0%
times-frac21.8%
fma-def21.8%
Simplified21.8%
Final simplification21.8%
(FPCore (lo hi x) :precision binary64 (let* ((t_0 (/ (- hi x) lo))) (* (+ 1.0 (pow (/ (- x hi) lo) 3.0)) (/ 1.0 (+ 1.0 (- (* t_0 t_0) t_0))))))
double code(double lo, double hi, double x) {
double t_0 = (hi - x) / lo;
return (1.0 + pow(((x - hi) / lo), 3.0)) * (1.0 / (1.0 + ((t_0 * t_0) - t_0)));
}
real(8) function code(lo, hi, x)
real(8), intent (in) :: lo
real(8), intent (in) :: hi
real(8), intent (in) :: x
real(8) :: t_0
t_0 = (hi - x) / lo
code = (1.0d0 + (((x - hi) / lo) ** 3.0d0)) * (1.0d0 / (1.0d0 + ((t_0 * t_0) - t_0)))
end function
public static double code(double lo, double hi, double x) {
double t_0 = (hi - x) / lo;
return (1.0 + Math.pow(((x - hi) / lo), 3.0)) * (1.0 / (1.0 + ((t_0 * t_0) - t_0)));
}
def code(lo, hi, x): t_0 = (hi - x) / lo return (1.0 + math.pow(((x - hi) / lo), 3.0)) * (1.0 / (1.0 + ((t_0 * t_0) - t_0)))
function code(lo, hi, x) t_0 = Float64(Float64(hi - x) / lo) return Float64(Float64(1.0 + (Float64(Float64(x - hi) / lo) ^ 3.0)) * Float64(1.0 / Float64(1.0 + Float64(Float64(t_0 * t_0) - t_0)))) end
function tmp = code(lo, hi, x) t_0 = (hi - x) / lo; tmp = (1.0 + (((x - hi) / lo) ^ 3.0)) * (1.0 / (1.0 + ((t_0 * t_0) - t_0))); end
code[lo_, hi_, x_] := Block[{t$95$0 = N[(N[(hi - x), $MachinePrecision] / lo), $MachinePrecision]}, N[(N[(1.0 + N[Power[N[(N[(x - hi), $MachinePrecision] / lo), $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[(1.0 + N[(N[(t$95$0 * t$95$0), $MachinePrecision] - t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{hi - x}{lo}\\
\left(1 + {\left(\frac{x - hi}{lo}\right)}^{3}\right) \cdot \frac{1}{1 + \left(t_0 \cdot t_0 - t_0\right)}
\end{array}
\end{array}
Initial program 3.1%
Taylor expanded in lo around inf 10.3%
+-commutative10.3%
associate--l+10.3%
associate-*r/10.3%
associate-*r/10.3%
div-sub10.3%
distribute-lft-out--10.3%
associate-*r/10.3%
mul-1-neg10.3%
unsub-neg10.3%
Simplified10.3%
add-cbrt-cube10.3%
pow310.3%
Applied egg-rr10.3%
Applied egg-rr21.8%
unpow221.8%
Applied egg-rr21.8%
Final simplification21.8%
(FPCore (lo hi x) :precision binary64 (* (+ 1.0 (pow (/ (- x hi) lo) 3.0)) (/ 1.0 (+ 1.0 (- (* (/ hi lo) (/ hi lo)) (/ (- hi x) lo))))))
double code(double lo, double hi, double x) {
return (1.0 + pow(((x - hi) / lo), 3.0)) * (1.0 / (1.0 + (((hi / lo) * (hi / lo)) - ((hi - x) / lo))));
}
real(8) function code(lo, hi, x)
real(8), intent (in) :: lo
real(8), intent (in) :: hi
real(8), intent (in) :: x
code = (1.0d0 + (((x - hi) / lo) ** 3.0d0)) * (1.0d0 / (1.0d0 + (((hi / lo) * (hi / lo)) - ((hi - x) / lo))))
end function
public static double code(double lo, double hi, double x) {
return (1.0 + Math.pow(((x - hi) / lo), 3.0)) * (1.0 / (1.0 + (((hi / lo) * (hi / lo)) - ((hi - x) / lo))));
}
def code(lo, hi, x): return (1.0 + math.pow(((x - hi) / lo), 3.0)) * (1.0 / (1.0 + (((hi / lo) * (hi / lo)) - ((hi - x) / lo))))
function code(lo, hi, x) return Float64(Float64(1.0 + (Float64(Float64(x - hi) / lo) ^ 3.0)) * Float64(1.0 / Float64(1.0 + Float64(Float64(Float64(hi / lo) * Float64(hi / lo)) - Float64(Float64(hi - x) / lo))))) end
function tmp = code(lo, hi, x) tmp = (1.0 + (((x - hi) / lo) ^ 3.0)) * (1.0 / (1.0 + (((hi / lo) * (hi / lo)) - ((hi - x) / lo)))); end
code[lo_, hi_, x_] := N[(N[(1.0 + N[Power[N[(N[(x - hi), $MachinePrecision] / lo), $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[(1.0 + N[(N[(N[(hi / lo), $MachinePrecision] * N[(hi / lo), $MachinePrecision]), $MachinePrecision] - N[(N[(hi - x), $MachinePrecision] / lo), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(1 + {\left(\frac{x - hi}{lo}\right)}^{3}\right) \cdot \frac{1}{1 + \left(\frac{hi}{lo} \cdot \frac{hi}{lo} - \frac{hi - x}{lo}\right)}
\end{array}
Initial program 3.1%
Taylor expanded in lo around inf 10.3%
+-commutative10.3%
associate--l+10.3%
associate-*r/10.3%
associate-*r/10.3%
div-sub10.3%
distribute-lft-out--10.3%
associate-*r/10.3%
mul-1-neg10.3%
unsub-neg10.3%
Simplified10.3%
add-cbrt-cube10.3%
pow310.3%
Applied egg-rr10.3%
Applied egg-rr21.8%
Taylor expanded in x around 0 0.0%
unpow20.0%
unpow20.0%
times-frac21.8%
Simplified21.8%
Final simplification21.8%
(FPCore (lo hi x) :precision binary64 (- (/ hi lo)))
double code(double lo, double hi, double x) {
return -(hi / lo);
}
real(8) function code(lo, hi, x)
real(8), intent (in) :: lo
real(8), intent (in) :: hi
real(8), intent (in) :: x
code = -(hi / lo)
end function
public static double code(double lo, double hi, double x) {
return -(hi / lo);
}
def code(lo, hi, x): return -(hi / lo)
function code(lo, hi, x) return Float64(-Float64(hi / lo)) end
function tmp = code(lo, hi, x) tmp = -(hi / lo); end
code[lo_, hi_, x_] := (-N[(hi / lo), $MachinePrecision])
\begin{array}{l}
\\
-\frac{hi}{lo}
\end{array}
Initial program 3.1%
Taylor expanded in lo around inf 10.3%
+-commutative10.3%
associate--l+10.3%
associate-*r/10.3%
associate-*r/10.3%
div-sub10.3%
distribute-lft-out--10.3%
associate-*r/10.3%
mul-1-neg10.3%
unsub-neg10.3%
Simplified10.3%
add-cbrt-cube10.3%
pow310.3%
Applied egg-rr10.3%
Applied egg-rr21.8%
Taylor expanded in hi around inf 19.4%
associate-*r/19.4%
neg-mul-119.4%
Simplified19.4%
Final simplification19.4%
(FPCore (lo hi x) :precision binary64 1.0)
double code(double lo, double hi, double x) {
return 1.0;
}
real(8) function code(lo, hi, x)
real(8), intent (in) :: lo
real(8), intent (in) :: hi
real(8), intent (in) :: x
code = 1.0d0
end function
public static double code(double lo, double hi, double x) {
return 1.0;
}
def code(lo, hi, x): return 1.0
function code(lo, hi, x) return 1.0 end
function tmp = code(lo, hi, x) tmp = 1.0; end
code[lo_, hi_, x_] := 1.0
\begin{array}{l}
\\
1
\end{array}
Initial program 3.1%
Taylor expanded in lo around inf 18.7%
Final simplification18.7%
herbie shell --seed 2023263
(FPCore (lo hi x)
:name "xlohi (overflows)"
:precision binary64
:pre (and (< lo -1e+308) (> hi 1e+308))
(/ (- x lo) (- hi lo)))