
(FPCore (g h) :precision binary64 (* 2.0 (cos (+ (/ (* 2.0 PI) 3.0) (/ (acos (/ (- g) h)) 3.0)))))
double code(double g, double h) {
return 2.0 * cos((((2.0 * ((double) M_PI)) / 3.0) + (acos((-g / h)) / 3.0)));
}
public static double code(double g, double h) {
return 2.0 * Math.cos((((2.0 * Math.PI) / 3.0) + (Math.acos((-g / h)) / 3.0)));
}
def code(g, h): return 2.0 * math.cos((((2.0 * math.pi) / 3.0) + (math.acos((-g / h)) / 3.0)))
function code(g, h) return Float64(2.0 * cos(Float64(Float64(Float64(2.0 * pi) / 3.0) + Float64(acos(Float64(Float64(-g) / h)) / 3.0)))) end
function tmp = code(g, h) tmp = 2.0 * cos((((2.0 * pi) / 3.0) + (acos((-g / h)) / 3.0))); end
code[g_, h_] := N[(2.0 * N[Cos[N[(N[(N[(2.0 * Pi), $MachinePrecision] / 3.0), $MachinePrecision] + N[(N[ArcCos[N[((-g) / h), $MachinePrecision]], $MachinePrecision] / 3.0), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
2 \cdot \cos \left(\frac{2 \cdot \pi}{3} + \frac{\cos^{-1} \left(\frac{-g}{h}\right)}{3}\right)
Herbie found 3 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (g h) :precision binary64 (* 2.0 (cos (+ (/ (* 2.0 PI) 3.0) (/ (acos (/ (- g) h)) 3.0)))))
double code(double g, double h) {
return 2.0 * cos((((2.0 * ((double) M_PI)) / 3.0) + (acos((-g / h)) / 3.0)));
}
public static double code(double g, double h) {
return 2.0 * Math.cos((((2.0 * Math.PI) / 3.0) + (Math.acos((-g / h)) / 3.0)));
}
def code(g, h): return 2.0 * math.cos((((2.0 * math.pi) / 3.0) + (math.acos((-g / h)) / 3.0)))
function code(g, h) return Float64(2.0 * cos(Float64(Float64(Float64(2.0 * pi) / 3.0) + Float64(acos(Float64(Float64(-g) / h)) / 3.0)))) end
function tmp = code(g, h) tmp = 2.0 * cos((((2.0 * pi) / 3.0) + (acos((-g / h)) / 3.0))); end
code[g_, h_] := N[(2.0 * N[Cos[N[(N[(N[(2.0 * Pi), $MachinePrecision] / 3.0), $MachinePrecision] + N[(N[ArcCos[N[((-g) / h), $MachinePrecision]], $MachinePrecision] / 3.0), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
2 \cdot \cos \left(\frac{2 \cdot \pi}{3} + \frac{\cos^{-1} \left(\frac{-g}{h}\right)}{3}\right)
(FPCore (g h)
:precision binary64
(let* ((t_0
(fma
(acos (/ (- g) h))
0.3333333333333333
(* PI 0.6666666666666666))))
(* (pow (cos t_0) 3.0) (/ 2.0 (fma (cos (* t_0 -2.0)) 0.5 0.5)))))double code(double g, double h) {
double t_0 = fma(acos((-g / h)), 0.3333333333333333, (((double) M_PI) * 0.6666666666666666));
return pow(cos(t_0), 3.0) * (2.0 / fma(cos((t_0 * -2.0)), 0.5, 0.5));
}
function code(g, h) t_0 = fma(acos(Float64(Float64(-g) / h)), 0.3333333333333333, Float64(pi * 0.6666666666666666)) return Float64((cos(t_0) ^ 3.0) * Float64(2.0 / fma(cos(Float64(t_0 * -2.0)), 0.5, 0.5))) end
code[g_, h_] := Block[{t$95$0 = N[(N[ArcCos[N[((-g) / h), $MachinePrecision]], $MachinePrecision] * 0.3333333333333333 + N[(Pi * 0.6666666666666666), $MachinePrecision]), $MachinePrecision]}, N[(N[Power[N[Cos[t$95$0], $MachinePrecision], 3.0], $MachinePrecision] * N[(2.0 / N[(N[Cos[N[(t$95$0 * -2.0), $MachinePrecision]], $MachinePrecision] * 0.5 + 0.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
t_0 := \mathsf{fma}\left(\cos^{-1} \left(\frac{-g}{h}\right), 0.3333333333333333, \pi \cdot 0.6666666666666666\right)\\
{\cos t\_0}^{3} \cdot \frac{2}{\mathsf{fma}\left(\cos \left(t\_0 \cdot -2\right), 0.5, 0.5\right)}
\end{array}
Initial program 98.5%
lift-*.f64N/A
*-commutativeN/A
lower-*.f6498.5%
lift-+.f64N/A
+-commutativeN/A
lift-/.f64N/A
mult-flipN/A
*-commutativeN/A
lower-fma.f64N/A
metadata-eval98.4%
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-/l*N/A
lower-*.f64N/A
metadata-eval98.4%
Applied rewrites98.4%
Applied rewrites99.9%
Applied rewrites99.9%
(FPCore (g h)
:precision binary64
(let* ((t_0
(fma
0.3333333333333333
(acos (/ (- g) h))
(* 0.6666666666666666 PI))))
(* (/ (pow (cos t_0) 3.0) (- (cos (* t_0 2.0)) -1.0)) 4.0)))double code(double g, double h) {
double t_0 = fma(0.3333333333333333, acos((-g / h)), (0.6666666666666666 * ((double) M_PI)));
return (pow(cos(t_0), 3.0) / (cos((t_0 * 2.0)) - -1.0)) * 4.0;
}
function code(g, h) t_0 = fma(0.3333333333333333, acos(Float64(Float64(-g) / h)), Float64(0.6666666666666666 * pi)) return Float64(Float64((cos(t_0) ^ 3.0) / Float64(cos(Float64(t_0 * 2.0)) - -1.0)) * 4.0) end
code[g_, h_] := Block[{t$95$0 = N[(0.3333333333333333 * N[ArcCos[N[((-g) / h), $MachinePrecision]], $MachinePrecision] + N[(0.6666666666666666 * Pi), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[Power[N[Cos[t$95$0], $MachinePrecision], 3.0], $MachinePrecision] / N[(N[Cos[N[(t$95$0 * 2.0), $MachinePrecision]], $MachinePrecision] - -1.0), $MachinePrecision]), $MachinePrecision] * 4.0), $MachinePrecision]]
\begin{array}{l}
t_0 := \mathsf{fma}\left(0.3333333333333333, \cos^{-1} \left(\frac{-g}{h}\right), 0.6666666666666666 \cdot \pi\right)\\
\frac{{\cos t\_0}^{3}}{\cos \left(t\_0 \cdot 2\right) - -1} \cdot 4
\end{array}
Initial program 98.5%
lift-*.f64N/A
*-commutativeN/A
lower-*.f6498.5%
lift-+.f64N/A
+-commutativeN/A
lift-/.f64N/A
mult-flipN/A
*-commutativeN/A
lower-fma.f64N/A
metadata-eval98.4%
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-/l*N/A
lower-*.f64N/A
metadata-eval98.4%
Applied rewrites98.4%
Applied rewrites99.9%
Applied rewrites99.9%
lift-*.f64N/A
lift-/.f64N/A
associate-*r/N/A
lift-fma.f64N/A
distribute-lft1-inN/A
times-fracN/A
lower-*.f64N/A
Applied rewrites99.9%
(FPCore (g h) :precision binary64 (* (cos (fma -0.3333333333333333 (acos (/ (- g) h)) -2.0943951023931957)) 2.0))
double code(double g, double h) {
return cos(fma(-0.3333333333333333, acos((-g / h)), -2.0943951023931957)) * 2.0;
}
function code(g, h) return Float64(cos(fma(-0.3333333333333333, acos(Float64(Float64(-g) / h)), -2.0943951023931957)) * 2.0) end
code[g_, h_] := N[(N[Cos[N[(-0.3333333333333333 * N[ArcCos[N[((-g) / h), $MachinePrecision]], $MachinePrecision] + -2.0943951023931957), $MachinePrecision]], $MachinePrecision] * 2.0), $MachinePrecision]
\cos \left(\mathsf{fma}\left(-0.3333333333333333, \cos^{-1} \left(\frac{-g}{h}\right), -2.0943951023931957\right)\right) \cdot 2
Initial program 98.5%
Evaluated real constant98.4%
lift-*.f64N/A
*-commutativeN/A
lower-*.f6498.4%
Applied rewrites98.5%
herbie shell --seed 2025193
(FPCore (g h)
:name "2-ancestry mixing, negative discriminant"
:precision binary64
(* 2.0 (cos (+ (/ (* 2.0 PI) 3.0) (/ (acos (/ (- g) h)) 3.0)))))