
(FPCore (g a) :precision binary64 (cbrt (/ g (* 2.0 a))))
double code(double g, double a) {
return cbrt((g / (2.0 * a)));
}
public static double code(double g, double a) {
return Math.cbrt((g / (2.0 * a)));
}
function code(g, a) return cbrt(Float64(g / Float64(2.0 * a))) end
code[g_, a_] := N[Power[N[(g / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{\frac{g}{2 \cdot a}}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 6 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (g a) :precision binary64 (cbrt (/ g (* 2.0 a))))
double code(double g, double a) {
return cbrt((g / (2.0 * a)));
}
public static double code(double g, double a) {
return Math.cbrt((g / (2.0 * a)));
}
function code(g, a) return cbrt(Float64(g / Float64(2.0 * a))) end
code[g_, a_] := N[Power[N[(g / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{\frac{g}{2 \cdot a}}
\end{array}
(FPCore (g a) :precision binary64 (/ (cbrt (/ -0.5 a)) (cbrt (/ -1.0 g))))
double code(double g, double a) {
return cbrt((-0.5 / a)) / cbrt((-1.0 / g));
}
public static double code(double g, double a) {
return Math.cbrt((-0.5 / a)) / Math.cbrt((-1.0 / g));
}
function code(g, a) return Float64(cbrt(Float64(-0.5 / a)) / cbrt(Float64(-1.0 / g))) end
code[g_, a_] := N[(N[Power[N[(-0.5 / a), $MachinePrecision], 1/3], $MachinePrecision] / N[Power[N[(-1.0 / g), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\sqrt[3]{\frac{-0.5}{a}}}{\sqrt[3]{\frac{-1}{g}}}
\end{array}
Initial program 78.6%
lift-cbrt.f64N/A
lift-/.f64N/A
frac-2negN/A
cbrt-divN/A
neg-mul-1N/A
cbrt-prodN/A
pow1/3N/A
associate-/r*N/A
lower-/.f64N/A
pow1/3N/A
sqr-powN/A
pow-prod-downN/A
sqr-negN/A
remove-double-negN/A
remove-double-negN/A
pow-prod-downN/A
sqr-powN/A
pow1/3N/A
lower-/.f64N/A
lower-cbrt.f64N/A
pow1/3N/A
lower-cbrt.f64N/A
lower-cbrt.f641.6
remove-double-divN/A
Applied rewrites98.7%
lift-/.f64N/A
lift-/.f64N/A
clear-numN/A
associate-/r*N/A
associate-/l/N/A
lower-/.f64N/A
metadata-evalN/A
lift-cbrt.f64N/A
lift-*.f64N/A
*-commutativeN/A
metadata-evalN/A
div-invN/A
cbrt-divN/A
clear-numN/A
lift-/.f64N/A
lower-cbrt.f64N/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
cbrt-undivN/A
lower-cbrt.f64N/A
lower-/.f6498.8
Applied rewrites98.8%
(FPCore (g a) :precision binary64 (if (<= (* 2.0 a) -2e-293) (cbrt (/ (/ -0.5 a) (/ -1.0 g))) (* (pow (* 2.0 a) -0.3333333333333333) (cbrt g))))
double code(double g, double a) {
double tmp;
if ((2.0 * a) <= -2e-293) {
tmp = cbrt(((-0.5 / a) / (-1.0 / g)));
} else {
tmp = pow((2.0 * a), -0.3333333333333333) * cbrt(g);
}
return tmp;
}
public static double code(double g, double a) {
double tmp;
if ((2.0 * a) <= -2e-293) {
tmp = Math.cbrt(((-0.5 / a) / (-1.0 / g)));
} else {
tmp = Math.pow((2.0 * a), -0.3333333333333333) * Math.cbrt(g);
}
return tmp;
}
function code(g, a) tmp = 0.0 if (Float64(2.0 * a) <= -2e-293) tmp = cbrt(Float64(Float64(-0.5 / a) / Float64(-1.0 / g))); else tmp = Float64((Float64(2.0 * a) ^ -0.3333333333333333) * cbrt(g)); end return tmp end
code[g_, a_] := If[LessEqual[N[(2.0 * a), $MachinePrecision], -2e-293], N[Power[N[(N[(-0.5 / a), $MachinePrecision] / N[(-1.0 / g), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision], N[(N[Power[N[(2.0 * a), $MachinePrecision], -0.3333333333333333], $MachinePrecision] * N[Power[g, 1/3], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;2 \cdot a \leq -2 \cdot 10^{-293}:\\
\;\;\;\;\sqrt[3]{\frac{\frac{-0.5}{a}}{\frac{-1}{g}}}\\
\mathbf{else}:\\
\;\;\;\;{\left(2 \cdot a\right)}^{-0.3333333333333333} \cdot \sqrt[3]{g}\\
\end{array}
\end{array}
if (*.f64 #s(literal 2 binary64) a) < -2.0000000000000001e-293Initial program 75.8%
lift-/.f64N/A
frac-2negN/A
clear-numN/A
div-invN/A
associate-/r*N/A
inv-powN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
pow-prod-upN/A
pow-prod-downN/A
sqr-negN/A
remove-double-negN/A
remove-double-negN/A
pow2N/A
pow-powN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
inv-powN/A
Applied rewrites75.9%
if -2.0000000000000001e-293 < (*.f64 #s(literal 2 binary64) a) Initial program 81.5%
lift-cbrt.f64N/A
lift-/.f64N/A
frac-2negN/A
cbrt-divN/A
neg-mul-1N/A
cbrt-prodN/A
pow1/3N/A
associate-/r*N/A
lower-/.f64N/A
pow1/3N/A
sqr-powN/A
pow-prod-downN/A
sqr-negN/A
remove-double-negN/A
remove-double-negN/A
pow-prod-downN/A
sqr-powN/A
pow1/3N/A
lower-/.f64N/A
lower-cbrt.f64N/A
pow1/3N/A
lower-cbrt.f64N/A
lower-cbrt.f641.6
remove-double-divN/A
Applied rewrites98.7%
lift-/.f64N/A
lift-/.f64N/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
cbrt-undivN/A
div-invN/A
metadata-evalN/A
*-commutativeN/A
cbrt-prodN/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
associate-*l/N/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
cbrt-undivN/A
lower-*.f64N/A
Applied rewrites98.5%
lift-cbrt.f64N/A
pow1/3N/A
lift-/.f64N/A
clear-numN/A
inv-powN/A
pow-powN/A
metadata-evalN/A
metadata-evalN/A
lower-pow.f64N/A
div-invN/A
metadata-evalN/A
*-commutativeN/A
lower-*.f64N/A
metadata-eval92.3
Applied rewrites92.3%
(FPCore (g a) :precision binary64 (/ (cbrt g) (cbrt (* 2.0 a))))
double code(double g, double a) {
return cbrt(g) / cbrt((2.0 * a));
}
public static double code(double g, double a) {
return Math.cbrt(g) / Math.cbrt((2.0 * a));
}
function code(g, a) return Float64(cbrt(g) / cbrt(Float64(2.0 * a))) end
code[g_, a_] := N[(N[Power[g, 1/3], $MachinePrecision] / N[Power[N[(2.0 * a), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\sqrt[3]{g}}{\sqrt[3]{2 \cdot a}}
\end{array}
Initial program 78.6%
lift-cbrt.f64N/A
lift-/.f64N/A
frac-2negN/A
cbrt-divN/A
neg-mul-1N/A
cbrt-prodN/A
pow1/3N/A
associate-/r*N/A
lower-/.f64N/A
pow1/3N/A
sqr-powN/A
pow-prod-downN/A
sqr-negN/A
remove-double-negN/A
remove-double-negN/A
pow-prod-downN/A
sqr-powN/A
pow1/3N/A
lower-/.f64N/A
lower-cbrt.f64N/A
pow1/3N/A
lower-cbrt.f64N/A
lower-cbrt.f641.6
remove-double-divN/A
Applied rewrites98.7%
lift-/.f64N/A
lift-/.f64N/A
associate-/l/N/A
lower-/.f64N/A
*-commutativeN/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
cbrt-prodN/A
neg-mul-1N/A
lower-cbrt.f64N/A
lift-*.f64N/A
distribute-lft-neg-inN/A
metadata-evalN/A
lower-*.f6498.7
Applied rewrites98.7%
(FPCore (g a) :precision binary64 (* (cbrt (/ 0.5 a)) (cbrt g)))
double code(double g, double a) {
return cbrt((0.5 / a)) * cbrt(g);
}
public static double code(double g, double a) {
return Math.cbrt((0.5 / a)) * Math.cbrt(g);
}
function code(g, a) return Float64(cbrt(Float64(0.5 / a)) * cbrt(g)) end
code[g_, a_] := N[(N[Power[N[(0.5 / a), $MachinePrecision], 1/3], $MachinePrecision] * N[Power[g, 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{\frac{0.5}{a}} \cdot \sqrt[3]{g}
\end{array}
Initial program 78.6%
lift-cbrt.f64N/A
lift-/.f64N/A
frac-2negN/A
cbrt-divN/A
neg-mul-1N/A
cbrt-prodN/A
pow1/3N/A
associate-/r*N/A
lower-/.f64N/A
pow1/3N/A
sqr-powN/A
pow-prod-downN/A
sqr-negN/A
remove-double-negN/A
remove-double-negN/A
pow-prod-downN/A
sqr-powN/A
pow1/3N/A
lower-/.f64N/A
lower-cbrt.f64N/A
pow1/3N/A
lower-cbrt.f64N/A
lower-cbrt.f641.6
remove-double-divN/A
Applied rewrites98.7%
lift-/.f64N/A
lift-/.f64N/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
cbrt-undivN/A
div-invN/A
metadata-evalN/A
*-commutativeN/A
cbrt-prodN/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
associate-*l/N/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
cbrt-undivN/A
lower-*.f64N/A
Applied rewrites98.6%
(FPCore (g a) :precision binary64 (/ 1.0 (cbrt (* (/ a g) 2.0))))
double code(double g, double a) {
return 1.0 / cbrt(((a / g) * 2.0));
}
public static double code(double g, double a) {
return 1.0 / Math.cbrt(((a / g) * 2.0));
}
function code(g, a) return Float64(1.0 / cbrt(Float64(Float64(a / g) * 2.0))) end
code[g_, a_] := N[(1.0 / N[Power[N[(N[(a / g), $MachinePrecision] * 2.0), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{\sqrt[3]{\frac{a}{g} \cdot 2}}
\end{array}
Initial program 78.6%
lift-cbrt.f64N/A
lift-/.f64N/A
frac-2negN/A
cbrt-divN/A
neg-mul-1N/A
cbrt-prodN/A
pow1/3N/A
associate-/r*N/A
lower-/.f64N/A
pow1/3N/A
sqr-powN/A
pow-prod-downN/A
sqr-negN/A
remove-double-negN/A
remove-double-negN/A
pow-prod-downN/A
sqr-powN/A
pow1/3N/A
lower-/.f64N/A
lower-cbrt.f64N/A
pow1/3N/A
lower-cbrt.f64N/A
lower-cbrt.f641.6
remove-double-divN/A
Applied rewrites98.7%
lift-/.f64N/A
clear-numN/A
lower-/.f64N/A
lift-cbrt.f64N/A
lift-/.f64N/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
cbrt-undivN/A
cbrt-undivN/A
frac-2negN/A
lift-neg.f64N/A
metadata-evalN/A
/-rgt-identityN/A
lower-cbrt.f64N/A
lift-*.f64N/A
*-commutativeN/A
lift-neg.f64N/A
neg-mul-1N/A
*-commutativeN/A
times-fracN/A
metadata-evalN/A
lower-*.f64N/A
lower-/.f6479.2
Applied rewrites79.2%
(FPCore (g a) :precision binary64 (cbrt (* (/ 0.5 a) g)))
double code(double g, double a) {
return cbrt(((0.5 / a) * g));
}
public static double code(double g, double a) {
return Math.cbrt(((0.5 / a) * g));
}
function code(g, a) return cbrt(Float64(Float64(0.5 / a) * g)) end
code[g_, a_] := N[Power[N[(N[(0.5 / a), $MachinePrecision] * g), $MachinePrecision], 1/3], $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{\frac{0.5}{a} \cdot g}
\end{array}
Initial program 78.6%
lift-cbrt.f64N/A
lift-/.f64N/A
frac-2negN/A
cbrt-divN/A
neg-mul-1N/A
cbrt-prodN/A
pow1/3N/A
associate-/r*N/A
lower-/.f64N/A
pow1/3N/A
sqr-powN/A
pow-prod-downN/A
sqr-negN/A
remove-double-negN/A
remove-double-negN/A
pow-prod-downN/A
sqr-powN/A
pow1/3N/A
lower-/.f64N/A
lower-cbrt.f64N/A
pow1/3N/A
lower-cbrt.f64N/A
lower-cbrt.f641.6
remove-double-divN/A
Applied rewrites98.7%
lift-/.f64N/A
lift-/.f64N/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
cbrt-undivN/A
lift-cbrt.f64N/A
cbrt-undivN/A
frac-2negN/A
lift-neg.f64N/A
metadata-evalN/A
/-rgt-identityN/A
un-div-invN/A
lift-*.f64N/A
associate-/r*N/A
metadata-evalN/A
lift-/.f64N/A
*-commutativeN/A
lift-*.f64N/A
lift-cbrt.f6478.6
lift-*.f64N/A
lift-neg.f64N/A
distribute-rgt-neg-outN/A
distribute-lft-neg-inN/A
lower-*.f64N/A
Applied rewrites78.6%
herbie shell --seed 2024242
(FPCore (g a)
:name "2-ancestry mixing, zero discriminant"
:precision binary64
(cbrt (/ g (* 2.0 a))))