
(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 (- 0.0 (* (* (cbrt -1.0) (/ (cbrt g) (cbrt a))) (* (pow 2.0 0.3333333333333333) (cbrt -0.5)))))
double code(double g, double h, double a) {
return 0.0 - ((cbrt(-1.0) * (cbrt(g) / cbrt(a))) * (pow(2.0, 0.3333333333333333) * cbrt(-0.5)));
}
public static double code(double g, double h, double a) {
return 0.0 - ((Math.cbrt(-1.0) * (Math.cbrt(g) / Math.cbrt(a))) * (Math.pow(2.0, 0.3333333333333333) * Math.cbrt(-0.5)));
}
function code(g, h, a) return Float64(0.0 - Float64(Float64(cbrt(-1.0) * Float64(cbrt(g) / cbrt(a))) * Float64((2.0 ^ 0.3333333333333333) * cbrt(-0.5)))) end
code[g_, h_, a_] := N[(0.0 - N[(N[(N[Power[-1.0, 1/3], $MachinePrecision] * N[(N[Power[g, 1/3], $MachinePrecision] / N[Power[a, 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[Power[2.0, 0.3333333333333333], $MachinePrecision] * N[Power[-0.5, 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
0 - \left(\sqrt[3]{-1} \cdot \frac{\sqrt[3]{g}}{\sqrt[3]{a}}\right) \cdot \left({2}^{0.3333333333333333} \cdot \sqrt[3]{-0.5}\right)
\end{array}
Initial program 45.1%
Simplified45.1%
Taylor expanded in h around 0 67.9%
Taylor expanded in g around -inf 75.1%
mul-1-neg75.1%
associate-*r*75.1%
distribute-rgt-neg-in75.1%
*-commutative75.1%
*-commutative75.1%
Simplified75.1%
Applied egg-rr95.4%
Applied egg-rr96.1%
Final simplification96.1%
(FPCore (g h a) :precision binary64 (* (/ (cbrt g) (cbrt a)) (* (cbrt -0.5) (cbrt 2.0))))
double code(double g, double h, double a) {
return (cbrt(g) / cbrt(a)) * (cbrt(-0.5) * cbrt(2.0));
}
public static double code(double g, double h, double a) {
return (Math.cbrt(g) / Math.cbrt(a)) * (Math.cbrt(-0.5) * Math.cbrt(2.0));
}
function code(g, h, a) return Float64(Float64(cbrt(g) / cbrt(a)) * Float64(cbrt(-0.5) * cbrt(2.0))) end
code[g_, h_, a_] := N[(N[(N[Power[g, 1/3], $MachinePrecision] / N[Power[a, 1/3], $MachinePrecision]), $MachinePrecision] * N[(N[Power[-0.5, 1/3], $MachinePrecision] * N[Power[2.0, 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\sqrt[3]{g}}{\sqrt[3]{a}} \cdot \left(\sqrt[3]{-0.5} \cdot \sqrt[3]{2}\right)
\end{array}
Initial program 45.1%
Simplified45.1%
Taylor expanded in h around 0 67.9%
Taylor expanded in g around -inf 75.1%
mul-1-neg75.1%
associate-*r*75.1%
distribute-rgt-neg-in75.1%
*-commutative75.1%
*-commutative75.1%
Simplified75.1%
Applied egg-rr95.4%
add-cube-cbrt95.4%
pow395.4%
*-un-lft-identity95.4%
metadata-eval95.4%
metadata-eval95.4%
cbrt-unprod95.4%
pow1/30.0%
pow1/30.0%
pow1/30.0%
add-cbrt-cube0.0%
pow1/395.4%
Applied egg-rr95.4%
rem-cube-cbrt95.4%
Simplified95.4%
Final simplification95.4%
(FPCore (g h a) :precision binary64 (+ (cbrt (/ g (- a))) (cbrt (* (- g g) (/ -0.5 a)))))
double code(double g, double h, double a) {
return cbrt((g / -a)) + cbrt(((g - g) * (-0.5 / a)));
}
public static double code(double g, double h, double a) {
return Math.cbrt((g / -a)) + Math.cbrt(((g - g) * (-0.5 / a)));
}
function code(g, h, a) return Float64(cbrt(Float64(g / Float64(-a))) + cbrt(Float64(Float64(g - g) * Float64(-0.5 / a)))) end
code[g_, h_, a_] := N[(N[Power[N[(g / (-a)), $MachinePrecision], 1/3], $MachinePrecision] + N[Power[N[(N[(g - g), $MachinePrecision] * N[(-0.5 / a), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{\frac{g}{-a}} + \sqrt[3]{\left(g - g\right) \cdot \frac{-0.5}{a}}
\end{array}
Initial program 45.1%
Simplified45.1%
Taylor expanded in g around -inf 28.4%
mul-1-neg28.4%
distribute-neg-frac228.4%
Simplified28.4%
Taylor expanded in g around -inf 75.7%
neg-mul-175.7%
Simplified75.7%
Final simplification75.7%
(FPCore (g h a) :precision binary64 (+ (cbrt (/ g (- a))) (cbrt (+ -1.0 (- 1.0 (/ g a))))))
double code(double g, double h, double a) {
return cbrt((g / -a)) + cbrt((-1.0 + (1.0 - (g / a))));
}
public static double code(double g, double h, double a) {
return Math.cbrt((g / -a)) + Math.cbrt((-1.0 + (1.0 - (g / a))));
}
function code(g, h, a) return Float64(cbrt(Float64(g / Float64(-a))) + cbrt(Float64(-1.0 + Float64(1.0 - Float64(g / a))))) end
code[g_, h_, a_] := N[(N[Power[N[(g / (-a)), $MachinePrecision], 1/3], $MachinePrecision] + N[Power[N[(-1.0 + N[(1.0 - N[(g / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{\frac{g}{-a}} + \sqrt[3]{-1 + \left(1 - \frac{g}{a}\right)}
\end{array}
Initial program 45.1%
Simplified45.1%
Taylor expanded in g around -inf 28.4%
mul-1-neg28.4%
distribute-neg-frac228.4%
Simplified28.4%
Taylor expanded in g around inf 15.5%
expm1-log1p-u10.5%
expm1-undefine31.1%
add-cube-cbrt31.1%
pow331.1%
pow331.1%
add-cube-cbrt31.1%
count-231.1%
Applied egg-rr31.1%
sub-neg31.1%
metadata-eval31.1%
+-commutative31.1%
log1p-undefine31.1%
rem-exp-log36.1%
associate-*r/36.1%
*-commutative36.1%
associate-*r*36.1%
metadata-eval36.1%
neg-mul-136.1%
distribute-neg-frac36.1%
unsub-neg36.1%
Simplified36.1%
(FPCore (g h a) :precision binary64 (* (cbrt (/ g a)) -2.0))
double code(double g, double h, double a) {
return cbrt((g / a)) * -2.0;
}
public static double code(double g, double h, double a) {
return Math.cbrt((g / a)) * -2.0;
}
function code(g, h, a) return Float64(cbrt(Float64(g / a)) * -2.0) end
code[g_, h_, a_] := N[(N[Power[N[(g / a), $MachinePrecision], 1/3], $MachinePrecision] * -2.0), $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{\frac{g}{a}} \cdot -2
\end{array}
Initial program 45.1%
Simplified45.1%
Taylor expanded in g around -inf 28.4%
mul-1-neg28.4%
distribute-neg-frac228.4%
Simplified28.4%
Taylor expanded in g around inf 15.5%
Taylor expanded in g around -inf 15.5%
*-commutative15.5%
Simplified15.5%
(FPCore (g h a) :precision binary64 (cbrt (* a (- g))))
double code(double g, double h, double a) {
return cbrt((a * -g));
}
public static double code(double g, double h, double a) {
return Math.cbrt((a * -g));
}
function code(g, h, a) return cbrt(Float64(a * Float64(-g))) end
code[g_, h_, a_] := N[Power[N[(a * (-g)), $MachinePrecision], 1/3], $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{a \cdot \left(-g\right)}
\end{array}
Initial program 45.1%
Simplified45.1%
Taylor expanded in h around 0 67.9%
Taylor expanded in g around -inf 75.1%
mul-1-neg75.1%
associate-*r*75.1%
distribute-rgt-neg-in75.1%
*-commutative75.1%
*-commutative75.1%
Simplified75.1%
Applied egg-rr95.4%
Applied egg-rr5.9%
associate-*l*5.9%
*-commutative5.9%
neg-mul-15.9%
Simplified5.9%
(FPCore (g h a) :precision binary64 0.0)
double code(double g, double h, double a) {
return 0.0;
}
real(8) function code(g, h, a)
real(8), intent (in) :: g
real(8), intent (in) :: h
real(8), intent (in) :: a
code = 0.0d0
end function
public static double code(double g, double h, double a) {
return 0.0;
}
def code(g, h, a): return 0.0
function code(g, h, a) return 0.0 end
function tmp = code(g, h, a) tmp = 0.0; end
code[g_, h_, a_] := 0.0
\begin{array}{l}
\\
0
\end{array}
Initial program 45.1%
Simplified45.1%
Taylor expanded in g around -inf 28.4%
mul-1-neg28.4%
distribute-neg-frac228.4%
Simplified28.4%
Taylor expanded in g around inf 15.5%
flip-+1.4%
pow21.4%
pow21.4%
count-21.4%
count-21.4%
Applied egg-rr1.4%
div-sub1.4%
distribute-frac-neg21.4%
mul-1-neg1.4%
*-commutative1.4%
metadata-eval1.4%
associate-*l*1.4%
*-commutative1.4%
associate-*r/1.4%
associate-*l/1.4%
associate-*r/0.2%
+-inverses2.9%
Simplified2.9%
herbie shell --seed 2024117
(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))))))))