(FPCore (x y z t) :precision binary64 (* (/ 1.0 3.0) (acos (* (/ (* 3.0 (/ x (* y 27.0))) (* z 2.0)) (sqrt t)))))
(FPCore (x y z t) :precision binary64 (* (/ 1.0 (* (cbrt 3.0) (cbrt 3.0))) (/ (acos (* (sqrt t) (* 0.05555555555555555 (/ x (* y z))))) (cbrt 3.0))))
double code(double x, double y, double z, double t) {
return (1.0 / 3.0) * acos((((3.0 * (x / (y * 27.0))) / (z * 2.0)) * sqrt(t)));
}
double code(double x, double y, double z, double t) {
return (1.0 / (cbrt(3.0) * cbrt(3.0))) * (acos((sqrt(t) * (0.05555555555555555 * (x / (y * z))))) / cbrt(3.0));
}
public static double code(double x, double y, double z, double t) {
return (1.0 / 3.0) * Math.acos((((3.0 * (x / (y * 27.0))) / (z * 2.0)) * Math.sqrt(t)));
}
public static double code(double x, double y, double z, double t) {
return (1.0 / (Math.cbrt(3.0) * Math.cbrt(3.0))) * (Math.acos((Math.sqrt(t) * (0.05555555555555555 * (x / (y * z))))) / Math.cbrt(3.0));
}
function code(x, y, z, t) return Float64(Float64(1.0 / 3.0) * acos(Float64(Float64(Float64(3.0 * Float64(x / Float64(y * 27.0))) / Float64(z * 2.0)) * sqrt(t)))) end
function code(x, y, z, t) return Float64(Float64(1.0 / Float64(cbrt(3.0) * cbrt(3.0))) * Float64(acos(Float64(sqrt(t) * Float64(0.05555555555555555 * Float64(x / Float64(y * z))))) / cbrt(3.0))) end
code[x_, y_, z_, t_] := N[(N[(1.0 / 3.0), $MachinePrecision] * N[ArcCos[N[(N[(N[(3.0 * N[(x / N[(y * 27.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(z * 2.0), $MachinePrecision]), $MachinePrecision] * N[Sqrt[t], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
code[x_, y_, z_, t_] := N[(N[(1.0 / N[(N[Power[3.0, 1/3], $MachinePrecision] * N[Power[3.0, 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[ArcCos[N[(N[Sqrt[t], $MachinePrecision] * N[(0.05555555555555555 * N[(x / N[(y * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[Power[3.0, 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\frac{1}{3} \cdot \cos^{-1} \left(\frac{3 \cdot \frac{x}{y \cdot 27}}{z \cdot 2} \cdot \sqrt{t}\right)
\frac{1}{\sqrt[3]{3} \cdot \sqrt[3]{3}} \cdot \frac{\cos^{-1} \left(\sqrt{t} \cdot \left(0.05555555555555555 \cdot \frac{x}{y \cdot z}\right)\right)}{\sqrt[3]{3}}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t
Results
| Original | 1.4 |
|---|---|
| Target | 1.2 |
| Herbie | 0.2 |
Initial program 1.4
Applied add-cube-cbrt_binary641.4
Applied *-un-lft-identity_binary641.4
Applied times-frac_binary640.4
Applied associate-*l*_binary640.4
Simplified0.4
Taylor expanded in x around 0 0.2
Final simplification0.2
herbie shell --seed 2022130
(FPCore (x y z t)
:name "Diagrams.Solve.Polynomial:cubForm from diagrams-solve-0.1, D"
:precision binary64
:herbie-target
(/ (acos (* (/ (/ x 27.0) (* y z)) (/ (sqrt t) (/ 2.0 3.0)))) 3.0)
(* (/ 1.0 3.0) (acos (* (/ (* 3.0 (/ x (* y 27.0))) (* z 2.0)) (sqrt t)))))