
(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}
Herbie found 6 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 (sqrt (* 0.5 (- 1.0 x)))) (t_1 (asin t_0)))
(/
(- (pow (* PI 0.5) 3.0) (pow (* (- (/ PI 2.0) (acos t_0)) 2.0) 3.0))
(fma (* PI PI) 0.25 (fma (* t_1 t_1) 4.0 (* (* PI 0.5) (* t_1 2.0)))))))
double code(double x) {
double t_0 = sqrt((0.5 * (1.0 - x)));
double t_1 = asin(t_0);
return (pow((((double) M_PI) * 0.5), 3.0) - pow((((((double) M_PI) / 2.0) - acos(t_0)) * 2.0), 3.0)) / fma((((double) M_PI) * ((double) M_PI)), 0.25, fma((t_1 * t_1), 4.0, ((((double) M_PI) * 0.5) * (t_1 * 2.0))));
}
function code(x) t_0 = sqrt(Float64(0.5 * Float64(1.0 - x))) t_1 = asin(t_0) return Float64(Float64((Float64(pi * 0.5) ^ 3.0) - (Float64(Float64(Float64(pi / 2.0) - acos(t_0)) * 2.0) ^ 3.0)) / fma(Float64(pi * pi), 0.25, fma(Float64(t_1 * t_1), 4.0, Float64(Float64(pi * 0.5) * Float64(t_1 * 2.0))))) end
code[x_] := Block[{t$95$0 = N[Sqrt[N[(0.5 * N[(1.0 - x), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[ArcSin[t$95$0], $MachinePrecision]}, N[(N[(N[Power[N[(Pi * 0.5), $MachinePrecision], 3.0], $MachinePrecision] - N[Power[N[(N[(N[(Pi / 2.0), $MachinePrecision] - N[ArcCos[t$95$0], $MachinePrecision]), $MachinePrecision] * 2.0), $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision] / N[(N[(Pi * Pi), $MachinePrecision] * 0.25 + N[(N[(t$95$1 * t$95$1), $MachinePrecision] * 4.0 + N[(N[(Pi * 0.5), $MachinePrecision] * N[(t$95$1 * 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{0.5 \cdot \left(1 - x\right)}\\
t_1 := \sin^{-1} t\_0\\
\frac{{\left(\pi \cdot 0.5\right)}^{3} - {\left(\left(\frac{\pi}{2} - \cos^{-1} t\_0\right) \cdot 2\right)}^{3}}{\mathsf{fma}\left(\pi \cdot \pi, 0.25, \mathsf{fma}\left(t\_1 \cdot t\_1, 4, \left(\pi \cdot 0.5\right) \cdot \left(t\_1 \cdot 2\right)\right)\right)}
\end{array}
\end{array}
Initial program 6.8%
Taylor expanded in x around 0
fp-cancel-sub-sign-invN/A
lower-fma.f64N/A
lift-PI.f64N/A
lower-*.f64N/A
metadata-evalN/A
lower-asin.f64N/A
sqrt-unprodN/A
lower-sqrt.f64N/A
lower-*.f64N/A
lift--.f646.8
Applied rewrites6.8%
Applied rewrites6.8%
Applied rewrites6.8%
lift-asin.f64N/A
lift-sqrt.f64N/A
lift-*.f64N/A
lift--.f64N/A
asin-acos-revN/A
lower--.f64N/A
lift-/.f64N/A
lift-PI.f64N/A
lower-acos.f64N/A
lift--.f64N/A
lift-*.f64N/A
lift-sqrt.f648.3
Applied rewrites8.3%
(FPCore (x) :precision binary64 (fma 0.5 PI (* -2.0 (- (/ PI 2.0) (acos (sqrt (fma -0.5 x 0.5)))))))
double code(double x) {
return fma(0.5, ((double) M_PI), (-2.0 * ((((double) M_PI) / 2.0) - acos(sqrt(fma(-0.5, x, 0.5))))));
}
function code(x) return fma(0.5, pi, Float64(-2.0 * Float64(Float64(pi / 2.0) - acos(sqrt(fma(-0.5, x, 0.5)))))) end
code[x_] := N[(0.5 * Pi + N[(-2.0 * N[(N[(Pi / 2.0), $MachinePrecision] - N[ArcCos[N[Sqrt[N[(-0.5 * x + 0.5), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(0.5, \pi, -2 \cdot \left(\frac{\pi}{2} - \cos^{-1} \left(\sqrt{\mathsf{fma}\left(-0.5, x, 0.5\right)}\right)\right)\right)
\end{array}
Initial program 6.8%
Taylor expanded in x around 0
fp-cancel-sub-sign-invN/A
lower-fma.f64N/A
lift-PI.f64N/A
lower-*.f64N/A
metadata-evalN/A
lower-asin.f64N/A
sqrt-unprodN/A
lower-sqrt.f64N/A
lower-*.f64N/A
lift--.f646.8
Applied rewrites6.8%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f646.8
Applied rewrites6.8%
lift-asin.f64N/A
asin-acosN/A
lower--.f64N/A
lift-PI.f64N/A
lower-/.f64N/A
lower-acos.f648.3
Applied rewrites8.3%
(FPCore (x) :precision binary64 (- (/ PI 2.0) (* 2.0 (asin (/ (sqrt (- 1.0 x)) (sqrt 2.0))))))
double code(double x) {
return (((double) M_PI) / 2.0) - (2.0 * asin((sqrt((1.0 - x)) / sqrt(2.0))));
}
public static double code(double x) {
return (Math.PI / 2.0) - (2.0 * Math.asin((Math.sqrt((1.0 - x)) / Math.sqrt(2.0))));
}
def code(x): return (math.pi / 2.0) - (2.0 * math.asin((math.sqrt((1.0 - x)) / math.sqrt(2.0))))
function code(x) return Float64(Float64(pi / 2.0) - Float64(2.0 * asin(Float64(sqrt(Float64(1.0 - x)) / sqrt(2.0))))) end
function tmp = code(x) tmp = (pi / 2.0) - (2.0 * asin((sqrt((1.0 - x)) / sqrt(2.0)))); end
code[x_] := N[(N[(Pi / 2.0), $MachinePrecision] - N[(2.0 * N[ArcSin[N[(N[Sqrt[N[(1.0 - x), $MachinePrecision]], $MachinePrecision] / N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\pi}{2} - 2 \cdot \sin^{-1} \left(\frac{\sqrt{1 - x}}{\sqrt{2}}\right)
\end{array}
Initial program 6.8%
lift-sqrt.f64N/A
lift--.f64N/A
lift-/.f64N/A
sqrt-divN/A
lower-/.f64N/A
lower-sqrt.f64N/A
lift--.f64N/A
lower-sqrt.f646.7
Applied rewrites6.7%
(FPCore (x) :precision binary64 (fma 0.5 PI (* -2.0 (asin (sqrt (fma -0.5 x 0.5))))))
double code(double x) {
return fma(0.5, ((double) M_PI), (-2.0 * asin(sqrt(fma(-0.5, x, 0.5)))));
}
function code(x) return fma(0.5, pi, Float64(-2.0 * asin(sqrt(fma(-0.5, x, 0.5))))) end
code[x_] := N[(0.5 * Pi + N[(-2.0 * N[ArcSin[N[Sqrt[N[(-0.5 * x + 0.5), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(0.5, \pi, -2 \cdot \sin^{-1} \left(\sqrt{\mathsf{fma}\left(-0.5, x, 0.5\right)}\right)\right)
\end{array}
Initial program 6.8%
Taylor expanded in x around 0
fp-cancel-sub-sign-invN/A
lower-fma.f64N/A
lift-PI.f64N/A
lower-*.f64N/A
metadata-evalN/A
lower-asin.f64N/A
sqrt-unprodN/A
lower-sqrt.f64N/A
lower-*.f64N/A
lift--.f646.8
Applied rewrites6.8%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f646.8
Applied rewrites6.8%
(FPCore (x) :precision binary64 (fma 0.5 PI (* -2.0 (asin (/ 1.0 (sqrt 2.0))))))
double code(double x) {
return fma(0.5, ((double) M_PI), (-2.0 * asin((1.0 / sqrt(2.0)))));
}
function code(x) return fma(0.5, pi, Float64(-2.0 * asin(Float64(1.0 / sqrt(2.0))))) end
code[x_] := N[(0.5 * Pi + N[(-2.0 * N[ArcSin[N[(1.0 / N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(0.5, \pi, -2 \cdot \sin^{-1} \left(\frac{1}{\sqrt{2}}\right)\right)
\end{array}
Initial program 6.8%
lift-sqrt.f64N/A
lift--.f64N/A
lift-/.f64N/A
sqrt-divN/A
lower-/.f64N/A
lower-sqrt.f64N/A
lift--.f64N/A
lower-sqrt.f646.7
Applied rewrites6.7%
Taylor expanded in x around 0
fp-cancel-sub-sign-invN/A
lift-PI.f64N/A
lower-fma.f64N/A
metadata-evalN/A
lower-*.f64N/A
lower-asin.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
lift--.f646.7
Applied rewrites6.7%
Taylor expanded in x around 0
lift-sqrt.f64N/A
lift-/.f644.1
Applied rewrites4.1%
(FPCore (x) :precision binary64 (fma 0.5 PI (* -2.0 (asin (sqrt 0.5)))))
double code(double x) {
return fma(0.5, ((double) M_PI), (-2.0 * asin(sqrt(0.5))));
}
function code(x) return fma(0.5, pi, Float64(-2.0 * asin(sqrt(0.5)))) end
code[x_] := N[(0.5 * Pi + N[(-2.0 * N[ArcSin[N[Sqrt[0.5], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(0.5, \pi, -2 \cdot \sin^{-1} \left(\sqrt{0.5}\right)\right)
\end{array}
Initial program 6.8%
Taylor expanded in x around 0
fp-cancel-sub-sign-invN/A
lower-fma.f64N/A
lift-PI.f64N/A
lower-*.f64N/A
metadata-evalN/A
lower-asin.f64N/A
sqrt-unprodN/A
lower-sqrt.f64N/A
lower-*.f64N/A
lift--.f646.8
Applied rewrites6.8%
Taylor expanded in x around 0
Applied rewrites4.1%
herbie shell --seed 2025106
(FPCore (x)
:name "Ian Simplification"
:precision binary64
(- (/ PI 2.0) (* 2.0 (asin (sqrt (/ (- 1.0 x) 2.0))))))