
(FPCore (x) :precision binary64 (- (sqrt (+ 1.0 x)) (sqrt (- 1.0 x))))
double code(double x) {
return sqrt((1.0 + x)) - sqrt((1.0 - x));
}
real(8) function code(x)
real(8), intent (in) :: x
code = sqrt((1.0d0 + x)) - sqrt((1.0d0 - x))
end function
public static double code(double x) {
return Math.sqrt((1.0 + x)) - Math.sqrt((1.0 - x));
}
def code(x): return math.sqrt((1.0 + x)) - math.sqrt((1.0 - x))
function code(x) return Float64(sqrt(Float64(1.0 + x)) - sqrt(Float64(1.0 - x))) end
function tmp = code(x) tmp = sqrt((1.0 + x)) - sqrt((1.0 - x)); end
code[x_] := N[(N[Sqrt[N[(1.0 + x), $MachinePrecision]], $MachinePrecision] - N[Sqrt[N[(1.0 - x), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sqrt{1 + x} - \sqrt{1 - x}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 5 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x) :precision binary64 (- (sqrt (+ 1.0 x)) (sqrt (- 1.0 x))))
double code(double x) {
return sqrt((1.0 + x)) - sqrt((1.0 - x));
}
real(8) function code(x)
real(8), intent (in) :: x
code = sqrt((1.0d0 + x)) - sqrt((1.0d0 - x))
end function
public static double code(double x) {
return Math.sqrt((1.0 + x)) - Math.sqrt((1.0 - x));
}
def code(x): return math.sqrt((1.0 + x)) - math.sqrt((1.0 - x))
function code(x) return Float64(sqrt(Float64(1.0 + x)) - sqrt(Float64(1.0 - x))) end
function tmp = code(x) tmp = sqrt((1.0 + x)) - sqrt((1.0 - x)); end
code[x_] := N[(N[Sqrt[N[(1.0 + x), $MachinePrecision]], $MachinePrecision] - N[Sqrt[N[(1.0 - x), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sqrt{1 + x} - \sqrt{1 - x}
\end{array}
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m)
:precision binary64
(*
x_s
(if (<= x_m 2.6e-26)
0.0
(/ (+ x_m x_m) (+ (sqrt (+ x_m 1.0)) (sqrt (- 1.0 x_m)))))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m) {
double tmp;
if (x_m <= 2.6e-26) {
tmp = 0.0;
} else {
tmp = (x_m + x_m) / (sqrt((x_m + 1.0)) + sqrt((1.0 - x_m)));
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8) :: tmp
if (x_m <= 2.6d-26) then
tmp = 0.0d0
else
tmp = (x_m + x_m) / (sqrt((x_m + 1.0d0)) + sqrt((1.0d0 - x_m)))
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m) {
double tmp;
if (x_m <= 2.6e-26) {
tmp = 0.0;
} else {
tmp = (x_m + x_m) / (Math.sqrt((x_m + 1.0)) + Math.sqrt((1.0 - x_m)));
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m): tmp = 0 if x_m <= 2.6e-26: tmp = 0.0 else: tmp = (x_m + x_m) / (math.sqrt((x_m + 1.0)) + math.sqrt((1.0 - x_m))) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m) tmp = 0.0 if (x_m <= 2.6e-26) tmp = 0.0; else tmp = Float64(Float64(x_m + x_m) / Float64(sqrt(Float64(x_m + 1.0)) + sqrt(Float64(1.0 - x_m)))); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m) tmp = 0.0; if (x_m <= 2.6e-26) tmp = 0.0; else tmp = (x_m + x_m) / (sqrt((x_m + 1.0)) + sqrt((1.0 - x_m))); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_] := N[(x$95$s * If[LessEqual[x$95$m, 2.6e-26], 0.0, N[(N[(x$95$m + x$95$m), $MachinePrecision] / N[(N[Sqrt[N[(x$95$m + 1.0), $MachinePrecision]], $MachinePrecision] + N[Sqrt[N[(1.0 - x$95$m), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 2.6 \cdot 10^{-26}:\\
\;\;\;\;0\\
\mathbf{else}:\\
\;\;\;\;\frac{x\_m + x\_m}{\sqrt{x\_m + 1} + \sqrt{1 - x\_m}}\\
\end{array}
\end{array}
if x < 2.6000000000000001e-26Initial program 97.8%
Taylor expanded in x around inf 95.6%
if 2.6000000000000001e-26 < x Initial program 33.4%
flip--33.4%
add-sqr-sqrt33.5%
add-sqr-sqrt34.0%
associate--r-41.8%
add-exp-log41.8%
expm1-undefine41.8%
log1p-define99.8%
expm1-log1p-u99.8%
Applied egg-rr99.8%
Final simplification95.8%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m)
:precision binary64
(*
x_s
(if (<= x_m 2.6e-26)
0.0
(+ x_m (+ (* 0.0546875 (pow x_m 5.0)) (* 0.125 (pow x_m 3.0)))))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m) {
double tmp;
if (x_m <= 2.6e-26) {
tmp = 0.0;
} else {
tmp = x_m + ((0.0546875 * pow(x_m, 5.0)) + (0.125 * pow(x_m, 3.0)));
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8) :: tmp
if (x_m <= 2.6d-26) then
tmp = 0.0d0
else
tmp = x_m + ((0.0546875d0 * (x_m ** 5.0d0)) + (0.125d0 * (x_m ** 3.0d0)))
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m) {
double tmp;
if (x_m <= 2.6e-26) {
tmp = 0.0;
} else {
tmp = x_m + ((0.0546875 * Math.pow(x_m, 5.0)) + (0.125 * Math.pow(x_m, 3.0)));
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m): tmp = 0 if x_m <= 2.6e-26: tmp = 0.0 else: tmp = x_m + ((0.0546875 * math.pow(x_m, 5.0)) + (0.125 * math.pow(x_m, 3.0))) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m) tmp = 0.0 if (x_m <= 2.6e-26) tmp = 0.0; else tmp = Float64(x_m + Float64(Float64(0.0546875 * (x_m ^ 5.0)) + Float64(0.125 * (x_m ^ 3.0)))); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m) tmp = 0.0; if (x_m <= 2.6e-26) tmp = 0.0; else tmp = x_m + ((0.0546875 * (x_m ^ 5.0)) + (0.125 * (x_m ^ 3.0))); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_] := N[(x$95$s * If[LessEqual[x$95$m, 2.6e-26], 0.0, N[(x$95$m + N[(N[(0.0546875 * N[Power[x$95$m, 5.0], $MachinePrecision]), $MachinePrecision] + N[(0.125 * N[Power[x$95$m, 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 2.6 \cdot 10^{-26}:\\
\;\;\;\;0\\
\mathbf{else}:\\
\;\;\;\;x\_m + \left(0.0546875 \cdot {x\_m}^{5} + 0.125 \cdot {x\_m}^{3}\right)\\
\end{array}
\end{array}
if x < 2.6000000000000001e-26Initial program 97.8%
Taylor expanded in x around inf 95.6%
if 2.6000000000000001e-26 < x Initial program 33.4%
Taylor expanded in x around 0 95.9%
Final simplification95.6%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m) :precision binary64 (* x_s (if (<= x_m 2.6e-26) 0.0 (/ (+ x_m x_m) (+ 2.0 (* -0.25 (* x_m x_m)))))))
x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m) {
double tmp;
if (x_m <= 2.6e-26) {
tmp = 0.0;
} else {
tmp = (x_m + x_m) / (2.0 + (-0.25 * (x_m * x_m)));
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8) :: tmp
if (x_m <= 2.6d-26) then
tmp = 0.0d0
else
tmp = (x_m + x_m) / (2.0d0 + ((-0.25d0) * (x_m * x_m)))
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m) {
double tmp;
if (x_m <= 2.6e-26) {
tmp = 0.0;
} else {
tmp = (x_m + x_m) / (2.0 + (-0.25 * (x_m * x_m)));
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m): tmp = 0 if x_m <= 2.6e-26: tmp = 0.0 else: tmp = (x_m + x_m) / (2.0 + (-0.25 * (x_m * x_m))) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m) tmp = 0.0 if (x_m <= 2.6e-26) tmp = 0.0; else tmp = Float64(Float64(x_m + x_m) / Float64(2.0 + Float64(-0.25 * Float64(x_m * x_m)))); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m) tmp = 0.0; if (x_m <= 2.6e-26) tmp = 0.0; else tmp = (x_m + x_m) / (2.0 + (-0.25 * (x_m * x_m))); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_] := N[(x$95$s * If[LessEqual[x$95$m, 2.6e-26], 0.0, N[(N[(x$95$m + x$95$m), $MachinePrecision] / N[(2.0 + N[(-0.25 * N[(x$95$m * x$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 2.6 \cdot 10^{-26}:\\
\;\;\;\;0\\
\mathbf{else}:\\
\;\;\;\;\frac{x\_m + x\_m}{2 + -0.25 \cdot \left(x\_m \cdot x\_m\right)}\\
\end{array}
\end{array}
if x < 2.6000000000000001e-26Initial program 97.8%
Taylor expanded in x around inf 95.6%
if 2.6000000000000001e-26 < x Initial program 33.4%
flip--33.4%
add-sqr-sqrt33.5%
add-sqr-sqrt34.0%
associate--r-41.8%
add-exp-log41.8%
expm1-undefine41.8%
log1p-define99.8%
expm1-log1p-u99.8%
Applied egg-rr99.8%
Taylor expanded in x around 0 93.9%
unpow293.9%
Applied egg-rr93.9%
Final simplification95.5%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m) :precision binary64 (* x_s (if (<= x_m 2.6e-26) 0.0 x_m)))
x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m) {
double tmp;
if (x_m <= 2.6e-26) {
tmp = 0.0;
} else {
tmp = x_m;
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8) :: tmp
if (x_m <= 2.6d-26) then
tmp = 0.0d0
else
tmp = x_m
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m) {
double tmp;
if (x_m <= 2.6e-26) {
tmp = 0.0;
} else {
tmp = x_m;
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m): tmp = 0 if x_m <= 2.6e-26: tmp = 0.0 else: tmp = x_m return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m) tmp = 0.0 if (x_m <= 2.6e-26) tmp = 0.0; else tmp = x_m; end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m) tmp = 0.0; if (x_m <= 2.6e-26) tmp = 0.0; else tmp = x_m; end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_] := N[(x$95$s * If[LessEqual[x$95$m, 2.6e-26], 0.0, x$95$m]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 2.6 \cdot 10^{-26}:\\
\;\;\;\;0\\
\mathbf{else}:\\
\;\;\;\;x\_m\\
\end{array}
\end{array}
if x < 2.6000000000000001e-26Initial program 97.8%
Taylor expanded in x around inf 95.6%
if 2.6000000000000001e-26 < x Initial program 33.4%
Taylor expanded in x around 0 87.9%
Final simplification95.2%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m) :precision binary64 (* x_s 0.0))
x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m) {
return x_s * 0.0;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
code = x_s * 0.0d0
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m) {
return x_s * 0.0;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m): return x_s * 0.0
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m) return Float64(x_s * 0.0) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp = code(x_s, x_m) tmp = x_s * 0.0; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_] := N[(x$95$s * 0.0), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot 0
\end{array}
Initial program 94.2%
Taylor expanded in x around inf 90.5%
Final simplification90.5%
(FPCore (x) :precision binary64 (/ (* 2.0 x) (+ (sqrt (+ 1.0 x)) (sqrt (- 1.0 x)))))
double code(double x) {
return (2.0 * x) / (sqrt((1.0 + x)) + sqrt((1.0 - x)));
}
real(8) function code(x)
real(8), intent (in) :: x
code = (2.0d0 * x) / (sqrt((1.0d0 + x)) + sqrt((1.0d0 - x)))
end function
public static double code(double x) {
return (2.0 * x) / (Math.sqrt((1.0 + x)) + Math.sqrt((1.0 - x)));
}
def code(x): return (2.0 * x) / (math.sqrt((1.0 + x)) + math.sqrt((1.0 - x)))
function code(x) return Float64(Float64(2.0 * x) / Float64(sqrt(Float64(1.0 + x)) + sqrt(Float64(1.0 - x)))) end
function tmp = code(x) tmp = (2.0 * x) / (sqrt((1.0 + x)) + sqrt((1.0 - x))); end
code[x_] := N[(N[(2.0 * x), $MachinePrecision] / N[(N[Sqrt[N[(1.0 + x), $MachinePrecision]], $MachinePrecision] + N[Sqrt[N[(1.0 - x), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{2 \cdot x}{\sqrt{1 + x} + \sqrt{1 - x}}
\end{array}
herbie shell --seed 2024046
(FPCore (x)
:name "bug333 (missed optimization)"
:precision binary64
:pre (and (<= -1.0 x) (<= x 1.0))
:herbie-target
(/ (* 2.0 x) (+ (sqrt (+ 1.0 x)) (sqrt (- 1.0 x))))
(- (sqrt (+ 1.0 x)) (sqrt (- 1.0 x))))