
(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 (/ -1.0 a)) (cbrt g)) (cbrt -0.5)))
double code(double g, double a) {
return (cbrt((-1.0 / a)) * cbrt(g)) * cbrt(-0.5);
}
public static double code(double g, double a) {
return (Math.cbrt((-1.0 / a)) * Math.cbrt(g)) * Math.cbrt(-0.5);
}
function code(g, a) return Float64(Float64(cbrt(Float64(-1.0 / a)) * cbrt(g)) * cbrt(-0.5)) end
code[g_, a_] := N[(N[(N[Power[N[(-1.0 / a), $MachinePrecision], 1/3], $MachinePrecision] * N[Power[g, 1/3], $MachinePrecision]), $MachinePrecision] * N[Power[-0.5, 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(\sqrt[3]{\frac{-1}{a}} \cdot \sqrt[3]{g}\right) \cdot \sqrt[3]{-0.5}
\end{array}
Initial program 81.5%
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
clear-numN/A
associate-/r/N/A
metadata-evalN/A
lift-cbrt.f64N/A
cbrt-divN/A
metadata-evalN/A
lift-neg.f64N/A
frac-2negN/A
lift-/.f64N/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
lift-*.f64N/A
*-commutativeN/A
cbrt-prodN/A
pow1/3N/A
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
lower-cbrt.f64N/A
pow1/3N/A
lower-cbrt.f6498.8
Applied rewrites98.8%
(FPCore (g a) :precision binary64 (if (<= (* 2.0 a) -5e-306) (* (pow (- a) -0.3333333333333333) (cbrt (* -0.5 g))) (* (pow (* 2.0 a) -0.3333333333333333) (cbrt g))))
double code(double g, double a) {
double tmp;
if ((2.0 * a) <= -5e-306) {
tmp = pow(-a, -0.3333333333333333) * cbrt((-0.5 * 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) <= -5e-306) {
tmp = Math.pow(-a, -0.3333333333333333) * Math.cbrt((-0.5 * 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) <= -5e-306) tmp = Float64((Float64(-a) ^ -0.3333333333333333) * cbrt(Float64(-0.5 * 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], -5e-306], N[(N[Power[(-a), -0.3333333333333333], $MachinePrecision] * N[Power[N[(-0.5 * g), $MachinePrecision], 1/3], $MachinePrecision]), $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 -5 \cdot 10^{-306}:\\
\;\;\;\;{\left(-a\right)}^{-0.3333333333333333} \cdot \sqrt[3]{-0.5 \cdot 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) < -4.99999999999999998e-306Initial program 82.2%
Applied rewrites98.7%
lift-cbrt.f64N/A
pow1/3N/A
lift-/.f64N/A
frac-2negN/A
metadata-evalN/A
lift-neg.f64N/A
inv-powN/A
pow-powN/A
metadata-evalN/A
metadata-evalN/A
lower-pow.f64N/A
metadata-eval92.4
Applied rewrites92.4%
if -4.99999999999999998e-306 < (*.f64 #s(literal 2 binary64) a) Initial program 80.6%
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.7%
lift-/.f64N/A
clear-numN/A
associate-/r/N/A
metadata-evalN/A
lift-cbrt.f64N/A
cbrt-divN/A
metadata-evalN/A
lift-neg.f64N/A
frac-2negN/A
lift-/.f64N/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
lift-*.f64N/A
cbrt-prodN/A
pow1/3N/A
associate-*r*N/A
lower-*.f64N/A
Applied rewrites98.8%
lift-cbrt.f64N/A
pow1/3N/A
metadata-evalN/A
metadata-evalN/A
pow-powN/A
inv-powN/A
lift-/.f64N/A
clear-numN/A
lower-pow.f64N/A
div-invN/A
metadata-evalN/A
metadata-evalN/A
*-commutativeN/A
lower-*.f64N/A
metadata-evalN/A
metadata-eval92.1
Applied rewrites92.1%
(FPCore (g a) :precision binary64 (if (<= (* 2.0 a) 7e-299) (cbrt (* (/ 0.5 a) g)) (* (pow (* 2.0 a) -0.3333333333333333) (cbrt g))))
double code(double g, double a) {
double tmp;
if ((2.0 * a) <= 7e-299) {
tmp = cbrt(((0.5 / a) * 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) <= 7e-299) {
tmp = Math.cbrt(((0.5 / a) * 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) <= 7e-299) tmp = cbrt(Float64(Float64(0.5 / a) * 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], 7e-299], N[Power[N[(N[(0.5 / a), $MachinePrecision] * g), $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 7 \cdot 10^{-299}:\\
\;\;\;\;\sqrt[3]{\frac{0.5}{a} \cdot 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) < 6.99999999999999981e-299Initial program 82.3%
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.9%
lift-/.f64N/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
cbrt-undivN/A
lift-neg.f64N/A
distribute-frac-neg2N/A
lift-*.f64N/A
associate-*l/N/A
lift-/.f64N/A
*-commutativeN/A
distribute-lft-neg-outN/A
lift-neg.f64N/A
*-commutativeN/A
lift-*.f64N/A
lift-cbrt.f6482.4
lift-*.f64N/A
lift-neg.f64N/A
distribute-rgt-neg-outN/A
distribute-lft-neg-inN/A
lift-/.f64N/A
distribute-frac-neg2N/A
lift-neg.f64N/A
lower-*.f64N/A
Applied rewrites82.4%
if 6.99999999999999981e-299 < (*.f64 #s(literal 2 binary64) a) Initial program 80.5%
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.7%
lift-/.f64N/A
clear-numN/A
associate-/r/N/A
metadata-evalN/A
lift-cbrt.f64N/A
cbrt-divN/A
metadata-evalN/A
lift-neg.f64N/A
frac-2negN/A
lift-/.f64N/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
lift-*.f64N/A
cbrt-prodN/A
pow1/3N/A
associate-*r*N/A
lower-*.f64N/A
Applied rewrites98.8%
lift-cbrt.f64N/A
pow1/3N/A
metadata-evalN/A
metadata-evalN/A
pow-powN/A
inv-powN/A
lift-/.f64N/A
clear-numN/A
lower-pow.f64N/A
div-invN/A
metadata-evalN/A
metadata-evalN/A
*-commutativeN/A
lower-*.f64N/A
metadata-evalN/A
metadata-eval92.2
Applied rewrites92.2%
(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 81.5%
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
cbrt-undivN/A
frac-2negN/A
lift-*.f64N/A
distribute-rgt-neg-outN/A
lift-neg.f64N/A
cbrt-divN/A
lift-neg.f64N/A
remove-double-negN/A
pow1/3N/A
lower-/.f64N/A
pow1/3N/A
lower-cbrt.f64N/A
lift-neg.f64N/A
distribute-rgt-neg-outN/A
distribute-lft-neg-inN/A
lower-*.f64N/A
metadata-evalN/A
lower-cbrt.f6498.8
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 81.5%
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
clear-numN/A
associate-/r/N/A
metadata-evalN/A
lift-cbrt.f64N/A
cbrt-divN/A
metadata-evalN/A
lift-neg.f64N/A
frac-2negN/A
lift-/.f64N/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
lift-*.f64N/A
cbrt-prodN/A
pow1/3N/A
associate-*r*N/A
lower-*.f64N/A
Applied rewrites98.8%
(FPCore (g a) :precision binary64 (cbrt (/ (/ -0.5 a) (/ -1.0 g))))
double code(double g, double a) {
return cbrt(((-0.5 / a) / (-1.0 / g)));
}
public static double code(double g, double a) {
return Math.cbrt(((-0.5 / a) / (-1.0 / g)));
}
function code(g, a) return cbrt(Float64(Float64(-0.5 / a) / Float64(-1.0 / g))) end
code[g_, a_] := N[Power[N[(N[(-0.5 / a), $MachinePrecision] / N[(-1.0 / g), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{\frac{\frac{-0.5}{a}}{\frac{-1}{g}}}
\end{array}
Initial program 81.5%
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 rewrites81.5%
(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 81.5%
(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 81.5%
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
cbrt-undivN/A
lift-neg.f64N/A
distribute-frac-neg2N/A
lift-*.f64N/A
associate-*l/N/A
lift-/.f64N/A
*-commutativeN/A
distribute-lft-neg-outN/A
lift-neg.f64N/A
*-commutativeN/A
lift-*.f64N/A
lift-cbrt.f6481.4
lift-*.f64N/A
lift-neg.f64N/A
distribute-rgt-neg-outN/A
distribute-lft-neg-inN/A
lift-/.f64N/A
distribute-frac-neg2N/A
lift-neg.f64N/A
lower-*.f64N/A
Applied rewrites81.4%
herbie shell --seed 2024309
(FPCore (g a)
:name "2-ancestry mixing, zero discriminant"
:precision binary64
(cbrt (/ g (* 2.0 a))))