\[\cos^{-1} \left(1 - x\right)
\]
↓
\[\begin{array}{l}
t_0 := \cos^{-1} \left(1 - x\right)\\
t_1 := {t_0}^{2}\\
{\left({\left(\sqrt[3]{\sqrt[3]{\sqrt[3]{\sqrt[3]{t_0}}}} \cdot \sqrt[3]{\sqrt[3]{\sqrt[3]{t_1 \cdot \sqrt[3]{t_1}}}}\right)}^{3}\right)}^{3}
\end{array}
\]
(FPCore (x) :precision binary64 (acos (- 1.0 x)))
↓
(FPCore (x)
:precision binary64
(let* ((t_0 (acos (- 1.0 x))) (t_1 (pow t_0 2.0)))
(pow
(pow
(*
(cbrt (cbrt (cbrt (cbrt t_0))))
(cbrt (cbrt (cbrt (* t_1 (cbrt t_1))))))
3.0)
3.0)))double code(double x) {
return acos((1.0 - x));
}
↓
double code(double x) {
double t_0 = acos((1.0 - x));
double t_1 = pow(t_0, 2.0);
return pow(pow((cbrt(cbrt(cbrt(cbrt(t_0)))) * cbrt(cbrt(cbrt((t_1 * cbrt(t_1)))))), 3.0), 3.0);
}
public static double code(double x) {
return Math.acos((1.0 - x));
}
↓
public static double code(double x) {
double t_0 = Math.acos((1.0 - x));
double t_1 = Math.pow(t_0, 2.0);
return Math.pow(Math.pow((Math.cbrt(Math.cbrt(Math.cbrt(Math.cbrt(t_0)))) * Math.cbrt(Math.cbrt(Math.cbrt((t_1 * Math.cbrt(t_1)))))), 3.0), 3.0);
}
function code(x)
return acos(Float64(1.0 - x))
end
↓
function code(x)
t_0 = acos(Float64(1.0 - x))
t_1 = t_0 ^ 2.0
return (Float64(cbrt(cbrt(cbrt(cbrt(t_0)))) * cbrt(cbrt(cbrt(Float64(t_1 * cbrt(t_1)))))) ^ 3.0) ^ 3.0
end
code[x_] := N[ArcCos[N[(1.0 - x), $MachinePrecision]], $MachinePrecision]
↓
code[x_] := Block[{t$95$0 = N[ArcCos[N[(1.0 - x), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[Power[t$95$0, 2.0], $MachinePrecision]}, N[Power[N[Power[N[(N[Power[N[Power[N[Power[N[Power[t$95$0, 1/3], $MachinePrecision], 1/3], $MachinePrecision], 1/3], $MachinePrecision], 1/3], $MachinePrecision] * N[Power[N[Power[N[Power[N[(t$95$1 * N[Power[t$95$1, 1/3], $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision], 1/3], $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision], 3.0], $MachinePrecision], 3.0], $MachinePrecision]]]
\cos^{-1} \left(1 - x\right)
↓
\begin{array}{l}
t_0 := \cos^{-1} \left(1 - x\right)\\
t_1 := {t_0}^{2}\\
{\left({\left(\sqrt[3]{\sqrt[3]{\sqrt[3]{\sqrt[3]{t_0}}}} \cdot \sqrt[3]{\sqrt[3]{\sqrt[3]{t_1 \cdot \sqrt[3]{t_1}}}}\right)}^{3}\right)}^{3}
\end{array}