
(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}
Herbie found 10 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
(let* ((t_0 (cbrt (pow x -1.0))) (t_1 (cbrt (- x -1.0))))
(if (<= x 1e+15)
(/ (- (- x -1.0) x) (+ (pow t_1 2.0) (* (cbrt x) (+ (cbrt x) t_1))))
(* (* t_0 t_0) 0.3333333333333333))))
double code(double x) {
double t_0 = cbrt(pow(x, -1.0));
double t_1 = cbrt((x - -1.0));
double tmp;
if (x <= 1e+15) {
tmp = ((x - -1.0) - x) / (pow(t_1, 2.0) + (cbrt(x) * (cbrt(x) + t_1)));
} else {
tmp = (t_0 * t_0) * 0.3333333333333333;
}
return tmp;
}
public static double code(double x) {
double t_0 = Math.cbrt(Math.pow(x, -1.0));
double t_1 = Math.cbrt((x - -1.0));
double tmp;
if (x <= 1e+15) {
tmp = ((x - -1.0) - x) / (Math.pow(t_1, 2.0) + (Math.cbrt(x) * (Math.cbrt(x) + t_1)));
} else {
tmp = (t_0 * t_0) * 0.3333333333333333;
}
return tmp;
}
function code(x) t_0 = cbrt((x ^ -1.0)) t_1 = cbrt(Float64(x - -1.0)) tmp = 0.0 if (x <= 1e+15) tmp = Float64(Float64(Float64(x - -1.0) - x) / Float64((t_1 ^ 2.0) + Float64(cbrt(x) * Float64(cbrt(x) + t_1)))); else tmp = Float64(Float64(t_0 * t_0) * 0.3333333333333333); end return tmp end
code[x_] := Block[{t$95$0 = N[Power[N[Power[x, -1.0], $MachinePrecision], 1/3], $MachinePrecision]}, Block[{t$95$1 = N[Power[N[(x - -1.0), $MachinePrecision], 1/3], $MachinePrecision]}, If[LessEqual[x, 1e+15], N[(N[(N[(x - -1.0), $MachinePrecision] - x), $MachinePrecision] / N[(N[Power[t$95$1, 2.0], $MachinePrecision] + N[(N[Power[x, 1/3], $MachinePrecision] * N[(N[Power[x, 1/3], $MachinePrecision] + t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(t$95$0 * t$95$0), $MachinePrecision] * 0.3333333333333333), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt[3]{{x}^{-1}}\\
t_1 := \sqrt[3]{x - -1}\\
\mathbf{if}\;x \leq 10^{+15}:\\
\;\;\;\;\frac{\left(x - -1\right) - x}{{t\_1}^{2} + \sqrt[3]{x} \cdot \left(\sqrt[3]{x} + t\_1\right)}\\
\mathbf{else}:\\
\;\;\;\;\left(t\_0 \cdot t\_0\right) \cdot 0.3333333333333333\\
\end{array}
\end{array}
if x < 1e15Initial program 57.3%
lift--.f64N/A
lift-+.f64N/A
lift-cbrt.f64N/A
lift-cbrt.f64N/A
flip3--N/A
lower-/.f64N/A
rem-cube-cbrtN/A
rem-cube-cbrtN/A
lower--.f64N/A
metadata-evalN/A
fp-cancel-sign-sub-invN/A
metadata-evalN/A
metadata-evalN/A
lower--.f64N/A
lower-+.f64N/A
Applied rewrites98.6%
if 1e15 < x Initial program 4.2%
Taylor expanded in x around inf
*-commutativeN/A
lower-*.f64N/A
lower-cbrt.f64N/A
pow-flipN/A
lower-pow.f64N/A
metadata-eval50.4
Applied rewrites50.4%
lift-pow.f64N/A
sqr-powN/A
metadata-evalN/A
inv-powN/A
metadata-evalN/A
inv-powN/A
lower-*.f64N/A
inv-powN/A
lower-pow.f64N/A
inv-powN/A
lower-pow.f6450.4
Applied rewrites50.4%
lift-cbrt.f64N/A
lift-*.f64N/A
lift-pow.f64N/A
lift-pow.f64N/A
inv-powN/A
inv-powN/A
cbrt-prodN/A
lower-*.f64N/A
lower-cbrt.f64N/A
inv-powN/A
lift-pow.f64N/A
lower-cbrt.f64N/A
inv-powN/A
lift-pow.f6498.1
Applied rewrites98.1%
(FPCore (x)
:precision binary64
(let* ((t_0 (cbrt (pow x -1.0))))
(if (<= x 1e+65)
(/
(fma
(cbrt (pow x -2.0))
0.06172839506172839
(fma
(cbrt (* (* x x) (* x x)))
0.3333333333333333
(* -0.1111111111111111 (cbrt x))))
(* x x))
(* (* t_0 t_0) 0.3333333333333333))))
double code(double x) {
double t_0 = cbrt(pow(x, -1.0));
double tmp;
if (x <= 1e+65) {
tmp = fma(cbrt(pow(x, -2.0)), 0.06172839506172839, fma(cbrt(((x * x) * (x * x))), 0.3333333333333333, (-0.1111111111111111 * cbrt(x)))) / (x * x);
} else {
tmp = (t_0 * t_0) * 0.3333333333333333;
}
return tmp;
}
function code(x) t_0 = cbrt((x ^ -1.0)) tmp = 0.0 if (x <= 1e+65) tmp = Float64(fma(cbrt((x ^ -2.0)), 0.06172839506172839, fma(cbrt(Float64(Float64(x * x) * Float64(x * x))), 0.3333333333333333, Float64(-0.1111111111111111 * cbrt(x)))) / Float64(x * x)); else tmp = Float64(Float64(t_0 * t_0) * 0.3333333333333333); end return tmp end
code[x_] := Block[{t$95$0 = N[Power[N[Power[x, -1.0], $MachinePrecision], 1/3], $MachinePrecision]}, If[LessEqual[x, 1e+65], N[(N[(N[Power[N[Power[x, -2.0], $MachinePrecision], 1/3], $MachinePrecision] * 0.06172839506172839 + N[(N[Power[N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision] * 0.3333333333333333 + N[(-0.1111111111111111 * N[Power[x, 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(x * x), $MachinePrecision]), $MachinePrecision], N[(N[(t$95$0 * t$95$0), $MachinePrecision] * 0.3333333333333333), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt[3]{{x}^{-1}}\\
\mathbf{if}\;x \leq 10^{+65}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\sqrt[3]{{x}^{-2}}, 0.06172839506172839, \mathsf{fma}\left(\sqrt[3]{\left(x \cdot x\right) \cdot \left(x \cdot x\right)}, 0.3333333333333333, -0.1111111111111111 \cdot \sqrt[3]{x}\right)\right)}{x \cdot x}\\
\mathbf{else}:\\
\;\;\;\;\left(t\_0 \cdot t\_0\right) \cdot 0.3333333333333333\\
\end{array}
\end{array}
if x < 9.9999999999999999e64Initial program 15.7%
Taylor expanded in x around inf
lower-/.f64N/A
Applied rewrites96.5%
lift-pow.f64N/A
sqr-powN/A
metadata-evalN/A
metadata-evalN/A
lower-*.f64N/A
pow2N/A
lift-*.f64N/A
pow2N/A
lift-*.f6496.6
Applied rewrites96.6%
if 9.9999999999999999e64 < x Initial program 4.4%
Taylor expanded in x around inf
*-commutativeN/A
lower-*.f64N/A
lower-cbrt.f64N/A
pow-flipN/A
lower-pow.f64N/A
metadata-eval40.3
Applied rewrites40.3%
lift-pow.f64N/A
sqr-powN/A
metadata-evalN/A
inv-powN/A
metadata-evalN/A
inv-powN/A
lower-*.f64N/A
inv-powN/A
lower-pow.f64N/A
inv-powN/A
lower-pow.f6440.3
Applied rewrites40.3%
lift-cbrt.f64N/A
lift-*.f64N/A
lift-pow.f64N/A
lift-pow.f64N/A
inv-powN/A
inv-powN/A
cbrt-prodN/A
lower-*.f64N/A
lower-cbrt.f64N/A
inv-powN/A
lift-pow.f64N/A
lower-cbrt.f64N/A
inv-powN/A
lift-pow.f6498.1
Applied rewrites98.1%
(FPCore (x) :precision binary64 (let* ((t_0 (cbrt (pow x -1.0)))) (* (* t_0 t_0) 0.3333333333333333)))
double code(double x) {
double t_0 = cbrt(pow(x, -1.0));
return (t_0 * t_0) * 0.3333333333333333;
}
public static double code(double x) {
double t_0 = Math.cbrt(Math.pow(x, -1.0));
return (t_0 * t_0) * 0.3333333333333333;
}
function code(x) t_0 = cbrt((x ^ -1.0)) return Float64(Float64(t_0 * t_0) * 0.3333333333333333) end
code[x_] := Block[{t$95$0 = N[Power[N[Power[x, -1.0], $MachinePrecision], 1/3], $MachinePrecision]}, N[(N[(t$95$0 * t$95$0), $MachinePrecision] * 0.3333333333333333), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt[3]{{x}^{-1}}\\
\left(t\_0 \cdot t\_0\right) \cdot 0.3333333333333333
\end{array}
\end{array}
Initial program 6.8%
Taylor expanded in x around inf
*-commutativeN/A
lower-*.f64N/A
lower-cbrt.f64N/A
pow-flipN/A
lower-pow.f64N/A
metadata-eval51.0
Applied rewrites51.0%
lift-pow.f64N/A
sqr-powN/A
metadata-evalN/A
inv-powN/A
metadata-evalN/A
inv-powN/A
lower-*.f64N/A
inv-powN/A
lower-pow.f64N/A
inv-powN/A
lower-pow.f6451.0
Applied rewrites51.0%
lift-cbrt.f64N/A
lift-*.f64N/A
lift-pow.f64N/A
lift-pow.f64N/A
inv-powN/A
inv-powN/A
cbrt-prodN/A
lower-*.f64N/A
lower-cbrt.f64N/A
inv-powN/A
lift-pow.f64N/A
lower-cbrt.f64N/A
inv-powN/A
lift-pow.f6496.3
Applied rewrites96.3%
(FPCore (x)
:precision binary64
(if (<= x 1.35e+154)
(fma
(cbrt (pow x -5.0))
-0.1111111111111111
(* (/ 1.0 (cbrt (* x x))) 0.3333333333333333))
(* (exp (* (* (log x) -2.0) 0.3333333333333333)) 0.3333333333333333)))
double code(double x) {
double tmp;
if (x <= 1.35e+154) {
tmp = fma(cbrt(pow(x, -5.0)), -0.1111111111111111, ((1.0 / cbrt((x * x))) * 0.3333333333333333));
} else {
tmp = exp(((log(x) * -2.0) * 0.3333333333333333)) * 0.3333333333333333;
}
return tmp;
}
function code(x) tmp = 0.0 if (x <= 1.35e+154) tmp = fma(cbrt((x ^ -5.0)), -0.1111111111111111, Float64(Float64(1.0 / cbrt(Float64(x * x))) * 0.3333333333333333)); else tmp = Float64(exp(Float64(Float64(log(x) * -2.0) * 0.3333333333333333)) * 0.3333333333333333); end return tmp end
code[x_] := If[LessEqual[x, 1.35e+154], N[(N[Power[N[Power[x, -5.0], $MachinePrecision], 1/3], $MachinePrecision] * -0.1111111111111111 + N[(N[(1.0 / N[Power[N[(x * x), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision] * 0.3333333333333333), $MachinePrecision]), $MachinePrecision], N[(N[Exp[N[(N[(N[Log[x], $MachinePrecision] * -2.0), $MachinePrecision] * 0.3333333333333333), $MachinePrecision]], $MachinePrecision] * 0.3333333333333333), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq 1.35 \cdot 10^{+154}:\\
\;\;\;\;\mathsf{fma}\left(\sqrt[3]{{x}^{-5}}, -0.1111111111111111, \frac{1}{\sqrt[3]{x \cdot x}} \cdot 0.3333333333333333\right)\\
\mathbf{else}:\\
\;\;\;\;e^{\left(\log x \cdot -2\right) \cdot 0.3333333333333333} \cdot 0.3333333333333333\\
\end{array}
\end{array}
if x < 1.35000000000000003e154Initial program 8.9%
Taylor expanded in x around inf
lower-/.f64N/A
Applied rewrites50.3%
Taylor expanded in x around inf
*-commutativeN/A
lower-fma.f64N/A
lower-cbrt.f64N/A
pow-flipN/A
lower-pow.f64N/A
metadata-evalN/A
pow-flipN/A
metadata-evalN/A
lift-pow.f64N/A
lift-cbrt.f64N/A
*-commutativeN/A
lift-*.f6497.1
Applied rewrites97.1%
lift-cbrt.f64N/A
lift-pow.f64N/A
metadata-evalN/A
pow-flipN/A
cbrt-divN/A
metadata-evalN/A
lower-/.f64N/A
lower-cbrt.f64N/A
pow2N/A
lower-*.f6497.3
Applied rewrites97.3%
if 1.35000000000000003e154 < x Initial program 4.7%
Taylor expanded in x around inf
*-commutativeN/A
lower-*.f64N/A
lower-cbrt.f64N/A
pow-flipN/A
lower-pow.f64N/A
metadata-eval7.6
Applied rewrites7.6%
lift-pow.f64N/A
sqr-powN/A
metadata-evalN/A
inv-powN/A
metadata-evalN/A
inv-powN/A
lower-*.f64N/A
inv-powN/A
lower-pow.f64N/A
inv-powN/A
lower-pow.f647.6
Applied rewrites7.6%
lift-cbrt.f64N/A
pow1/3N/A
exp-to-powN/A
lift-*.f64N/A
lift-pow.f64N/A
lift-pow.f64N/A
pow-prod-upN/A
metadata-evalN/A
lift-pow.f64N/A
lift-log.f64N/A
lift-*.f64N/A
lift-exp.f647.6
lift-log.f64N/A
lift-pow.f64N/A
log-pow-revN/A
*-commutativeN/A
lower-*.f64N/A
lower-log.f6489.5
Applied rewrites89.5%
(FPCore (x) :precision binary64 (if (<= x 1.35e+154) (* (/ 1.0 (cbrt (* x x))) 0.3333333333333333) (* (exp (* (* (log x) -2.0) 0.3333333333333333)) 0.3333333333333333)))
double code(double x) {
double tmp;
if (x <= 1.35e+154) {
tmp = (1.0 / cbrt((x * x))) * 0.3333333333333333;
} else {
tmp = exp(((log(x) * -2.0) * 0.3333333333333333)) * 0.3333333333333333;
}
return tmp;
}
public static double code(double x) {
double tmp;
if (x <= 1.35e+154) {
tmp = (1.0 / Math.cbrt((x * x))) * 0.3333333333333333;
} else {
tmp = Math.exp(((Math.log(x) * -2.0) * 0.3333333333333333)) * 0.3333333333333333;
}
return tmp;
}
function code(x) tmp = 0.0 if (x <= 1.35e+154) tmp = Float64(Float64(1.0 / cbrt(Float64(x * x))) * 0.3333333333333333); else tmp = Float64(exp(Float64(Float64(log(x) * -2.0) * 0.3333333333333333)) * 0.3333333333333333); end return tmp end
code[x_] := If[LessEqual[x, 1.35e+154], N[(N[(1.0 / N[Power[N[(x * x), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision] * 0.3333333333333333), $MachinePrecision], N[(N[Exp[N[(N[(N[Log[x], $MachinePrecision] * -2.0), $MachinePrecision] * 0.3333333333333333), $MachinePrecision]], $MachinePrecision] * 0.3333333333333333), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq 1.35 \cdot 10^{+154}:\\
\;\;\;\;\frac{1}{\sqrt[3]{x \cdot x}} \cdot 0.3333333333333333\\
\mathbf{else}:\\
\;\;\;\;e^{\left(\log x \cdot -2\right) \cdot 0.3333333333333333} \cdot 0.3333333333333333\\
\end{array}
\end{array}
if x < 1.35000000000000003e154Initial program 8.9%
Taylor expanded in x around inf
*-commutativeN/A
lower-*.f64N/A
lower-cbrt.f64N/A
pow-flipN/A
lower-pow.f64N/A
metadata-eval95.1
Applied rewrites95.1%
lift-cbrt.f64N/A
lift-pow.f64N/A
metadata-evalN/A
pow-flipN/A
cbrt-divN/A
metadata-evalN/A
lower-/.f64N/A
lower-cbrt.f64N/A
pow2N/A
lift-*.f6495.3
Applied rewrites95.3%
if 1.35000000000000003e154 < x Initial program 4.7%
Taylor expanded in x around inf
*-commutativeN/A
lower-*.f64N/A
lower-cbrt.f64N/A
pow-flipN/A
lower-pow.f64N/A
metadata-eval7.6
Applied rewrites7.6%
lift-pow.f64N/A
sqr-powN/A
metadata-evalN/A
inv-powN/A
metadata-evalN/A
inv-powN/A
lower-*.f64N/A
inv-powN/A
lower-pow.f64N/A
inv-powN/A
lower-pow.f647.6
Applied rewrites7.6%
lift-cbrt.f64N/A
pow1/3N/A
exp-to-powN/A
lift-*.f64N/A
lift-pow.f64N/A
lift-pow.f64N/A
pow-prod-upN/A
metadata-evalN/A
lift-pow.f64N/A
lift-log.f64N/A
lift-*.f64N/A
lift-exp.f647.6
lift-log.f64N/A
lift-pow.f64N/A
log-pow-revN/A
*-commutativeN/A
lower-*.f64N/A
lower-log.f6489.5
Applied rewrites89.5%
(FPCore (x) :precision binary64 (* (cbrt (pow x -2.0)) 0.3333333333333333))
double code(double x) {
return cbrt(pow(x, -2.0)) * 0.3333333333333333;
}
public static double code(double x) {
return Math.cbrt(Math.pow(x, -2.0)) * 0.3333333333333333;
}
function code(x) return Float64(cbrt((x ^ -2.0)) * 0.3333333333333333) end
code[x_] := N[(N[Power[N[Power[x, -2.0], $MachinePrecision], 1/3], $MachinePrecision] * 0.3333333333333333), $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{{x}^{-2}} \cdot 0.3333333333333333
\end{array}
Initial program 6.8%
Taylor expanded in x around inf
*-commutativeN/A
lower-*.f64N/A
lower-cbrt.f64N/A
pow-flipN/A
lower-pow.f64N/A
metadata-eval51.0
Applied rewrites51.0%
(FPCore (x) :precision binary64 (* (/ 1.0 (cbrt (* x x))) 0.3333333333333333))
double code(double x) {
return (1.0 / cbrt((x * x))) * 0.3333333333333333;
}
public static double code(double x) {
return (1.0 / Math.cbrt((x * x))) * 0.3333333333333333;
}
function code(x) return Float64(Float64(1.0 / cbrt(Float64(x * x))) * 0.3333333333333333) end
code[x_] := N[(N[(1.0 / N[Power[N[(x * x), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision] * 0.3333333333333333), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{\sqrt[3]{x \cdot x}} \cdot 0.3333333333333333
\end{array}
Initial program 6.8%
Taylor expanded in x around inf
*-commutativeN/A
lower-*.f64N/A
lower-cbrt.f64N/A
pow-flipN/A
lower-pow.f64N/A
metadata-eval51.0
Applied rewrites51.0%
lift-cbrt.f64N/A
lift-pow.f64N/A
metadata-evalN/A
pow-flipN/A
cbrt-divN/A
metadata-evalN/A
lower-/.f64N/A
lower-cbrt.f64N/A
pow2N/A
lift-*.f6449.6
Applied rewrites49.6%
(FPCore (x) :precision binary64 (* (cbrt (/ 1.0 (* x x))) 0.3333333333333333))
double code(double x) {
return cbrt((1.0 / (x * x))) * 0.3333333333333333;
}
public static double code(double x) {
return Math.cbrt((1.0 / (x * x))) * 0.3333333333333333;
}
function code(x) return Float64(cbrt(Float64(1.0 / Float64(x * x))) * 0.3333333333333333) end
code[x_] := N[(N[Power[N[(1.0 / N[(x * x), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision] * 0.3333333333333333), $MachinePrecision]
\begin{array}{l}
\\
\sqrt[3]{\frac{1}{x \cdot x}} \cdot 0.3333333333333333
\end{array}
Initial program 6.8%
Taylor expanded in x around inf
*-commutativeN/A
lower-*.f64N/A
lower-cbrt.f64N/A
pow-flipN/A
lower-pow.f64N/A
metadata-eval51.0
Applied rewrites51.0%
lift-pow.f64N/A
metadata-evalN/A
pow-flipN/A
lower-/.f64N/A
pow2N/A
lift-*.f6449.5
Applied rewrites49.5%
(FPCore (x) :precision binary64 (fma 0.3333333333333333 x (- (cbrt x))))
double code(double x) {
return fma(0.3333333333333333, x, -cbrt(x));
}
function code(x) return fma(0.3333333333333333, x, Float64(-cbrt(x))) end
code[x_] := N[(0.3333333333333333 * x + (-N[Power[x, 1/3], $MachinePrecision])), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(0.3333333333333333, x, -\sqrt[3]{x}\right)
\end{array}
Initial program 6.8%
Taylor expanded in x around 0
+-commutativeN/A
associate--l+N/A
lower-fma.f64N/A
lower--.f64N/A
lift-cbrt.f644.2
Applied rewrites4.2%
Taylor expanded in x around inf
mul-1-negN/A
lower-neg.f64N/A
lift-cbrt.f644.2
Applied rewrites4.2%
(FPCore (x) :precision binary64 (- 1.0 (cbrt x)))
double code(double x) {
return 1.0 - cbrt(x);
}
public static double code(double x) {
return 1.0 - Math.cbrt(x);
}
function code(x) return Float64(1.0 - cbrt(x)) end
code[x_] := N[(1.0 - N[Power[x, 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
1 - \sqrt[3]{x}
\end{array}
Initial program 6.8%
Taylor expanded in x around 0
Applied rewrites1.8%
(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 2025101
(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)))