\[\sqrt[3]{x + 1} - \sqrt[3]{x}
\]
↓
\[\begin{array}{l}
t_0 := \sqrt[3]{1 + x}\\
\frac{1}{{t_0}^{2} + \mathsf{fma}\left(t_0, \sqrt[3]{x}, {\left(\sqrt[3]{x}\right)}^{2}\right)}
\end{array}
\]
(FPCore (x) :precision binary64 (- (cbrt (+ x 1.0)) (cbrt x)))
↓
(FPCore (x)
:precision binary64
(let* ((t_0 (cbrt (+ 1.0 x))))
(/ 1.0 (+ (pow t_0 2.0) (fma t_0 (cbrt x) (pow (cbrt x) 2.0))))))
double code(double x) {
return cbrt((x + 1.0)) - cbrt(x);
}
↓
double code(double x) {
double t_0 = cbrt((1.0 + x));
return 1.0 / (pow(t_0, 2.0) + fma(t_0, cbrt(x), pow(cbrt(x), 2.0)));
}
function code(x)
return Float64(cbrt(Float64(x + 1.0)) - cbrt(x))
end
↓
function code(x)
t_0 = cbrt(Float64(1.0 + x))
return Float64(1.0 / Float64((t_0 ^ 2.0) + fma(t_0, cbrt(x), (cbrt(x) ^ 2.0))))
end
code[x_] := N[(N[Power[N[(x + 1.0), $MachinePrecision], 1/3], $MachinePrecision] - N[Power[x, 1/3], $MachinePrecision]), $MachinePrecision]
↓
code[x_] := Block[{t$95$0 = N[Power[N[(1.0 + x), $MachinePrecision], 1/3], $MachinePrecision]}, N[(1.0 / N[(N[Power[t$95$0, 2.0], $MachinePrecision] + N[(t$95$0 * N[Power[x, 1/3], $MachinePrecision] + N[Power[N[Power[x, 1/3], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\sqrt[3]{x + 1} - \sqrt[3]{x}
↓
\begin{array}{l}
t_0 := \sqrt[3]{1 + x}\\
\frac{1}{{t_0}^{2} + \mathsf{fma}\left(t_0, \sqrt[3]{x}, {\left(\sqrt[3]{x}\right)}^{2}\right)}
\end{array}