
(FPCore (g h a) :precision binary64 (let* ((t_0 (/ 1.0 (* 2.0 a))) (t_1 (sqrt (- (* g g) (* h h))))) (+ (cbrt (* t_0 (+ (- g) t_1))) (cbrt (* t_0 (- (- g) t_1))))))
double code(double g, double h, double a) {
double t_0 = 1.0 / (2.0 * a);
double t_1 = sqrt(((g * g) - (h * h)));
return cbrt((t_0 * (-g + t_1))) + cbrt((t_0 * (-g - t_1)));
}
public static double code(double g, double h, double a) {
double t_0 = 1.0 / (2.0 * a);
double t_1 = Math.sqrt(((g * g) - (h * h)));
return Math.cbrt((t_0 * (-g + t_1))) + Math.cbrt((t_0 * (-g - t_1)));
}
function code(g, h, a) t_0 = Float64(1.0 / Float64(2.0 * a)) t_1 = sqrt(Float64(Float64(g * g) - Float64(h * h))) return Float64(cbrt(Float64(t_0 * Float64(Float64(-g) + t_1))) + cbrt(Float64(t_0 * Float64(Float64(-g) - t_1)))) end
code[g_, h_, a_] := Block[{t$95$0 = N[(1.0 / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Sqrt[N[(N[(g * g), $MachinePrecision] - N[(h * h), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, N[(N[Power[N[(t$95$0 * N[((-g) + t$95$1), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision] + N[Power[N[(t$95$0 * N[((-g) - t$95$1), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{1}{2 \cdot a}\\
t_1 := \sqrt{g \cdot g - h \cdot h}\\
\sqrt[3]{t\_0 \cdot \left(\left(-g\right) + t\_1\right)} + \sqrt[3]{t\_0 \cdot \left(\left(-g\right) - t\_1\right)}
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 7 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (g h a) :precision binary64 (let* ((t_0 (/ 1.0 (* 2.0 a))) (t_1 (sqrt (- (* g g) (* h h))))) (+ (cbrt (* t_0 (+ (- g) t_1))) (cbrt (* t_0 (- (- g) t_1))))))
double code(double g, double h, double a) {
double t_0 = 1.0 / (2.0 * a);
double t_1 = sqrt(((g * g) - (h * h)));
return cbrt((t_0 * (-g + t_1))) + cbrt((t_0 * (-g - t_1)));
}
public static double code(double g, double h, double a) {
double t_0 = 1.0 / (2.0 * a);
double t_1 = Math.sqrt(((g * g) - (h * h)));
return Math.cbrt((t_0 * (-g + t_1))) + Math.cbrt((t_0 * (-g - t_1)));
}
function code(g, h, a) t_0 = Float64(1.0 / Float64(2.0 * a)) t_1 = sqrt(Float64(Float64(g * g) - Float64(h * h))) return Float64(cbrt(Float64(t_0 * Float64(Float64(-g) + t_1))) + cbrt(Float64(t_0 * Float64(Float64(-g) - t_1)))) end
code[g_, h_, a_] := Block[{t$95$0 = N[(1.0 / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Sqrt[N[(N[(g * g), $MachinePrecision] - N[(h * h), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, N[(N[Power[N[(t$95$0 * N[((-g) + t$95$1), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision] + N[Power[N[(t$95$0 * N[((-g) - t$95$1), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{1}{2 \cdot a}\\
t_1 := \sqrt{g \cdot g - h \cdot h}\\
\sqrt[3]{t\_0 \cdot \left(\left(-g\right) + t\_1\right)} + \sqrt[3]{t\_0 \cdot \left(\left(-g\right) - t\_1\right)}
\end{array}
\end{array}
(FPCore (g h a) :precision binary64 (+ (* (cbrt (/ 0.5 a)) (cbrt (* g -2.0))) (cbrt (* (- g g) (/ -0.5 a)))))
double code(double g, double h, double a) {
return (cbrt((0.5 / a)) * cbrt((g * -2.0))) + cbrt(((g - g) * (-0.5 / a)));
}
public static double code(double g, double h, double a) {
return (Math.cbrt((0.5 / a)) * Math.cbrt((g * -2.0))) + Math.cbrt(((g - g) * (-0.5 / a)));
}
function code(g, h, a) return Float64(Float64(cbrt(Float64(0.5 / a)) * cbrt(Float64(g * -2.0))) + cbrt(Float64(Float64(g - g) * Float64(-0.5 / a)))) end
code[g_, h_, a_] := N[(N[(N[Power[N[(0.5 / a), $MachinePrecision], 1/3], $MachinePrecision] * N[Power[N[(g * -2.0), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision] + N[Power[N[(N[(g - g), $MachinePrecision] * N[(-0.5 / a), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{\frac{0.5}{a}} \cdot \sqrt[3]{g \cdot -2} + \sqrt[3]{\left(g - g\right) \cdot \frac{-0.5}{a}}
\end{array}
Initial program 47.2%
Simplified47.2%
Taylor expanded in g around -inf 26.5%
*-commutative26.5%
Simplified26.5%
Taylor expanded in g around -inf 76.2%
neg-mul-176.2%
Simplified76.2%
cbrt-prod95.9%
Applied egg-rr95.9%
Final simplification95.9%
(FPCore (g h a) :precision binary64 (+ (cbrt (* (- g g) (/ -0.5 a))) (/ (cbrt (- g)) (cbrt a))))
double code(double g, double h, double a) {
return cbrt(((g - g) * (-0.5 / a))) + (cbrt(-g) / cbrt(a));
}
public static double code(double g, double h, double a) {
return Math.cbrt(((g - g) * (-0.5 / a))) + (Math.cbrt(-g) / Math.cbrt(a));
}
function code(g, h, a) return Float64(cbrt(Float64(Float64(g - g) * Float64(-0.5 / a))) + Float64(cbrt(Float64(-g)) / cbrt(a))) end
code[g_, h_, a_] := N[(N[Power[N[(N[(g - g), $MachinePrecision] * N[(-0.5 / a), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision] + N[(N[Power[(-g), 1/3], $MachinePrecision] / N[Power[a, 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{\left(g - g\right) \cdot \frac{-0.5}{a}} + \frac{\sqrt[3]{-g}}{\sqrt[3]{a}}
\end{array}
Initial program 47.2%
Simplified47.2%
Taylor expanded in g around -inf 26.5%
*-commutative26.5%
Simplified26.5%
Taylor expanded in g around -inf 76.2%
neg-mul-176.2%
Simplified76.2%
associate-*l/76.1%
cbrt-div95.9%
*-commutative95.9%
associate-*r*95.9%
metadata-eval95.9%
neg-mul-195.9%
Applied egg-rr95.9%
Final simplification95.9%
(FPCore (g h a) :precision binary64 (if (or (<= a -1.8e-13) (not (<= a 195.0))) (+ (cbrt (* (/ 0.5 a) (* g -2.0))) (/ (pow h -2.0) g)) (- (cbrt g) (cbrt (/ g a)))))
double code(double g, double h, double a) {
double tmp;
if ((a <= -1.8e-13) || !(a <= 195.0)) {
tmp = cbrt(((0.5 / a) * (g * -2.0))) + (pow(h, -2.0) / g);
} else {
tmp = cbrt(g) - cbrt((g / a));
}
return tmp;
}
public static double code(double g, double h, double a) {
double tmp;
if ((a <= -1.8e-13) || !(a <= 195.0)) {
tmp = Math.cbrt(((0.5 / a) * (g * -2.0))) + (Math.pow(h, -2.0) / g);
} else {
tmp = Math.cbrt(g) - Math.cbrt((g / a));
}
return tmp;
}
function code(g, h, a) tmp = 0.0 if ((a <= -1.8e-13) || !(a <= 195.0)) tmp = Float64(cbrt(Float64(Float64(0.5 / a) * Float64(g * -2.0))) + Float64((h ^ -2.0) / g)); else tmp = Float64(cbrt(g) - cbrt(Float64(g / a))); end return tmp end
code[g_, h_, a_] := If[Or[LessEqual[a, -1.8e-13], N[Not[LessEqual[a, 195.0]], $MachinePrecision]], N[(N[Power[N[(N[(0.5 / a), $MachinePrecision] * N[(g * -2.0), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision] + N[(N[Power[h, -2.0], $MachinePrecision] / g), $MachinePrecision]), $MachinePrecision], N[(N[Power[g, 1/3], $MachinePrecision] - N[Power[N[(g / a), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a \leq -1.8 \cdot 10^{-13} \lor \neg \left(a \leq 195\right):\\
\;\;\;\;\sqrt[3]{\frac{0.5}{a} \cdot \left(g \cdot -2\right)} + \frac{{h}^{-2}}{g}\\
\mathbf{else}:\\
\;\;\;\;\sqrt[3]{g} - \sqrt[3]{\frac{g}{a}}\\
\end{array}
\end{array}
if a < -1.7999999999999999e-13 or 195 < a Initial program 47.0%
Simplified47.0%
Taylor expanded in g around -inf 26.2%
*-commutative26.2%
Simplified26.2%
Taylor expanded in g around -inf 85.4%
Taylor expanded in h around 0 85.4%
Simplified37.5%
if -1.7999999999999999e-13 < a < 195Initial program 47.5%
Simplified47.5%
Taylor expanded in g around -inf 27.0%
*-commutative27.0%
Simplified27.0%
Taylor expanded in g around inf 13.4%
Taylor expanded in g around -inf 13.4%
mul-1-neg13.4%
Simplified13.4%
Taylor expanded in g around 0 13.4%
Simplified54.7%
Final simplification45.5%
(FPCore (g h a) :precision binary64 (+ (cbrt (* (/ 0.5 a) (* g -2.0))) (cbrt (* (/ -0.5 a) (* 0.5 (* h (/ h g)))))))
double code(double g, double h, double a) {
return cbrt(((0.5 / a) * (g * -2.0))) + cbrt(((-0.5 / a) * (0.5 * (h * (h / g)))));
}
public static double code(double g, double h, double a) {
return Math.cbrt(((0.5 / a) * (g * -2.0))) + Math.cbrt(((-0.5 / a) * (0.5 * (h * (h / g)))));
}
function code(g, h, a) return Float64(cbrt(Float64(Float64(0.5 / a) * Float64(g * -2.0))) + cbrt(Float64(Float64(-0.5 / a) * Float64(0.5 * Float64(h * Float64(h / g)))))) end
code[g_, h_, a_] := N[(N[Power[N[(N[(0.5 / a), $MachinePrecision] * N[(g * -2.0), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision] + N[Power[N[(N[(-0.5 / a), $MachinePrecision] * N[(0.5 * N[(h * N[(h / g), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{\frac{0.5}{a} \cdot \left(g \cdot -2\right)} + \sqrt[3]{\frac{-0.5}{a} \cdot \left(0.5 \cdot \left(h \cdot \frac{h}{g}\right)\right)}
\end{array}
Initial program 47.2%
Simplified47.2%
Taylor expanded in g around -inf 26.5%
*-commutative26.5%
Simplified26.5%
Taylor expanded in g around -inf 74.1%
pow274.1%
*-un-lft-identity74.1%
times-frac77.5%
Applied egg-rr77.5%
Final simplification77.5%
(FPCore (g h a) :precision binary64 (let* ((t_0 (cbrt (/ g a)))) (if (or (<= a -1.0) (not (<= a 0.125))) (- (- t_0) t_0) (- (cbrt g) t_0))))
double code(double g, double h, double a) {
double t_0 = cbrt((g / a));
double tmp;
if ((a <= -1.0) || !(a <= 0.125)) {
tmp = -t_0 - t_0;
} else {
tmp = cbrt(g) - t_0;
}
return tmp;
}
public static double code(double g, double h, double a) {
double t_0 = Math.cbrt((g / a));
double tmp;
if ((a <= -1.0) || !(a <= 0.125)) {
tmp = -t_0 - t_0;
} else {
tmp = Math.cbrt(g) - t_0;
}
return tmp;
}
function code(g, h, a) t_0 = cbrt(Float64(g / a)) tmp = 0.0 if ((a <= -1.0) || !(a <= 0.125)) tmp = Float64(Float64(-t_0) - t_0); else tmp = Float64(cbrt(g) - t_0); end return tmp end
code[g_, h_, a_] := Block[{t$95$0 = N[Power[N[(g / a), $MachinePrecision], 1/3], $MachinePrecision]}, If[Or[LessEqual[a, -1.0], N[Not[LessEqual[a, 0.125]], $MachinePrecision]], N[((-t$95$0) - t$95$0), $MachinePrecision], N[(N[Power[g, 1/3], $MachinePrecision] - t$95$0), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt[3]{\frac{g}{a}}\\
\mathbf{if}\;a \leq -1 \lor \neg \left(a \leq 0.125\right):\\
\;\;\;\;\left(-t\_0\right) - t\_0\\
\mathbf{else}:\\
\;\;\;\;\sqrt[3]{g} - t\_0\\
\end{array}
\end{array}
if a < -1 or 0.125 < a Initial program 49.4%
Simplified49.4%
Taylor expanded in g around -inf 26.7%
*-commutative26.7%
Simplified26.7%
Taylor expanded in g around inf 17.6%
Taylor expanded in g around -inf 17.6%
mul-1-neg17.6%
Simplified17.6%
Taylor expanded in g around -inf 17.6%
mul-1-neg17.6%
Simplified17.6%
if -1 < a < 0.125Initial program 44.8%
Simplified44.8%
Taylor expanded in g around -inf 26.4%
*-commutative26.4%
Simplified26.4%
Taylor expanded in g around inf 13.4%
Taylor expanded in g around -inf 13.4%
mul-1-neg13.4%
Simplified13.4%
Taylor expanded in g around 0 13.4%
Simplified55.1%
Final simplification35.2%
(FPCore (g h a) :precision binary64 (+ (cbrt (* (/ 0.5 a) (* g -2.0))) (cbrt (* (/ -0.5 a) 0.0))))
double code(double g, double h, double a) {
return cbrt(((0.5 / a) * (g * -2.0))) + cbrt(((-0.5 / a) * 0.0));
}
public static double code(double g, double h, double a) {
return Math.cbrt(((0.5 / a) * (g * -2.0))) + Math.cbrt(((-0.5 / a) * 0.0));
}
function code(g, h, a) return Float64(cbrt(Float64(Float64(0.5 / a) * Float64(g * -2.0))) + cbrt(Float64(Float64(-0.5 / a) * 0.0))) end
code[g_, h_, a_] := N[(N[Power[N[(N[(0.5 / a), $MachinePrecision] * N[(g * -2.0), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision] + N[Power[N[(N[(-0.5 / a), $MachinePrecision] * 0.0), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{\frac{0.5}{a} \cdot \left(g \cdot -2\right)} + \sqrt[3]{\frac{-0.5}{a} \cdot 0}
\end{array}
Initial program 47.2%
Simplified47.2%
Taylor expanded in g around -inf 26.5%
*-commutative26.5%
Simplified26.5%
Taylor expanded in g around -inf 69.8%
associate-*r*69.8%
neg-mul-169.8%
Simplified69.8%
Taylor expanded in h around 0 76.2%
distribute-rgt1-in76.2%
metadata-eval76.2%
mul0-lft76.2%
Simplified76.2%
Final simplification76.2%
(FPCore (g h a) :precision binary64 (- (cbrt g) (cbrt (/ g a))))
double code(double g, double h, double a) {
return cbrt(g) - cbrt((g / a));
}
public static double code(double g, double h, double a) {
return Math.cbrt(g) - Math.cbrt((g / a));
}
function code(g, h, a) return Float64(cbrt(g) - cbrt(Float64(g / a))) end
code[g_, h_, a_] := N[(N[Power[g, 1/3], $MachinePrecision] - N[Power[N[(g / a), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{g} - \sqrt[3]{\frac{g}{a}}
\end{array}
Initial program 47.2%
Simplified47.2%
Taylor expanded in g around -inf 26.5%
*-commutative26.5%
Simplified26.5%
Taylor expanded in g around inf 15.6%
Taylor expanded in g around -inf 15.6%
mul-1-neg15.6%
Simplified15.6%
Taylor expanded in g around 0 15.6%
Simplified28.3%
Final simplification28.3%
herbie shell --seed 2024074
(FPCore (g h a)
:name "2-ancestry mixing, positive discriminant"
:precision binary64
(+ (cbrt (* (/ 1.0 (* 2.0 a)) (+ (- g) (sqrt (- (* g g) (* h h)))))) (cbrt (* (/ 1.0 (* 2.0 a)) (- (- g) (sqrt (- (* g g) (* h h))))))))