
(FPCore (x) :precision binary64 (/ x (+ (* x x) 1.0)))
double code(double x) {
return x / ((x * x) + 1.0);
}
real(8) function code(x)
real(8), intent (in) :: x
code = x / ((x * x) + 1.0d0)
end function
public static double code(double x) {
return x / ((x * x) + 1.0);
}
def code(x): return x / ((x * x) + 1.0)
function code(x) return Float64(x / Float64(Float64(x * x) + 1.0)) end
function tmp = code(x) tmp = x / ((x * x) + 1.0); end
code[x_] := N[(x / N[(N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x}{x \cdot x + 1}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 5 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x) :precision binary64 (/ x (+ (* x x) 1.0)))
double code(double x) {
return x / ((x * x) + 1.0);
}
real(8) function code(x)
real(8), intent (in) :: x
code = x / ((x * x) + 1.0d0)
end function
public static double code(double x) {
return x / ((x * x) + 1.0);
}
def code(x): return x / ((x * x) + 1.0)
function code(x) return Float64(x / Float64(Float64(x * x) + 1.0)) end
function tmp = code(x) tmp = x / ((x * x) + 1.0); end
code[x_] := N[(x / N[(N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x}{x \cdot x + 1}
\end{array}
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
(FPCore (x_s x_m)
:precision binary64
(*
x_s
(if (<= x_m 5000.0)
(/ x_m (+ 1.0 (* x_m x_m)))
(- (/ 1.0 x_m) (pow x_m -3.0)))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
double code(double x_s, double x_m) {
double tmp;
if (x_m <= 5000.0) {
tmp = x_m / (1.0 + (x_m * x_m));
} else {
tmp = (1.0 / x_m) - pow(x_m, -3.0);
}
return x_s * tmp;
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8) :: tmp
if (x_m <= 5000.0d0) then
tmp = x_m / (1.0d0 + (x_m * x_m))
else
tmp = (1.0d0 / x_m) - (x_m ** (-3.0d0))
end if
code = x_s * tmp
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m) {
double tmp;
if (x_m <= 5000.0) {
tmp = x_m / (1.0 + (x_m * x_m));
} else {
tmp = (1.0 / x_m) - Math.pow(x_m, -3.0);
}
return x_s * tmp;
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) def code(x_s, x_m): tmp = 0 if x_m <= 5000.0: tmp = x_m / (1.0 + (x_m * x_m)) else: tmp = (1.0 / x_m) - math.pow(x_m, -3.0) return x_s * tmp
x\_m = abs(x) x\_s = copysign(1.0, x) function code(x_s, x_m) tmp = 0.0 if (x_m <= 5000.0) tmp = Float64(x_m / Float64(1.0 + Float64(x_m * x_m))); else tmp = Float64(Float64(1.0 / x_m) - (x_m ^ -3.0)); end return Float64(x_s * tmp) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m) tmp = 0.0; if (x_m <= 5000.0) tmp = x_m / (1.0 + (x_m * x_m)); else tmp = (1.0 / x_m) - (x_m ^ -3.0); end tmp_2 = x_s * tmp; end
x\_m = N[Abs[x], $MachinePrecision]
x\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_] := N[(x$95$s * If[LessEqual[x$95$m, 5000.0], N[(x$95$m / N[(1.0 + N[(x$95$m * x$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(1.0 / x$95$m), $MachinePrecision] - N[Power[x$95$m, -3.0], $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 5000:\\
\;\;\;\;\frac{x\_m}{1 + x\_m \cdot x\_m}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{x\_m} - {x\_m}^{-3}\\
\end{array}
\end{array}
if x < 5e3Initial program 86.2%
if 5e3 < x Initial program 52.0%
clear-num52.1%
inv-pow52.1%
fma-define52.1%
Applied egg-rr52.1%
Taylor expanded in x around inf 100.0%
div-sub100.0%
associate-/r*100.0%
pow-plus100.0%
metadata-eval100.0%
exp-to-pow100.0%
*-commutative100.0%
exp-neg100.0%
distribute-lft-neg-in100.0%
metadata-eval100.0%
*-commutative100.0%
exp-to-pow100.0%
Simplified100.0%
Final simplification89.8%
x\_m = (fabs.f64 x) x\_s = (copysign.f64 #s(literal 1 binary64) x) (FPCore (x_s x_m) :precision binary64 (* x_s (pow (+ x_m (/ 1.0 x_m)) -1.0)))
x\_m = fabs(x);
x\_s = copysign(1.0, x);
double code(double x_s, double x_m) {
return x_s * pow((x_m + (1.0 / x_m)), -1.0);
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
code = x_s * ((x_m + (1.0d0 / x_m)) ** (-1.0d0))
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m) {
return x_s * Math.pow((x_m + (1.0 / x_m)), -1.0);
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) def code(x_s, x_m): return x_s * math.pow((x_m + (1.0 / x_m)), -1.0)
x\_m = abs(x) x\_s = copysign(1.0, x) function code(x_s, x_m) return Float64(x_s * (Float64(x_m + Float64(1.0 / x_m)) ^ -1.0)) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); function tmp = code(x_s, x_m) tmp = x_s * ((x_m + (1.0 / x_m)) ^ -1.0); end
x\_m = N[Abs[x], $MachinePrecision]
x\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_] := N[(x$95$s * N[Power[N[(x$95$m + N[(1.0 / x$95$m), $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot {\left(x\_m + \frac{1}{x\_m}\right)}^{-1}
\end{array}
Initial program 77.4%
clear-num77.3%
inv-pow77.3%
fma-define77.3%
Applied egg-rr77.3%
Taylor expanded in x around inf 77.3%
distribute-rgt-in77.3%
*-lft-identity77.3%
unpow277.3%
associate-/r*77.4%
*-rgt-identity77.4%
associate-*r/77.3%
unpow-177.3%
unpow-177.3%
pow-sqr77.4%
metadata-eval77.4%
pow-plus99.8%
metadata-eval99.8%
unpow-199.8%
Simplified99.8%
x\_m = (fabs.f64 x) x\_s = (copysign.f64 #s(literal 1 binary64) x) (FPCore (x_s x_m) :precision binary64 (* x_s (if (<= x_m 100000000.0) (/ x_m (+ 1.0 (* x_m x_m))) (/ 1.0 x_m))))
x\_m = fabs(x);
x\_s = copysign(1.0, x);
double code(double x_s, double x_m) {
double tmp;
if (x_m <= 100000000.0) {
tmp = x_m / (1.0 + (x_m * x_m));
} else {
tmp = 1.0 / x_m;
}
return x_s * tmp;
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8) :: tmp
if (x_m <= 100000000.0d0) then
tmp = x_m / (1.0d0 + (x_m * x_m))
else
tmp = 1.0d0 / x_m
end if
code = x_s * tmp
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m) {
double tmp;
if (x_m <= 100000000.0) {
tmp = x_m / (1.0 + (x_m * x_m));
} else {
tmp = 1.0 / x_m;
}
return x_s * tmp;
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) def code(x_s, x_m): tmp = 0 if x_m <= 100000000.0: tmp = x_m / (1.0 + (x_m * x_m)) else: tmp = 1.0 / x_m return x_s * tmp
x\_m = abs(x) x\_s = copysign(1.0, x) function code(x_s, x_m) tmp = 0.0 if (x_m <= 100000000.0) tmp = Float64(x_m / Float64(1.0 + Float64(x_m * x_m))); else tmp = Float64(1.0 / x_m); end return Float64(x_s * tmp) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m) tmp = 0.0; if (x_m <= 100000000.0) tmp = x_m / (1.0 + (x_m * x_m)); else tmp = 1.0 / x_m; end tmp_2 = x_s * tmp; end
x\_m = N[Abs[x], $MachinePrecision]
x\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_] := N[(x$95$s * If[LessEqual[x$95$m, 100000000.0], N[(x$95$m / N[(1.0 + N[(x$95$m * x$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 / x$95$m), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 100000000:\\
\;\;\;\;\frac{x\_m}{1 + x\_m \cdot x\_m}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{x\_m}\\
\end{array}
\end{array}
if x < 1e8Initial program 86.2%
if 1e8 < x Initial program 52.0%
Taylor expanded in x around inf 100.0%
Final simplification89.8%
x\_m = (fabs.f64 x) x\_s = (copysign.f64 #s(literal 1 binary64) x) (FPCore (x_s x_m) :precision binary64 (* x_s (if (<= x_m 1.0) x_m (/ 1.0 x_m))))
x\_m = fabs(x);
x\_s = copysign(1.0, x);
double code(double x_s, double x_m) {
double tmp;
if (x_m <= 1.0) {
tmp = x_m;
} else {
tmp = 1.0 / x_m;
}
return x_s * tmp;
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8) :: tmp
if (x_m <= 1.0d0) then
tmp = x_m
else
tmp = 1.0d0 / x_m
end if
code = x_s * tmp
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m) {
double tmp;
if (x_m <= 1.0) {
tmp = x_m;
} else {
tmp = 1.0 / x_m;
}
return x_s * tmp;
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) def code(x_s, x_m): tmp = 0 if x_m <= 1.0: tmp = x_m else: tmp = 1.0 / x_m return x_s * tmp
x\_m = abs(x) x\_s = copysign(1.0, x) function code(x_s, x_m) tmp = 0.0 if (x_m <= 1.0) tmp = x_m; else tmp = Float64(1.0 / x_m); end return Float64(x_s * tmp) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m) tmp = 0.0; if (x_m <= 1.0) tmp = x_m; else tmp = 1.0 / x_m; end tmp_2 = x_s * tmp; end
x\_m = N[Abs[x], $MachinePrecision]
x\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_] := N[(x$95$s * If[LessEqual[x$95$m, 1.0], x$95$m, N[(1.0 / x$95$m), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 1:\\
\;\;\;\;x\_m\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{x\_m}\\
\end{array}
\end{array}
if x < 1Initial program 86.2%
Taylor expanded in x around 0 68.4%
if 1 < x Initial program 52.7%
Taylor expanded in x around inf 99.3%
x\_m = (fabs.f64 x) x\_s = (copysign.f64 #s(literal 1 binary64) x) (FPCore (x_s x_m) :precision binary64 (* x_s x_m))
x\_m = fabs(x);
x\_s = copysign(1.0, x);
double code(double x_s, double x_m) {
return x_s * x_m;
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
code = x_s * x_m
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m) {
return x_s * x_m;
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) def code(x_s, x_m): return x_s * x_m
x\_m = abs(x) x\_s = copysign(1.0, x) function code(x_s, x_m) return Float64(x_s * x_m) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); function tmp = code(x_s, x_m) tmp = x_s * x_m; end
x\_m = N[Abs[x], $MachinePrecision]
x\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_] := N[(x$95$s * x$95$m), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot x\_m
\end{array}
Initial program 77.4%
Taylor expanded in x around 0 51.5%
(FPCore (x) :precision binary64 (/ 1.0 (+ x (/ 1.0 x))))
double code(double x) {
return 1.0 / (x + (1.0 / x));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 1.0d0 / (x + (1.0d0 / x))
end function
public static double code(double x) {
return 1.0 / (x + (1.0 / x));
}
def code(x): return 1.0 / (x + (1.0 / x))
function code(x) return Float64(1.0 / Float64(x + Float64(1.0 / x))) end
function tmp = code(x) tmp = 1.0 / (x + (1.0 / x)); end
code[x_] := N[(1.0 / N[(x + N[(1.0 / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{x + \frac{1}{x}}
\end{array}
herbie shell --seed 2024137
(FPCore (x)
:name "x / (x^2 + 1)"
:precision binary64
:alt
(! :herbie-platform default (/ 1 (+ x (/ 1 x))))
(/ x (+ (* x x) 1.0)))