
(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 8 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 (/ -1.0 g))) (cbrt a)))
double code(double g, double a) {
return cbrt((-0.5 / (-1.0 / g))) / cbrt(a);
}
public static double code(double g, double a) {
return Math.cbrt((-0.5 / (-1.0 / g))) / Math.cbrt(a);
}
function code(g, a) return Float64(cbrt(Float64(-0.5 / Float64(-1.0 / g))) / cbrt(a)) end
code[g_, a_] := N[(N[Power[N[(-0.5 / N[(-1.0 / g), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision] / N[Power[a, 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\sqrt[3]{\frac{-0.5}{\frac{-1}{g}}}}{\sqrt[3]{a}}
\end{array}
Initial program 76.2%
lift-cbrt.f64N/A
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
frac-2negN/A
cbrt-divN/A
distribute-neg-fracN/A
cbrt-divN/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
cbrt-divN/A
pow1/3N/A
lower-/.f64N/A
Applied rewrites98.8%
lift-/.f64N/A
div-invN/A
metadata-evalN/A
lift-cbrt.f64N/A
cbrt-divN/A
metadata-evalN/A
lift-neg.f64N/A
frac-2negN/A
cbrt-undivN/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
associate-*r/N/A
*-commutativeN/A
lower-/.f64N/A
Applied rewrites98.8%
lift-*.f64N/A
metadata-evalN/A
associate-/r/N/A
lift-/.f64N/A
lower-/.f6498.9
Applied rewrites98.9%
(FPCore (g a) :precision binary64 (if (<= (* 2.0 a) -2e-301) (* (pow (- a) -0.3333333333333333) (cbrt (* -0.5 g))) (cbrt (/ (/ -0.5 a) (/ -1.0 g)))))
double code(double g, double a) {
double tmp;
if ((2.0 * a) <= -2e-301) {
tmp = pow(-a, -0.3333333333333333) * cbrt((-0.5 * g));
} else {
tmp = cbrt(((-0.5 / a) / (-1.0 / g)));
}
return tmp;
}
public static double code(double g, double a) {
double tmp;
if ((2.0 * a) <= -2e-301) {
tmp = Math.pow(-a, -0.3333333333333333) * Math.cbrt((-0.5 * g));
} else {
tmp = Math.cbrt(((-0.5 / a) / (-1.0 / g)));
}
return tmp;
}
function code(g, a) tmp = 0.0 if (Float64(2.0 * a) <= -2e-301) tmp = Float64((Float64(-a) ^ -0.3333333333333333) * cbrt(Float64(-0.5 * g))); else tmp = cbrt(Float64(Float64(-0.5 / a) / Float64(-1.0 / g))); end return tmp end
code[g_, a_] := If[LessEqual[N[(2.0 * a), $MachinePrecision], -2e-301], N[(N[Power[(-a), -0.3333333333333333], $MachinePrecision] * N[Power[N[(-0.5 * g), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision], N[Power[N[(N[(-0.5 / a), $MachinePrecision] / N[(-1.0 / g), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;2 \cdot a \leq -2 \cdot 10^{-301}:\\
\;\;\;\;{\left(-a\right)}^{-0.3333333333333333} \cdot \sqrt[3]{-0.5 \cdot g}\\
\mathbf{else}:\\
\;\;\;\;\sqrt[3]{\frac{\frac{-0.5}{a}}{\frac{-1}{g}}}\\
\end{array}
\end{array}
if (*.f64 #s(literal 2 binary64) a) < -2.00000000000000013e-301Initial program 75.7%
lift-cbrt.f64N/A
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
cbrt-divN/A
frac-2negN/A
cbrt-divN/A
pow1/3N/A
associate-/l/N/A
neg-mul-1N/A
cbrt-prodN/A
pow1/3N/A
times-fracN/A
pow1/3N/A
Applied rewrites98.8%
lift-/.f64N/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
cbrt-undivN/A
frac-2negN/A
metadata-evalN/A
lift-neg.f64N/A
cbrt-divN/A
metadata-evalN/A
pow1/3N/A
pow-flipN/A
lower-pow.f64N/A
metadata-eval92.4
Applied rewrites92.4%
if -2.00000000000000013e-301 < (*.f64 #s(literal 2 binary64) a) Initial program 76.6%
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 rewrites76.6%
(FPCore (g a) :precision binary64 (/ (cbrt (* 0.5 g)) (cbrt a)))
double code(double g, double a) {
return cbrt((0.5 * g)) / cbrt(a);
}
public static double code(double g, double a) {
return Math.cbrt((0.5 * g)) / Math.cbrt(a);
}
function code(g, a) return Float64(cbrt(Float64(0.5 * g)) / cbrt(a)) end
code[g_, a_] := N[(N[Power[N[(0.5 * g), $MachinePrecision], 1/3], $MachinePrecision] / N[Power[a, 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\sqrt[3]{0.5 \cdot g}}{\sqrt[3]{a}}
\end{array}
Initial program 76.2%
lift-cbrt.f64N/A
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
frac-2negN/A
cbrt-divN/A
distribute-neg-fracN/A
cbrt-divN/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
cbrt-divN/A
pow1/3N/A
lower-/.f64N/A
Applied rewrites98.8%
lift-/.f64N/A
div-invN/A
metadata-evalN/A
lift-cbrt.f64N/A
cbrt-divN/A
metadata-evalN/A
lift-neg.f64N/A
frac-2negN/A
cbrt-undivN/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
associate-*r/N/A
*-commutativeN/A
lower-/.f64N/A
Applied rewrites98.8%
(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 76.2%
lift-cbrt.f64N/A
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
frac-2negN/A
cbrt-divN/A
distribute-neg-fracN/A
cbrt-divN/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
cbrt-divN/A
pow1/3N/A
lower-/.f64N/A
Applied rewrites98.8%
lift-/.f64N/A
div-invN/A
metadata-evalN/A
lift-cbrt.f64N/A
cbrt-divN/A
metadata-evalN/A
lift-neg.f64N/A
frac-2negN/A
cbrt-undivN/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
associate-*r/N/A
*-commutativeN/A
lower-/.f64N/A
Applied rewrites98.8%
lift-*.f64N/A
metadata-evalN/A
associate-/r/N/A
lift-/.f64N/A
lower-/.f6498.9
Applied rewrites98.9%
Applied rewrites98.8%
(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 76.2%
lift-cbrt.f64N/A
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
frac-2negN/A
cbrt-divN/A
distribute-neg-fracN/A
cbrt-divN/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
cbrt-divN/A
pow1/3N/A
lower-/.f64N/A
Applied rewrites98.8%
lift-/.f64N/A
*-lft-identityN/A
associate-*l/N/A
metadata-evalN/A
lift-cbrt.f64N/A
cbrt-divN/A
metadata-evalN/A
lift-neg.f64N/A
frac-2negN/A
cbrt-undivN/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
lift-/.f64N/A
lift-cbrt.f64N/A
lift-*.f64N/A
cbrt-prodN/A
pow1/3N/A
associate-*r*N/A
lower-*.f64N/A
Applied rewrites98.7%
(FPCore (g a) :precision binary64 (cbrt (/ g (/ -1.0 (/ -0.5 a)))))
double code(double g, double a) {
return cbrt((g / (-1.0 / (-0.5 / a))));
}
public static double code(double g, double a) {
return Math.cbrt((g / (-1.0 / (-0.5 / a))));
}
function code(g, a) return cbrt(Float64(g / Float64(-1.0 / Float64(-0.5 / a)))) end
code[g_, a_] := N[Power[N[(g / N[(-1.0 / N[(-0.5 / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{\frac{g}{\frac{-1}{\frac{-0.5}{a}}}}
\end{array}
Initial program 76.2%
remove-double-divN/A
frac-2negN/A
metadata-evalN/A
distribute-frac-neg2N/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
pow-prod-downN/A
pow-sqrN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
inv-powN/A
Applied rewrites76.2%
(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}
Initial program 76.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 76.2%
lift-cbrt.f64N/A
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
frac-2negN/A
cbrt-divN/A
distribute-neg-fracN/A
cbrt-divN/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
cbrt-divN/A
pow1/3N/A
lower-/.f64N/A
Applied rewrites98.8%
lift-/.f64N/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
lift-*.f64N/A
metadata-evalN/A
associate-/r/N/A
unpow-1N/A
lift-pow.f64N/A
cbrt-divN/A
associate-/r*N/A
lift-*.f64N/A
lift-/.f64N/A
lift-cbrt.f6475.5
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
lift-pow.f64N/A
unpow-1N/A
un-div-invN/A
associate-/r/N/A
lower-*.f64N/A
Applied rewrites76.2%
herbie shell --seed 2024314
(FPCore (g a)
:name "2-ancestry mixing, zero discriminant"
:precision binary64
(cbrt (/ g (* 2.0 a))))