(FPCore (x) :precision binary64 (* 2.0 (atan (sqrt (/ (- 1.0 x) (+ 1.0 x))))))
(FPCore (x) :precision binary64 (* 2.0 (atan (pow (pow (exp (- (log1p (- x)) (log1p x))) 1.5) 0.3333333333333333))))
double code(double x) {
return 2.0 * atan(sqrt(((1.0 - x) / (1.0 + x))));
}
double code(double x) {
return 2.0 * atan(pow(pow(exp((log1p(-x) - log1p(x))), 1.5), 0.3333333333333333));
}
public static double code(double x) {
return 2.0 * Math.atan(Math.sqrt(((1.0 - x) / (1.0 + x))));
}
public static double code(double x) {
return 2.0 * Math.atan(Math.pow(Math.pow(Math.exp((Math.log1p(-x) - Math.log1p(x))), 1.5), 0.3333333333333333));
}
def code(x): return 2.0 * math.atan(math.sqrt(((1.0 - x) / (1.0 + x))))
def code(x): return 2.0 * math.atan(math.pow(math.pow(math.exp((math.log1p(-x) - math.log1p(x))), 1.5), 0.3333333333333333))
function code(x) return Float64(2.0 * atan(sqrt(Float64(Float64(1.0 - x) / Float64(1.0 + x))))) end
function code(x) return Float64(2.0 * atan(((exp(Float64(log1p(Float64(-x)) - log1p(x))) ^ 1.5) ^ 0.3333333333333333))) end
code[x_] := N[(2.0 * N[ArcTan[N[Sqrt[N[(N[(1.0 - x), $MachinePrecision] / N[(1.0 + x), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
code[x_] := N[(2.0 * N[ArcTan[N[Power[N[Power[N[Exp[N[(N[Log[1 + (-x)], $MachinePrecision] - N[Log[1 + x], $MachinePrecision]), $MachinePrecision]], $MachinePrecision], 1.5], $MachinePrecision], 0.3333333333333333], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
2 \cdot \tan^{-1} \left(\sqrt{\frac{1 - x}{1 + x}}\right)
2 \cdot \tan^{-1} \left({\left({\left(e^{\mathsf{log1p}\left(-x\right) - \mathsf{log1p}\left(x\right)}\right)}^{1.5}\right)}^{0.3333333333333333}\right)



Bits error versus x
Results
Initial program 0.0
Applied egg-rr0.0
Applied egg-rr0.0
Final simplification0.0
herbie shell --seed 2022150
(FPCore (x)
:name "arccos"
:precision binary64
(* 2.0 (atan (sqrt (/ (- 1.0 x) (+ 1.0 x))))))