
(FPCore (x) :precision binary64 (* 2.0 (atan (sqrt (/ (- 1.0 x) (+ 1.0 x))))))
double code(double x) {
return 2.0 * atan(sqrt(((1.0 - x) / (1.0 + x))));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 2.0d0 * atan(sqrt(((1.0d0 - x) / (1.0d0 + x))))
end function
public static double code(double x) {
return 2.0 * Math.atan(Math.sqrt(((1.0 - x) / (1.0 + x))));
}
def code(x): return 2.0 * math.atan(math.sqrt(((1.0 - x) / (1.0 + x))))
function code(x) return Float64(2.0 * atan(sqrt(Float64(Float64(1.0 - x) / Float64(1.0 + x))))) end
function tmp = code(x) tmp = 2.0 * atan(sqrt(((1.0 - x) / (1.0 + x)))); 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]
\begin{array}{l}
\\
2 \cdot \tan^{-1} \left(\sqrt{\frac{1 - x}{1 + x}}\right)
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 11 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x) :precision binary64 (* 2.0 (atan (sqrt (/ (- 1.0 x) (+ 1.0 x))))))
double code(double x) {
return 2.0 * atan(sqrt(((1.0 - x) / (1.0 + x))));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 2.0d0 * atan(sqrt(((1.0d0 - x) / (1.0d0 + x))))
end function
public static double code(double x) {
return 2.0 * Math.atan(Math.sqrt(((1.0 - x) / (1.0 + x))));
}
def code(x): return 2.0 * math.atan(math.sqrt(((1.0 - x) / (1.0 + x))))
function code(x) return Float64(2.0 * atan(sqrt(Float64(Float64(1.0 - x) / Float64(1.0 + x))))) end
function tmp = code(x) tmp = 2.0 * atan(sqrt(((1.0 - x) / (1.0 + x)))); 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]
\begin{array}{l}
\\
2 \cdot \tan^{-1} \left(\sqrt{\frac{1 - x}{1 + x}}\right)
\end{array}
(FPCore (x) :precision binary64 (* 2.0 (atan (/ 1.0 (sqrt (/ (+ 1.0 x) (- 1.0 x)))))))
double code(double x) {
return 2.0 * atan((1.0 / sqrt(((1.0 + x) / (1.0 - x)))));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 2.0d0 * atan((1.0d0 / sqrt(((1.0d0 + x) / (1.0d0 - x)))))
end function
public static double code(double x) {
return 2.0 * Math.atan((1.0 / Math.sqrt(((1.0 + x) / (1.0 - x)))));
}
def code(x): return 2.0 * math.atan((1.0 / math.sqrt(((1.0 + x) / (1.0 - x)))))
function code(x) return Float64(2.0 * atan(Float64(1.0 / sqrt(Float64(Float64(1.0 + x) / Float64(1.0 - x)))))) end
function tmp = code(x) tmp = 2.0 * atan((1.0 / sqrt(((1.0 + x) / (1.0 - x))))); end
code[x_] := N[(2.0 * N[ArcTan[N[(1.0 / N[Sqrt[N[(N[(1.0 + x), $MachinePrecision] / N[(1.0 - x), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
2 \cdot \tan^{-1} \left(\frac{1}{\sqrt{\frac{1 + x}{1 - x}}}\right)
\end{array}
Initial program 100.0%
clear-num100.0%
sqrt-div100.0%
metadata-eval100.0%
Applied egg-rr100.0%
Final simplification100.0%
(FPCore (x) :precision binary64 (* 2.0 (atan (sqrt (/ (- 1.0 x) (+ 1.0 x))))))
double code(double x) {
return 2.0 * atan(sqrt(((1.0 - x) / (1.0 + x))));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 2.0d0 * atan(sqrt(((1.0d0 - x) / (1.0d0 + x))))
end function
public static double code(double x) {
return 2.0 * Math.atan(Math.sqrt(((1.0 - x) / (1.0 + x))));
}
def code(x): return 2.0 * math.atan(math.sqrt(((1.0 - x) / (1.0 + x))))
function code(x) return Float64(2.0 * atan(sqrt(Float64(Float64(1.0 - x) / Float64(1.0 + x))))) end
function tmp = code(x) tmp = 2.0 * atan(sqrt(((1.0 - x) / (1.0 + x)))); 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]
\begin{array}{l}
\\
2 \cdot \tan^{-1} \left(\sqrt{\frac{1 - x}{1 + x}}\right)
\end{array}
Initial program 100.0%
Final simplification100.0%
(FPCore (x)
:precision binary64
(*
2.0
(atan
(+
1.0
(* x (+ (* x (+ 0.5 (* x (- (* x (+ 0.375 (* x -0.375))) 0.5)))) -1.0))))))
double code(double x) {
return 2.0 * atan((1.0 + (x * ((x * (0.5 + (x * ((x * (0.375 + (x * -0.375))) - 0.5)))) + -1.0))));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 2.0d0 * atan((1.0d0 + (x * ((x * (0.5d0 + (x * ((x * (0.375d0 + (x * (-0.375d0)))) - 0.5d0)))) + (-1.0d0)))))
end function
public static double code(double x) {
return 2.0 * Math.atan((1.0 + (x * ((x * (0.5 + (x * ((x * (0.375 + (x * -0.375))) - 0.5)))) + -1.0))));
}
def code(x): return 2.0 * math.atan((1.0 + (x * ((x * (0.5 + (x * ((x * (0.375 + (x * -0.375))) - 0.5)))) + -1.0))))
function code(x) return Float64(2.0 * atan(Float64(1.0 + Float64(x * Float64(Float64(x * Float64(0.5 + Float64(x * Float64(Float64(x * Float64(0.375 + Float64(x * -0.375))) - 0.5)))) + -1.0))))) end
function tmp = code(x) tmp = 2.0 * atan((1.0 + (x * ((x * (0.5 + (x * ((x * (0.375 + (x * -0.375))) - 0.5)))) + -1.0)))); end
code[x_] := N[(2.0 * N[ArcTan[N[(1.0 + N[(x * N[(N[(x * N[(0.5 + N[(x * N[(N[(x * N[(0.375 + N[(x * -0.375), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - 0.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
2 \cdot \tan^{-1} \left(1 + x \cdot \left(x \cdot \left(0.5 + x \cdot \left(x \cdot \left(0.375 + x \cdot -0.375\right) - 0.5\right)\right) + -1\right)\right)
\end{array}
Initial program 100.0%
Taylor expanded in x around 0 99.9%
Final simplification99.9%
(FPCore (x) :precision binary64 (* 2.0 (atan (/ 1.0 (+ 1.0 (* x (+ 1.0 (* x (+ 0.5 (* x (+ 0.5 (* x 0.375))))))))))))
double code(double x) {
return 2.0 * atan((1.0 / (1.0 + (x * (1.0 + (x * (0.5 + (x * (0.5 + (x * 0.375))))))))));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 2.0d0 * atan((1.0d0 / (1.0d0 + (x * (1.0d0 + (x * (0.5d0 + (x * (0.5d0 + (x * 0.375d0))))))))))
end function
public static double code(double x) {
return 2.0 * Math.atan((1.0 / (1.0 + (x * (1.0 + (x * (0.5 + (x * (0.5 + (x * 0.375))))))))));
}
def code(x): return 2.0 * math.atan((1.0 / (1.0 + (x * (1.0 + (x * (0.5 + (x * (0.5 + (x * 0.375))))))))))
function code(x) return Float64(2.0 * atan(Float64(1.0 / Float64(1.0 + Float64(x * Float64(1.0 + Float64(x * Float64(0.5 + Float64(x * Float64(0.5 + Float64(x * 0.375))))))))))) end
function tmp = code(x) tmp = 2.0 * atan((1.0 / (1.0 + (x * (1.0 + (x * (0.5 + (x * (0.5 + (x * 0.375)))))))))); end
code[x_] := N[(2.0 * N[ArcTan[N[(1.0 / N[(1.0 + N[(x * N[(1.0 + N[(x * N[(0.5 + N[(x * N[(0.5 + N[(x * 0.375), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
2 \cdot \tan^{-1} \left(\frac{1}{1 + x \cdot \left(1 + x \cdot \left(0.5 + x \cdot \left(0.5 + x \cdot 0.375\right)\right)\right)}\right)
\end{array}
Initial program 100.0%
clear-num100.0%
sqrt-div100.0%
metadata-eval100.0%
Applied egg-rr100.0%
Taylor expanded in x around 0 99.8%
*-commutative99.8%
Simplified99.8%
Final simplification99.8%
(FPCore (x) :precision binary64 (* 2.0 (atan (+ 1.0 (* x (+ (* x (+ 0.5 (* x (- (* x 0.375) 0.5)))) -1.0))))))
double code(double x) {
return 2.0 * atan((1.0 + (x * ((x * (0.5 + (x * ((x * 0.375) - 0.5)))) + -1.0))));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 2.0d0 * atan((1.0d0 + (x * ((x * (0.5d0 + (x * ((x * 0.375d0) - 0.5d0)))) + (-1.0d0)))))
end function
public static double code(double x) {
return 2.0 * Math.atan((1.0 + (x * ((x * (0.5 + (x * ((x * 0.375) - 0.5)))) + -1.0))));
}
def code(x): return 2.0 * math.atan((1.0 + (x * ((x * (0.5 + (x * ((x * 0.375) - 0.5)))) + -1.0))))
function code(x) return Float64(2.0 * atan(Float64(1.0 + Float64(x * Float64(Float64(x * Float64(0.5 + Float64(x * Float64(Float64(x * 0.375) - 0.5)))) + -1.0))))) end
function tmp = code(x) tmp = 2.0 * atan((1.0 + (x * ((x * (0.5 + (x * ((x * 0.375) - 0.5)))) + -1.0)))); end
code[x_] := N[(2.0 * N[ArcTan[N[(1.0 + N[(x * N[(N[(x * N[(0.5 + N[(x * N[(N[(x * 0.375), $MachinePrecision] - 0.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
2 \cdot \tan^{-1} \left(1 + x \cdot \left(x \cdot \left(0.5 + x \cdot \left(x \cdot 0.375 - 0.5\right)\right) + -1\right)\right)
\end{array}
Initial program 100.0%
Taylor expanded in x around 0 99.8%
Final simplification99.8%
(FPCore (x) :precision binary64 (* 2.0 (atan (+ 1.0 (* x (+ (* x (+ 0.5 (* x -0.5))) -1.0))))))
double code(double x) {
return 2.0 * atan((1.0 + (x * ((x * (0.5 + (x * -0.5))) + -1.0))));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 2.0d0 * atan((1.0d0 + (x * ((x * (0.5d0 + (x * (-0.5d0)))) + (-1.0d0)))))
end function
public static double code(double x) {
return 2.0 * Math.atan((1.0 + (x * ((x * (0.5 + (x * -0.5))) + -1.0))));
}
def code(x): return 2.0 * math.atan((1.0 + (x * ((x * (0.5 + (x * -0.5))) + -1.0))))
function code(x) return Float64(2.0 * atan(Float64(1.0 + Float64(x * Float64(Float64(x * Float64(0.5 + Float64(x * -0.5))) + -1.0))))) end
function tmp = code(x) tmp = 2.0 * atan((1.0 + (x * ((x * (0.5 + (x * -0.5))) + -1.0)))); end
code[x_] := N[(2.0 * N[ArcTan[N[(1.0 + N[(x * N[(N[(x * N[(0.5 + N[(x * -0.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
2 \cdot \tan^{-1} \left(1 + x \cdot \left(x \cdot \left(0.5 + x \cdot -0.5\right) + -1\right)\right)
\end{array}
Initial program 100.0%
Taylor expanded in x around 0 99.8%
Final simplification99.8%
(FPCore (x) :precision binary64 (* 2.0 (atan (/ 1.0 (+ 1.0 (* x (+ 1.0 (* x 0.5))))))))
double code(double x) {
return 2.0 * atan((1.0 / (1.0 + (x * (1.0 + (x * 0.5))))));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 2.0d0 * atan((1.0d0 / (1.0d0 + (x * (1.0d0 + (x * 0.5d0))))))
end function
public static double code(double x) {
return 2.0 * Math.atan((1.0 / (1.0 + (x * (1.0 + (x * 0.5))))));
}
def code(x): return 2.0 * math.atan((1.0 / (1.0 + (x * (1.0 + (x * 0.5))))))
function code(x) return Float64(2.0 * atan(Float64(1.0 / Float64(1.0 + Float64(x * Float64(1.0 + Float64(x * 0.5))))))) end
function tmp = code(x) tmp = 2.0 * atan((1.0 / (1.0 + (x * (1.0 + (x * 0.5)))))); end
code[x_] := N[(2.0 * N[ArcTan[N[(1.0 / N[(1.0 + N[(x * N[(1.0 + N[(x * 0.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
2 \cdot \tan^{-1} \left(\frac{1}{1 + x \cdot \left(1 + x \cdot 0.5\right)}\right)
\end{array}
Initial program 100.0%
clear-num100.0%
sqrt-div100.0%
metadata-eval100.0%
Applied egg-rr100.0%
Taylor expanded in x around 0 99.6%
*-commutative99.6%
Simplified99.6%
Final simplification99.6%
(FPCore (x) :precision binary64 (* 2.0 (atan (+ 1.0 (* x (+ (* x 0.5) -1.0))))))
double code(double x) {
return 2.0 * atan((1.0 + (x * ((x * 0.5) + -1.0))));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 2.0d0 * atan((1.0d0 + (x * ((x * 0.5d0) + (-1.0d0)))))
end function
public static double code(double x) {
return 2.0 * Math.atan((1.0 + (x * ((x * 0.5) + -1.0))));
}
def code(x): return 2.0 * math.atan((1.0 + (x * ((x * 0.5) + -1.0))))
function code(x) return Float64(2.0 * atan(Float64(1.0 + Float64(x * Float64(Float64(x * 0.5) + -1.0))))) end
function tmp = code(x) tmp = 2.0 * atan((1.0 + (x * ((x * 0.5) + -1.0)))); end
code[x_] := N[(2.0 * N[ArcTan[N[(1.0 + N[(x * N[(N[(x * 0.5), $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
2 \cdot \tan^{-1} \left(1 + x \cdot \left(x \cdot 0.5 + -1\right)\right)
\end{array}
Initial program 100.0%
Taylor expanded in x around 0 99.6%
Final simplification99.6%
(FPCore (x) :precision binary64 (* 2.0 (atan (/ 1.0 (+ 1.0 x)))))
double code(double x) {
return 2.0 * atan((1.0 / (1.0 + x)));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 2.0d0 * atan((1.0d0 / (1.0d0 + x)))
end function
public static double code(double x) {
return 2.0 * Math.atan((1.0 / (1.0 + x)));
}
def code(x): return 2.0 * math.atan((1.0 / (1.0 + x)))
function code(x) return Float64(2.0 * atan(Float64(1.0 / Float64(1.0 + x)))) end
function tmp = code(x) tmp = 2.0 * atan((1.0 / (1.0 + x))); end
code[x_] := N[(2.0 * N[ArcTan[N[(1.0 / N[(1.0 + x), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
2 \cdot \tan^{-1} \left(\frac{1}{1 + x}\right)
\end{array}
Initial program 100.0%
clear-num100.0%
sqrt-div100.0%
metadata-eval100.0%
Applied egg-rr100.0%
Taylor expanded in x around 0 99.2%
Final simplification99.2%
(FPCore (x) :precision binary64 (* 2.0 (atan (- 1.0 x))))
double code(double x) {
return 2.0 * atan((1.0 - x));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 2.0d0 * atan((1.0d0 - x))
end function
public static double code(double x) {
return 2.0 * Math.atan((1.0 - x));
}
def code(x): return 2.0 * math.atan((1.0 - x))
function code(x) return Float64(2.0 * atan(Float64(1.0 - x))) end
function tmp = code(x) tmp = 2.0 * atan((1.0 - x)); end
code[x_] := N[(2.0 * N[ArcTan[N[(1.0 - x), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
2 \cdot \tan^{-1} \left(1 - x\right)
\end{array}
Initial program 100.0%
Taylor expanded in x around 0 99.2%
neg-mul-199.2%
sub-neg99.2%
Simplified99.2%
Final simplification99.2%
(FPCore (x) :precision binary64 (* 2.0 (atan 1.0)))
double code(double x) {
return 2.0 * atan(1.0);
}
real(8) function code(x)
real(8), intent (in) :: x
code = 2.0d0 * atan(1.0d0)
end function
public static double code(double x) {
return 2.0 * Math.atan(1.0);
}
def code(x): return 2.0 * math.atan(1.0)
function code(x) return Float64(2.0 * atan(1.0)) end
function tmp = code(x) tmp = 2.0 * atan(1.0); end
code[x_] := N[(2.0 * N[ArcTan[1.0], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
2 \cdot \tan^{-1} 1
\end{array}
Initial program 100.0%
clear-num100.0%
sqrt-div100.0%
metadata-eval100.0%
Applied egg-rr100.0%
Taylor expanded in x around 0 99.2%
Taylor expanded in x around 0 97.9%
Final simplification97.9%
herbie shell --seed 2024053
(FPCore (x)
:name "arccos"
:precision binary64
(* 2.0 (atan (sqrt (/ (- 1.0 x) (+ 1.0 x))))))