
(FPCore (x y) :precision binary64 (- (* x x) (* y y)))
double code(double x, double y) {
return (x * x) - (y * y);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (x * x) - (y * y)
end function
public static double code(double x, double y) {
return (x * x) - (y * y);
}
def code(x, y): return (x * x) - (y * y)
function code(x, y) return Float64(Float64(x * x) - Float64(y * y)) end
function tmp = code(x, y) tmp = (x * x) - (y * y); end
code[x_, y_] := N[(N[(x * x), $MachinePrecision] - N[(y * y), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x \cdot x - y \cdot y
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 4 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y) :precision binary64 (- (* x x) (* y y)))
double code(double x, double y) {
return (x * x) - (y * y);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (x * x) - (y * y)
end function
public static double code(double x, double y) {
return (x * x) - (y * y);
}
def code(x, y): return (x * x) - (y * y)
function code(x, y) return Float64(Float64(x * x) - Float64(y * y)) end
function tmp = code(x, y) tmp = (x * x) - (y * y); end
code[x_, y_] := N[(N[(x * x), $MachinePrecision] - N[(y * y), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x \cdot x - y \cdot y
\end{array}
x_m = (fabs.f64 x) (FPCore (x_m y) :precision binary64 (if (<= x_m 3.5e+204) (fma x_m x_m (* y (- y))) (* x_m (+ x_m y))))
x_m = fabs(x);
double code(double x_m, double y) {
double tmp;
if (x_m <= 3.5e+204) {
tmp = fma(x_m, x_m, (y * -y));
} else {
tmp = x_m * (x_m + y);
}
return tmp;
}
x_m = abs(x) function code(x_m, y) tmp = 0.0 if (x_m <= 3.5e+204) tmp = fma(x_m, x_m, Float64(y * Float64(-y))); else tmp = Float64(x_m * Float64(x_m + y)); end return tmp end
x_m = N[Abs[x], $MachinePrecision] code[x$95$m_, y_] := If[LessEqual[x$95$m, 3.5e+204], N[(x$95$m * x$95$m + N[(y * (-y)), $MachinePrecision]), $MachinePrecision], N[(x$95$m * N[(x$95$m + y), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
x_m = \left|x\right|
\\
\begin{array}{l}
\mathbf{if}\;x\_m \leq 3.5 \cdot 10^{+204}:\\
\;\;\;\;\mathsf{fma}\left(x\_m, x\_m, y \cdot \left(-y\right)\right)\\
\mathbf{else}:\\
\;\;\;\;x\_m \cdot \left(x\_m + y\right)\\
\end{array}
\end{array}
if x < 3.49999999999999989e204Initial program 94.0%
sqr-neg94.0%
cancel-sign-sub94.0%
fma-define97.8%
Simplified97.8%
if 3.49999999999999989e204 < x Initial program 70.8%
difference-of-squares100.0%
sub-neg100.0%
add-sqr-sqrt66.7%
sqrt-unprod95.8%
sqr-neg95.8%
sqrt-prod29.2%
add-sqr-sqrt95.8%
Applied egg-rr95.8%
Taylor expanded in x around inf 95.8%
Final simplification97.7%
x_m = (fabs.f64 x) (FPCore (x_m y) :precision binary64 (if (<= x_m 2.9e+152) (- (* x_m x_m) (* y y)) (* x_m (+ x_m y))))
x_m = fabs(x);
double code(double x_m, double y) {
double tmp;
if (x_m <= 2.9e+152) {
tmp = (x_m * x_m) - (y * y);
} else {
tmp = x_m * (x_m + y);
}
return tmp;
}
x_m = abs(x)
real(8) function code(x_m, y)
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8) :: tmp
if (x_m <= 2.9d+152) then
tmp = (x_m * x_m) - (y * y)
else
tmp = x_m * (x_m + y)
end if
code = tmp
end function
x_m = Math.abs(x);
public static double code(double x_m, double y) {
double tmp;
if (x_m <= 2.9e+152) {
tmp = (x_m * x_m) - (y * y);
} else {
tmp = x_m * (x_m + y);
}
return tmp;
}
x_m = math.fabs(x) def code(x_m, y): tmp = 0 if x_m <= 2.9e+152: tmp = (x_m * x_m) - (y * y) else: tmp = x_m * (x_m + y) return tmp
x_m = abs(x) function code(x_m, y) tmp = 0.0 if (x_m <= 2.9e+152) tmp = Float64(Float64(x_m * x_m) - Float64(y * y)); else tmp = Float64(x_m * Float64(x_m + y)); end return tmp end
x_m = abs(x); function tmp_2 = code(x_m, y) tmp = 0.0; if (x_m <= 2.9e+152) tmp = (x_m * x_m) - (y * y); else tmp = x_m * (x_m + y); end tmp_2 = tmp; end
x_m = N[Abs[x], $MachinePrecision] code[x$95$m_, y_] := If[LessEqual[x$95$m, 2.9e+152], N[(N[(x$95$m * x$95$m), $MachinePrecision] - N[(y * y), $MachinePrecision]), $MachinePrecision], N[(x$95$m * N[(x$95$m + y), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
x_m = \left|x\right|
\\
\begin{array}{l}
\mathbf{if}\;x\_m \leq 2.9 \cdot 10^{+152}:\\
\;\;\;\;x\_m \cdot x\_m - y \cdot y\\
\mathbf{else}:\\
\;\;\;\;x\_m \cdot \left(x\_m + y\right)\\
\end{array}
\end{array}
if x < 2.8999999999999998e152Initial program 96.8%
if 2.8999999999999998e152 < x Initial program 63.2%
difference-of-squares100.0%
sub-neg100.0%
add-sqr-sqrt57.9%
sqrt-unprod86.8%
sqr-neg86.8%
sqrt-prod28.9%
add-sqr-sqrt78.9%
Applied egg-rr78.9%
Taylor expanded in x around inf 86.8%
Final simplification95.3%
x_m = (fabs.f64 x) (FPCore (x_m y) :precision binary64 (if (<= (* y y) 5e-89) (* x_m x_m) (* y (- y))))
x_m = fabs(x);
double code(double x_m, double y) {
double tmp;
if ((y * y) <= 5e-89) {
tmp = x_m * x_m;
} else {
tmp = y * -y;
}
return tmp;
}
x_m = abs(x)
real(8) function code(x_m, y)
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8) :: tmp
if ((y * y) <= 5d-89) then
tmp = x_m * x_m
else
tmp = y * -y
end if
code = tmp
end function
x_m = Math.abs(x);
public static double code(double x_m, double y) {
double tmp;
if ((y * y) <= 5e-89) {
tmp = x_m * x_m;
} else {
tmp = y * -y;
}
return tmp;
}
x_m = math.fabs(x) def code(x_m, y): tmp = 0 if (y * y) <= 5e-89: tmp = x_m * x_m else: tmp = y * -y return tmp
x_m = abs(x) function code(x_m, y) tmp = 0.0 if (Float64(y * y) <= 5e-89) tmp = Float64(x_m * x_m); else tmp = Float64(y * Float64(-y)); end return tmp end
x_m = abs(x); function tmp_2 = code(x_m, y) tmp = 0.0; if ((y * y) <= 5e-89) tmp = x_m * x_m; else tmp = y * -y; end tmp_2 = tmp; end
x_m = N[Abs[x], $MachinePrecision] code[x$95$m_, y_] := If[LessEqual[N[(y * y), $MachinePrecision], 5e-89], N[(x$95$m * x$95$m), $MachinePrecision], N[(y * (-y)), $MachinePrecision]]
\begin{array}{l}
x_m = \left|x\right|
\\
\begin{array}{l}
\mathbf{if}\;y \cdot y \leq 5 \cdot 10^{-89}:\\
\;\;\;\;x\_m \cdot x\_m\\
\mathbf{else}:\\
\;\;\;\;y \cdot \left(-y\right)\\
\end{array}
\end{array}
if (*.f64 y y) < 4.99999999999999967e-89Initial program 100.0%
difference-of-squares100.0%
sub-neg100.0%
add-sqr-sqrt47.3%
sqrt-unprod94.2%
sqr-neg94.2%
sqrt-prod46.8%
add-sqr-sqrt89.1%
Applied egg-rr89.1%
Taylor expanded in x around inf 89.3%
Taylor expanded in x around inf 89.3%
if 4.99999999999999967e-89 < (*.f64 y y) Initial program 85.2%
Taylor expanded in x around 0 72.1%
neg-mul-172.1%
Simplified72.1%
unpow272.1%
distribute-lft-neg-in72.1%
Applied egg-rr72.1%
Final simplification79.8%
x_m = (fabs.f64 x) (FPCore (x_m y) :precision binary64 (* x_m x_m))
x_m = fabs(x);
double code(double x_m, double y) {
return x_m * x_m;
}
x_m = abs(x)
real(8) function code(x_m, y)
real(8), intent (in) :: x_m
real(8), intent (in) :: y
code = x_m * x_m
end function
x_m = Math.abs(x);
public static double code(double x_m, double y) {
return x_m * x_m;
}
x_m = math.fabs(x) def code(x_m, y): return x_m * x_m
x_m = abs(x) function code(x_m, y) return Float64(x_m * x_m) end
x_m = abs(x); function tmp = code(x_m, y) tmp = x_m * x_m; end
x_m = N[Abs[x], $MachinePrecision] code[x$95$m_, y_] := N[(x$95$m * x$95$m), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x\_m \cdot x\_m
\end{array}
Initial program 91.8%
difference-of-squares100.0%
sub-neg100.0%
add-sqr-sqrt47.6%
sqrt-unprod74.8%
sqr-neg74.8%
sqrt-prod29.1%
add-sqr-sqrt55.1%
Applied egg-rr55.1%
Taylor expanded in x around inf 59.0%
Taylor expanded in x around inf 55.5%
herbie shell --seed 2024150
(FPCore (x y)
:name "Examples.Basics.BasicTests:f2 from sbv-4.4"
:precision binary64
(- (* x x) (* y y)))