
(FPCore (x) :precision binary64 (- (/ PI 2.0) (* 2.0 (asin (sqrt (/ (- 1.0 x) 2.0))))))
double code(double x) {
return (((double) M_PI) / 2.0) - (2.0 * asin(sqrt(((1.0 - x) / 2.0))));
}
public static double code(double x) {
return (Math.PI / 2.0) - (2.0 * Math.asin(Math.sqrt(((1.0 - x) / 2.0))));
}
def code(x): return (math.pi / 2.0) - (2.0 * math.asin(math.sqrt(((1.0 - x) / 2.0))))
function code(x) return Float64(Float64(pi / 2.0) - Float64(2.0 * asin(sqrt(Float64(Float64(1.0 - x) / 2.0))))) end
function tmp = code(x) tmp = (pi / 2.0) - (2.0 * asin(sqrt(((1.0 - x) / 2.0)))); end
code[x_] := N[(N[(Pi / 2.0), $MachinePrecision] - N[(2.0 * N[ArcSin[N[Sqrt[N[(N[(1.0 - x), $MachinePrecision] / 2.0), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\pi}{2} - 2 \cdot \sin^{-1} \left(\sqrt{\frac{1 - x}{2}}\right)
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 3 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x) :precision binary64 (- (/ PI 2.0) (* 2.0 (asin (sqrt (/ (- 1.0 x) 2.0))))))
double code(double x) {
return (((double) M_PI) / 2.0) - (2.0 * asin(sqrt(((1.0 - x) / 2.0))));
}
public static double code(double x) {
return (Math.PI / 2.0) - (2.0 * Math.asin(Math.sqrt(((1.0 - x) / 2.0))));
}
def code(x): return (math.pi / 2.0) - (2.0 * math.asin(math.sqrt(((1.0 - x) / 2.0))))
function code(x) return Float64(Float64(pi / 2.0) - Float64(2.0 * asin(sqrt(Float64(Float64(1.0 - x) / 2.0))))) end
function tmp = code(x) tmp = (pi / 2.0) - (2.0 * asin(sqrt(((1.0 - x) / 2.0)))); end
code[x_] := N[(N[(Pi / 2.0), $MachinePrecision] - N[(2.0 * N[ArcSin[N[Sqrt[N[(N[(1.0 - x), $MachinePrecision] / 2.0), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\pi}{2} - 2 \cdot \sin^{-1} \left(\sqrt{\frac{1 - x}{2}}\right)
\end{array}
(FPCore (x)
:precision binary64
(let* ((t_0 (* 2.0 (acos (pow (+ 0.5 (/ x -2.0)) 0.5))))
(t_1 (+ t_0 (/ PI 2.0))))
(- (/ (pow t_0 2.0) t_1) (/ (/ PI (/ 4.0 PI)) t_1))))
double code(double x) {
double t_0 = 2.0 * acos(pow((0.5 + (x / -2.0)), 0.5));
double t_1 = t_0 + (((double) M_PI) / 2.0);
return (pow(t_0, 2.0) / t_1) - ((((double) M_PI) / (4.0 / ((double) M_PI))) / t_1);
}
public static double code(double x) {
double t_0 = 2.0 * Math.acos(Math.pow((0.5 + (x / -2.0)), 0.5));
double t_1 = t_0 + (Math.PI / 2.0);
return (Math.pow(t_0, 2.0) / t_1) - ((Math.PI / (4.0 / Math.PI)) / t_1);
}
def code(x): t_0 = 2.0 * math.acos(math.pow((0.5 + (x / -2.0)), 0.5)) t_1 = t_0 + (math.pi / 2.0) return (math.pow(t_0, 2.0) / t_1) - ((math.pi / (4.0 / math.pi)) / t_1)
function code(x) t_0 = Float64(2.0 * acos((Float64(0.5 + Float64(x / -2.0)) ^ 0.5))) t_1 = Float64(t_0 + Float64(pi / 2.0)) return Float64(Float64((t_0 ^ 2.0) / t_1) - Float64(Float64(pi / Float64(4.0 / pi)) / t_1)) end
function tmp = code(x) t_0 = 2.0 * acos(((0.5 + (x / -2.0)) ^ 0.5)); t_1 = t_0 + (pi / 2.0); tmp = ((t_0 ^ 2.0) / t_1) - ((pi / (4.0 / pi)) / t_1); end
code[x_] := Block[{t$95$0 = N[(2.0 * N[ArcCos[N[Power[N[(0.5 + N[(x / -2.0), $MachinePrecision]), $MachinePrecision], 0.5], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 + N[(Pi / 2.0), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[Power[t$95$0, 2.0], $MachinePrecision] / t$95$1), $MachinePrecision] - N[(N[(Pi / N[(4.0 / Pi), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 2 \cdot \cos^{-1} \left({\left(0.5 + \frac{x}{-2}\right)}^{0.5}\right)\\
t_1 := t\_0 + \frac{\pi}{2}\\
\frac{{t\_0}^{2}}{t\_1} - \frac{\frac{\pi}{\frac{4}{\pi}}}{t\_1}
\end{array}
\end{array}
Initial program 6.4%
asin-acosN/A
sub-negN/A
distribute-rgt-inN/A
div-invN/A
metadata-evalN/A
associate-*l*N/A
metadata-evalN/A
*-rgt-identityN/A
+-lowering-+.f64N/A
PI-lowering-PI.f64N/A
*-lowering-*.f64N/A
Applied egg-rr8.1%
--lowering--.f64N/A
/-lowering-/.f64N/A
PI-lowering-PI.f64N/A
*-un-lft-identityN/A
fma-defineN/A
sub0-negN/A
distribute-lft-neg-outN/A
fmm-undefN/A
*-un-lft-identityN/A
--lowering--.f64N/A
PI-lowering-PI.f64N/A
*-lowering-*.f64N/A
Applied egg-rr8.1%
Taylor expanded in x around 0
sub-negN/A
+-commutativeN/A
metadata-evalN/A
cancel-sign-sub-invN/A
associate-+r+N/A
neg-mul-1N/A
distribute-rgt-outN/A
metadata-evalN/A
metadata-evalN/A
distribute-rgt-neg-inN/A
*-commutativeN/A
+-lowering-+.f64N/A
Simplified8.1%
Applied egg-rr8.1%
(FPCore (x) :precision binary64 (+ (* 2.0 (acos (sqrt (- 0.5 (* 0.5 x))))) (* PI -0.5)))
double code(double x) {
return (2.0 * acos(sqrt((0.5 - (0.5 * x))))) + (((double) M_PI) * -0.5);
}
public static double code(double x) {
return (2.0 * Math.acos(Math.sqrt((0.5 - (0.5 * x))))) + (Math.PI * -0.5);
}
def code(x): return (2.0 * math.acos(math.sqrt((0.5 - (0.5 * x))))) + (math.pi * -0.5)
function code(x) return Float64(Float64(2.0 * acos(sqrt(Float64(0.5 - Float64(0.5 * x))))) + Float64(pi * -0.5)) end
function tmp = code(x) tmp = (2.0 * acos(sqrt((0.5 - (0.5 * x))))) + (pi * -0.5); end
code[x_] := N[(N[(2.0 * N[ArcCos[N[Sqrt[N[(0.5 - N[(0.5 * x), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]), $MachinePrecision] + N[(Pi * -0.5), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
2 \cdot \cos^{-1} \left(\sqrt{0.5 - 0.5 \cdot x}\right) + \pi \cdot -0.5
\end{array}
Initial program 6.4%
asin-acosN/A
sub-negN/A
distribute-rgt-inN/A
div-invN/A
metadata-evalN/A
associate-*l*N/A
metadata-evalN/A
*-rgt-identityN/A
+-lowering-+.f64N/A
PI-lowering-PI.f64N/A
*-lowering-*.f64N/A
Applied egg-rr8.1%
--lowering--.f64N/A
/-lowering-/.f64N/A
PI-lowering-PI.f64N/A
*-un-lft-identityN/A
fma-defineN/A
sub0-negN/A
distribute-lft-neg-outN/A
fmm-undefN/A
*-un-lft-identityN/A
--lowering--.f64N/A
PI-lowering-PI.f64N/A
*-lowering-*.f64N/A
Applied egg-rr8.1%
Taylor expanded in x around 0
sub-negN/A
+-commutativeN/A
metadata-evalN/A
cancel-sign-sub-invN/A
associate-+r+N/A
neg-mul-1N/A
distribute-rgt-outN/A
metadata-evalN/A
metadata-evalN/A
distribute-rgt-neg-inN/A
*-commutativeN/A
+-lowering-+.f64N/A
Simplified8.1%
(FPCore (x) :precision binary64 (+ (* PI -0.5) (* 2.0 (acos (sqrt 0.5)))))
double code(double x) {
return (((double) M_PI) * -0.5) + (2.0 * acos(sqrt(0.5)));
}
public static double code(double x) {
return (Math.PI * -0.5) + (2.0 * Math.acos(Math.sqrt(0.5)));
}
def code(x): return (math.pi * -0.5) + (2.0 * math.acos(math.sqrt(0.5)))
function code(x) return Float64(Float64(pi * -0.5) + Float64(2.0 * acos(sqrt(0.5)))) end
function tmp = code(x) tmp = (pi * -0.5) + (2.0 * acos(sqrt(0.5))); end
code[x_] := N[(N[(Pi * -0.5), $MachinePrecision] + N[(2.0 * N[ArcCos[N[Sqrt[0.5], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\pi \cdot -0.5 + 2 \cdot \cos^{-1} \left(\sqrt{0.5}\right)
\end{array}
Initial program 6.4%
asin-acosN/A
sub-negN/A
distribute-rgt-inN/A
div-invN/A
metadata-evalN/A
associate-*l*N/A
metadata-evalN/A
*-rgt-identityN/A
+-lowering-+.f64N/A
PI-lowering-PI.f64N/A
*-lowering-*.f64N/A
Applied egg-rr8.1%
--lowering--.f64N/A
/-lowering-/.f64N/A
PI-lowering-PI.f64N/A
*-un-lft-identityN/A
fma-defineN/A
sub0-negN/A
distribute-lft-neg-outN/A
fmm-undefN/A
*-un-lft-identityN/A
--lowering--.f64N/A
PI-lowering-PI.f64N/A
*-lowering-*.f64N/A
Applied egg-rr8.1%
Taylor expanded in x around 0
sub-negN/A
+-commutativeN/A
metadata-evalN/A
cancel-sign-sub-invN/A
associate-+r+N/A
neg-mul-1N/A
distribute-rgt-outN/A
metadata-evalN/A
metadata-evalN/A
distribute-rgt-neg-inN/A
*-commutativeN/A
+-lowering-+.f64N/A
Simplified8.1%
Taylor expanded in x around 0
sqrt-lowering-sqrt.f645.5%
Simplified5.5%
Final simplification5.5%
(FPCore (x) :precision binary64 (asin x))
double code(double x) {
return asin(x);
}
real(8) function code(x)
real(8), intent (in) :: x
code = asin(x)
end function
public static double code(double x) {
return Math.asin(x);
}
def code(x): return math.asin(x)
function code(x) return asin(x) end
function tmp = code(x) tmp = asin(x); end
code[x_] := N[ArcSin[x], $MachinePrecision]
\begin{array}{l}
\\
\sin^{-1} x
\end{array}
herbie shell --seed 2024160
(FPCore (x)
:name "Ian Simplification"
:precision binary64
:alt
(! :herbie-platform default (asin x))
(- (/ PI 2.0) (* 2.0 (asin (sqrt (/ (- 1.0 x) 2.0))))))