
(FPCore (x) :precision binary64 (- (cbrt (+ x 1.0)) (cbrt x)))
double code(double x) {
return cbrt((x + 1.0)) - cbrt(x);
}
public static double code(double x) {
return Math.cbrt((x + 1.0)) - Math.cbrt(x);
}
function code(x) return Float64(cbrt(Float64(x + 1.0)) - cbrt(x)) end
code[x_] := N[(N[Power[N[(x + 1.0), $MachinePrecision], 1/3], $MachinePrecision] - N[Power[x, 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{x + 1} - \sqrt[3]{x}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 5 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x) :precision binary64 (- (cbrt (+ x 1.0)) (cbrt x)))
double code(double x) {
return cbrt((x + 1.0)) - cbrt(x);
}
public static double code(double x) {
return Math.cbrt((x + 1.0)) - Math.cbrt(x);
}
function code(x) return Float64(cbrt(Float64(x + 1.0)) - cbrt(x)) end
code[x_] := N[(N[Power[N[(x + 1.0), $MachinePrecision], 1/3], $MachinePrecision] - N[Power[x, 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{x + 1} - \sqrt[3]{x}
\end{array}
(FPCore (x) :precision binary64 (/ (- -0.3333333333333333) (/ x (cbrt x))))
double code(double x) {
return -(-0.3333333333333333) / (x / cbrt(x));
}
public static double code(double x) {
return -(-0.3333333333333333) / (x / Math.cbrt(x));
}
function code(x) return Float64(Float64(-(-0.3333333333333333)) / Float64(x / cbrt(x))) end
code[x_] := N[((--0.3333333333333333) / N[(x / N[Power[x, 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{--0.3333333333333333}{\frac{x}{\sqrt[3]{x}}}
\end{array}
Initial program 6.3%
Taylor expanded in x around inf
*-commutativeN/A
lower-*.f64N/A
metadata-evalN/A
associate-*r/N/A
lower-cbrt.f64N/A
unpow2N/A
associate-/r*N/A
associate-*r/N/A
lower-/.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6449.9
Applied rewrites49.9%
Applied rewrites89.2%
Applied rewrites97.7%
Final simplification97.7%
(FPCore (x) :precision binary64 (* (cbrt (- x)) (/ 0.3333333333333333 (- x))))
double code(double x) {
return cbrt(-x) * (0.3333333333333333 / -x);
}
public static double code(double x) {
return Math.cbrt(-x) * (0.3333333333333333 / -x);
}
function code(x) return Float64(cbrt(Float64(-x)) * Float64(0.3333333333333333 / Float64(-x))) end
code[x_] := N[(N[Power[(-x), 1/3], $MachinePrecision] * N[(0.3333333333333333 / (-x)), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{-x} \cdot \frac{0.3333333333333333}{-x}
\end{array}
Initial program 6.3%
Taylor expanded in x around inf
*-commutativeN/A
lower-*.f64N/A
metadata-evalN/A
associate-*r/N/A
lower-cbrt.f64N/A
unpow2N/A
associate-/r*N/A
associate-*r/N/A
lower-/.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6449.9
Applied rewrites49.9%
Applied rewrites97.0%
Applied rewrites97.0%
Applied rewrites97.6%
Final simplification97.6%
(FPCore (x) :precision binary64 (* (/ (cbrt x) x) 0.3333333333333333))
double code(double x) {
return (cbrt(x) / x) * 0.3333333333333333;
}
public static double code(double x) {
return (Math.cbrt(x) / x) * 0.3333333333333333;
}
function code(x) return Float64(Float64(cbrt(x) / x) * 0.3333333333333333) end
code[x_] := N[(N[(N[Power[x, 1/3], $MachinePrecision] / x), $MachinePrecision] * 0.3333333333333333), $MachinePrecision]
\begin{array}{l}
\\
\frac{\sqrt[3]{x}}{x} \cdot 0.3333333333333333
\end{array}
Initial program 6.3%
Taylor expanded in x around inf
*-commutativeN/A
lower-*.f64N/A
metadata-evalN/A
associate-*r/N/A
lower-cbrt.f64N/A
unpow2N/A
associate-/r*N/A
associate-*r/N/A
lower-/.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6449.9
Applied rewrites49.9%
Applied rewrites89.2%
Applied rewrites97.6%
(FPCore (x) :precision binary64 (* (pow x -0.6666666666666666) 0.3333333333333333))
double code(double x) {
return pow(x, -0.6666666666666666) * 0.3333333333333333;
}
real(8) function code(x)
real(8), intent (in) :: x
code = (x ** (-0.6666666666666666d0)) * 0.3333333333333333d0
end function
public static double code(double x) {
return Math.pow(x, -0.6666666666666666) * 0.3333333333333333;
}
def code(x): return math.pow(x, -0.6666666666666666) * 0.3333333333333333
function code(x) return Float64((x ^ -0.6666666666666666) * 0.3333333333333333) end
function tmp = code(x) tmp = (x ^ -0.6666666666666666) * 0.3333333333333333; end
code[x_] := N[(N[Power[x, -0.6666666666666666], $MachinePrecision] * 0.3333333333333333), $MachinePrecision]
\begin{array}{l}
\\
{x}^{-0.6666666666666666} \cdot 0.3333333333333333
\end{array}
Initial program 6.3%
Taylor expanded in x around inf
*-commutativeN/A
lower-*.f64N/A
metadata-evalN/A
associate-*r/N/A
lower-cbrt.f64N/A
unpow2N/A
associate-/r*N/A
associate-*r/N/A
lower-/.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6449.9
Applied rewrites49.9%
Applied rewrites89.2%
(FPCore (x) :precision binary64 0.0)
double code(double x) {
return 0.0;
}
real(8) function code(x)
real(8), intent (in) :: x
code = 0.0d0
end function
public static double code(double x) {
return 0.0;
}
def code(x): return 0.0
function code(x) return 0.0 end
function tmp = code(x) tmp = 0.0; end
code[x_] := 0.0
\begin{array}{l}
\\
0
\end{array}
Initial program 6.3%
rem-cube-cbrtN/A
pow1/3N/A
pow-to-expN/A
pow-expN/A
*-commutativeN/A
exp-prodN/A
lower-pow.f64N/A
lower-exp.f64N/A
rem-cube-cbrtN/A
lift-cbrt.f64N/A
pow-to-expN/A
rem-log-expN/A
lower-*.f64N/A
rem-log-expN/A
pow-to-expN/A
lift-cbrt.f64N/A
rem-cube-cbrtN/A
lift-+.f64N/A
+-commutativeN/A
lower-log1p.f644.5
Applied rewrites4.5%
Taylor expanded in x around inf
Applied rewrites4.2%
(FPCore (x) :precision binary64 (let* ((t_0 (cbrt (+ x 1.0)))) (/ 1.0 (+ (+ (* t_0 t_0) (* (cbrt x) t_0)) (* (cbrt x) (cbrt x))))))
double code(double x) {
double t_0 = cbrt((x + 1.0));
return 1.0 / (((t_0 * t_0) + (cbrt(x) * t_0)) + (cbrt(x) * cbrt(x)));
}
public static double code(double x) {
double t_0 = Math.cbrt((x + 1.0));
return 1.0 / (((t_0 * t_0) + (Math.cbrt(x) * t_0)) + (Math.cbrt(x) * Math.cbrt(x)));
}
function code(x) t_0 = cbrt(Float64(x + 1.0)) return Float64(1.0 / Float64(Float64(Float64(t_0 * t_0) + Float64(cbrt(x) * t_0)) + Float64(cbrt(x) * cbrt(x)))) end
code[x_] := Block[{t$95$0 = N[Power[N[(x + 1.0), $MachinePrecision], 1/3], $MachinePrecision]}, N[(1.0 / N[(N[(N[(t$95$0 * t$95$0), $MachinePrecision] + N[(N[Power[x, 1/3], $MachinePrecision] * t$95$0), $MachinePrecision]), $MachinePrecision] + N[(N[Power[x, 1/3], $MachinePrecision] * N[Power[x, 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt[3]{x + 1}\\
\frac{1}{\left(t\_0 \cdot t\_0 + \sqrt[3]{x} \cdot t\_0\right) + \sqrt[3]{x} \cdot \sqrt[3]{x}}
\end{array}
\end{array}
herbie shell --seed 2024331
(FPCore (x)
:name "2cbrt (problem 3.3.4)"
:precision binary64
:pre (and (> x 1.0) (< x 1e+308))
:alt
(! :herbie-platform default (/ 1 (+ (* (cbrt (+ x 1)) (cbrt (+ x 1))) (* (cbrt x) (cbrt (+ x 1))) (* (cbrt x) (cbrt x)))))
(- (cbrt (+ x 1.0)) (cbrt x)))