\[\sqrt[3]{x + 1} - \sqrt[3]{x}
\]
↓
\[\begin{array}{l}
t_0 := \sqrt[3]{x - -1}\\
\mathbf{if}\;t_0 \ne 0:\\
\;\;\;\;t_0 \cdot \frac{\frac{-1}{-1 - x}}{1 + \left(\sqrt[3]{x} \cdot \sqrt[3]{\frac{\frac{x}{x + 1}}{x + 1}} + \sqrt[3]{\frac{x}{1 + x}}\right)}\\
\mathbf{else}:\\
\;\;\;\;t_0 - \sqrt[3]{x}\\
\end{array}
\]
(FPCore (x) :precision binary64 (- (cbrt (+ x 1.0)) (cbrt x)))
↓
(FPCore (x)
:precision binary64
(let* ((t_0 (cbrt (- x -1.0))))
(if (!= t_0 0.0)
(*
t_0
(/
(/ -1.0 (- -1.0 x))
(+
1.0
(+
(* (cbrt x) (cbrt (/ (/ x (+ x 1.0)) (+ x 1.0))))
(cbrt (/ x (+ 1.0 x)))))))
(- t_0 (cbrt x)))))double code(double x) {
return cbrt((x + 1.0)) - cbrt(x);
}
↓
double code(double x) {
double t_0 = cbrt((x - -1.0));
double tmp;
if (t_0 != 0.0) {
tmp = t_0 * ((-1.0 / (-1.0 - x)) / (1.0 + ((cbrt(x) * cbrt(((x / (x + 1.0)) / (x + 1.0)))) + cbrt((x / (1.0 + x))))));
} else {
tmp = t_0 - cbrt(x);
}
return tmp;
}
public static double code(double x) {
return Math.cbrt((x + 1.0)) - Math.cbrt(x);
}
↓
public static double code(double x) {
double t_0 = Math.cbrt((x - -1.0));
double tmp;
if (t_0 != 0.0) {
tmp = t_0 * ((-1.0 / (-1.0 - x)) / (1.0 + ((Math.cbrt(x) * Math.cbrt(((x / (x + 1.0)) / (x + 1.0)))) + Math.cbrt((x / (1.0 + x))))));
} else {
tmp = t_0 - Math.cbrt(x);
}
return tmp;
}
function code(x)
return Float64(cbrt(Float64(x + 1.0)) - cbrt(x))
end
↓
function code(x)
t_0 = cbrt(Float64(x - -1.0))
tmp = 0.0
if (t_0 != 0.0)
tmp = Float64(t_0 * Float64(Float64(-1.0 / Float64(-1.0 - x)) / Float64(1.0 + Float64(Float64(cbrt(x) * cbrt(Float64(Float64(x / Float64(x + 1.0)) / Float64(x + 1.0)))) + cbrt(Float64(x / Float64(1.0 + x)))))));
else
tmp = Float64(t_0 - cbrt(x));
end
return tmp
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[(x - -1.0), $MachinePrecision], 1/3], $MachinePrecision]}, If[Unequal[t$95$0, 0.0], N[(t$95$0 * N[(N[(-1.0 / N[(-1.0 - x), $MachinePrecision]), $MachinePrecision] / N[(1.0 + N[(N[(N[Power[x, 1/3], $MachinePrecision] * N[Power[N[(N[(x / N[(x + 1.0), $MachinePrecision]), $MachinePrecision] / N[(x + 1.0), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision] + N[Power[N[(x / N[(1.0 + x), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(t$95$0 - N[Power[x, 1/3], $MachinePrecision]), $MachinePrecision]]]
\sqrt[3]{x + 1} - \sqrt[3]{x}
↓
\begin{array}{l}
t_0 := \sqrt[3]{x - -1}\\
\mathbf{if}\;t_0 \ne 0:\\
\;\;\;\;t_0 \cdot \frac{\frac{-1}{-1 - x}}{1 + \left(\sqrt[3]{x} \cdot \sqrt[3]{\frac{\frac{x}{x + 1}}{x + 1}} + \sqrt[3]{\frac{x}{1 + x}}\right)}\\
\mathbf{else}:\\
\;\;\;\;t_0 - \sqrt[3]{x}\\
\end{array}