
(FPCore (x y) :precision binary64 (+ (- (* x (- y 1.0)) (* y 0.5)) 0.918938533204673))
double code(double x, double y) {
return ((x * (y - 1.0)) - (y * 0.5)) + 0.918938533204673;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = ((x * (y - 1.0d0)) - (y * 0.5d0)) + 0.918938533204673d0
end function
public static double code(double x, double y) {
return ((x * (y - 1.0)) - (y * 0.5)) + 0.918938533204673;
}
def code(x, y): return ((x * (y - 1.0)) - (y * 0.5)) + 0.918938533204673
function code(x, y) return Float64(Float64(Float64(x * Float64(y - 1.0)) - Float64(y * 0.5)) + 0.918938533204673) end
function tmp = code(x, y) tmp = ((x * (y - 1.0)) - (y * 0.5)) + 0.918938533204673; end
code[x_, y_] := N[(N[(N[(x * N[(y - 1.0), $MachinePrecision]), $MachinePrecision] - N[(y * 0.5), $MachinePrecision]), $MachinePrecision] + 0.918938533204673), $MachinePrecision]
\begin{array}{l}
\\
\left(x \cdot \left(y - 1\right) - y \cdot 0.5\right) + 0.918938533204673
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 10 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y) :precision binary64 (+ (- (* x (- y 1.0)) (* y 0.5)) 0.918938533204673))
double code(double x, double y) {
return ((x * (y - 1.0)) - (y * 0.5)) + 0.918938533204673;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = ((x * (y - 1.0d0)) - (y * 0.5d0)) + 0.918938533204673d0
end function
public static double code(double x, double y) {
return ((x * (y - 1.0)) - (y * 0.5)) + 0.918938533204673;
}
def code(x, y): return ((x * (y - 1.0)) - (y * 0.5)) + 0.918938533204673
function code(x, y) return Float64(Float64(Float64(x * Float64(y - 1.0)) - Float64(y * 0.5)) + 0.918938533204673) end
function tmp = code(x, y) tmp = ((x * (y - 1.0)) - (y * 0.5)) + 0.918938533204673; end
code[x_, y_] := N[(N[(N[(x * N[(y - 1.0), $MachinePrecision]), $MachinePrecision] - N[(y * 0.5), $MachinePrecision]), $MachinePrecision] + 0.918938533204673), $MachinePrecision]
\begin{array}{l}
\\
\left(x \cdot \left(y - 1\right) - y \cdot 0.5\right) + 0.918938533204673
\end{array}
(FPCore (x y) :precision binary64 (fma (+ -0.5 x) y (- 0.918938533204673 x)))
double code(double x, double y) {
return fma((-0.5 + x), y, (0.918938533204673 - x));
}
function code(x, y) return fma(Float64(-0.5 + x), y, Float64(0.918938533204673 - x)) end
code[x_, y_] := N[(N[(-0.5 + x), $MachinePrecision] * y + N[(0.918938533204673 - x), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(-0.5 + x, y, 0.918938533204673 - x\right)
\end{array}
Initial program 100.0%
Taylor expanded in x around 0
Applied rewrites100.0%
(FPCore (x y)
:precision binary64
(let* ((t_0 (+ (- (* x (- y 1.0)) (* y 0.5)) 0.918938533204673)))
(if (or (<= t_0 -200000000000.0) (not (<= t_0 50000000000.0)))
(fma (+ -0.5 x) y (- x))
(- 0.918938533204673 x))))
double code(double x, double y) {
double t_0 = ((x * (y - 1.0)) - (y * 0.5)) + 0.918938533204673;
double tmp;
if ((t_0 <= -200000000000.0) || !(t_0 <= 50000000000.0)) {
tmp = fma((-0.5 + x), y, -x);
} else {
tmp = 0.918938533204673 - x;
}
return tmp;
}
function code(x, y) t_0 = Float64(Float64(Float64(x * Float64(y - 1.0)) - Float64(y * 0.5)) + 0.918938533204673) tmp = 0.0 if ((t_0 <= -200000000000.0) || !(t_0 <= 50000000000.0)) tmp = fma(Float64(-0.5 + x), y, Float64(-x)); else tmp = Float64(0.918938533204673 - x); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[(N[(x * N[(y - 1.0), $MachinePrecision]), $MachinePrecision] - N[(y * 0.5), $MachinePrecision]), $MachinePrecision] + 0.918938533204673), $MachinePrecision]}, If[Or[LessEqual[t$95$0, -200000000000.0], N[Not[LessEqual[t$95$0, 50000000000.0]], $MachinePrecision]], N[(N[(-0.5 + x), $MachinePrecision] * y + (-x)), $MachinePrecision], N[(0.918938533204673 - x), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(x \cdot \left(y - 1\right) - y \cdot 0.5\right) + 0.918938533204673\\
\mathbf{if}\;t\_0 \leq -200000000000 \lor \neg \left(t\_0 \leq 50000000000\right):\\
\;\;\;\;\mathsf{fma}\left(-0.5 + x, y, -x\right)\\
\mathbf{else}:\\
\;\;\;\;0.918938533204673 - x\\
\end{array}
\end{array}
if (+.f64 (-.f64 (*.f64 x (-.f64 y #s(literal 1 binary64))) (*.f64 y #s(literal 1/2 binary64))) #s(literal 918938533204673/1000000000000000 binary64)) < -2e11 or 5e10 < (+.f64 (-.f64 (*.f64 x (-.f64 y #s(literal 1 binary64))) (*.f64 y #s(literal 1/2 binary64))) #s(literal 918938533204673/1000000000000000 binary64)) Initial program 100.0%
Taylor expanded in x around 0
Applied rewrites100.0%
Taylor expanded in x around inf
Applied rewrites99.9%
if -2e11 < (+.f64 (-.f64 (*.f64 x (-.f64 y #s(literal 1 binary64))) (*.f64 y #s(literal 1/2 binary64))) #s(literal 918938533204673/1000000000000000 binary64)) < 5e10Initial program 100.0%
Taylor expanded in y around 0
fp-cancel-sign-sub-invN/A
metadata-evalN/A
*-lft-identityN/A
lower--.f6498.1
Applied rewrites98.1%
Final simplification99.3%
(FPCore (x y)
:precision binary64
(if (<= x -6.5e+91)
(- x)
(if (<= x -4200000.0)
(* y x)
(if (<= x 4e-39)
(fma -0.5 y 0.918938533204673)
(if (<= x 3e+240) (- 0.918938533204673 x) (* y x))))))
double code(double x, double y) {
double tmp;
if (x <= -6.5e+91) {
tmp = -x;
} else if (x <= -4200000.0) {
tmp = y * x;
} else if (x <= 4e-39) {
tmp = fma(-0.5, y, 0.918938533204673);
} else if (x <= 3e+240) {
tmp = 0.918938533204673 - x;
} else {
tmp = y * x;
}
return tmp;
}
function code(x, y) tmp = 0.0 if (x <= -6.5e+91) tmp = Float64(-x); elseif (x <= -4200000.0) tmp = Float64(y * x); elseif (x <= 4e-39) tmp = fma(-0.5, y, 0.918938533204673); elseif (x <= 3e+240) tmp = Float64(0.918938533204673 - x); else tmp = Float64(y * x); end return tmp end
code[x_, y_] := If[LessEqual[x, -6.5e+91], (-x), If[LessEqual[x, -4200000.0], N[(y * x), $MachinePrecision], If[LessEqual[x, 4e-39], N[(-0.5 * y + 0.918938533204673), $MachinePrecision], If[LessEqual[x, 3e+240], N[(0.918938533204673 - x), $MachinePrecision], N[(y * x), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -6.5 \cdot 10^{+91}:\\
\;\;\;\;-x\\
\mathbf{elif}\;x \leq -4200000:\\
\;\;\;\;y \cdot x\\
\mathbf{elif}\;x \leq 4 \cdot 10^{-39}:\\
\;\;\;\;\mathsf{fma}\left(-0.5, y, 0.918938533204673\right)\\
\mathbf{elif}\;x \leq 3 \cdot 10^{+240}:\\
\;\;\;\;0.918938533204673 - x\\
\mathbf{else}:\\
\;\;\;\;y \cdot x\\
\end{array}
\end{array}
if x < -6.4999999999999997e91Initial program 100.0%
Taylor expanded in y around 0
fp-cancel-sign-sub-invN/A
metadata-evalN/A
*-lft-identityN/A
lower--.f6464.5
Applied rewrites64.5%
Taylor expanded in x around inf
Applied rewrites64.5%
if -6.4999999999999997e91 < x < -4.2e6 or 2.9999999999999999e240 < x Initial program 99.9%
Taylor expanded in y around inf
*-commutativeN/A
lower-*.f64N/A
lower--.f6467.2
Applied rewrites67.2%
Taylor expanded in x around inf
Applied rewrites66.2%
if -4.2e6 < x < 3.99999999999999972e-39Initial program 100.0%
Taylor expanded in x around 0
fp-cancel-sub-sign-invN/A
metadata-evalN/A
+-commutativeN/A
lower-fma.f6498.6
Applied rewrites98.6%
if 3.99999999999999972e-39 < x < 2.9999999999999999e240Initial program 99.9%
Taylor expanded in y around 0
fp-cancel-sign-sub-invN/A
metadata-evalN/A
*-lft-identityN/A
lower--.f6464.1
Applied rewrites64.1%
(FPCore (x y) :precision binary64 (if (or (<= y -1.4) (not (<= y 1.35))) (fma y x (* -0.5 y)) (- 0.918938533204673 x)))
double code(double x, double y) {
double tmp;
if ((y <= -1.4) || !(y <= 1.35)) {
tmp = fma(y, x, (-0.5 * y));
} else {
tmp = 0.918938533204673 - x;
}
return tmp;
}
function code(x, y) tmp = 0.0 if ((y <= -1.4) || !(y <= 1.35)) tmp = fma(y, x, Float64(-0.5 * y)); else tmp = Float64(0.918938533204673 - x); end return tmp end
code[x_, y_] := If[Or[LessEqual[y, -1.4], N[Not[LessEqual[y, 1.35]], $MachinePrecision]], N[(y * x + N[(-0.5 * y), $MachinePrecision]), $MachinePrecision], N[(0.918938533204673 - x), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.4 \lor \neg \left(y \leq 1.35\right):\\
\;\;\;\;\mathsf{fma}\left(y, x, -0.5 \cdot y\right)\\
\mathbf{else}:\\
\;\;\;\;0.918938533204673 - x\\
\end{array}
\end{array}
if y < -1.3999999999999999 or 1.3500000000000001 < y Initial program 100.0%
Taylor expanded in x around 0
Applied rewrites100.0%
Taylor expanded in x around inf
Applied rewrites99.8%
Applied rewrites99.8%
Taylor expanded in y around inf
Applied rewrites99.0%
if -1.3999999999999999 < y < 1.3500000000000001Initial program 100.0%
Taylor expanded in y around 0
fp-cancel-sign-sub-invN/A
metadata-evalN/A
*-lft-identityN/A
lower--.f6498.2
Applied rewrites98.2%
Final simplification98.6%
(FPCore (x y) :precision binary64 (if (or (<= y -1.4) (not (<= y 1.35))) (* (- x 0.5) y) (- 0.918938533204673 x)))
double code(double x, double y) {
double tmp;
if ((y <= -1.4) || !(y <= 1.35)) {
tmp = (x - 0.5) * y;
} else {
tmp = 0.918938533204673 - x;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if ((y <= (-1.4d0)) .or. (.not. (y <= 1.35d0))) then
tmp = (x - 0.5d0) * y
else
tmp = 0.918938533204673d0 - x
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if ((y <= -1.4) || !(y <= 1.35)) {
tmp = (x - 0.5) * y;
} else {
tmp = 0.918938533204673 - x;
}
return tmp;
}
def code(x, y): tmp = 0 if (y <= -1.4) or not (y <= 1.35): tmp = (x - 0.5) * y else: tmp = 0.918938533204673 - x return tmp
function code(x, y) tmp = 0.0 if ((y <= -1.4) || !(y <= 1.35)) tmp = Float64(Float64(x - 0.5) * y); else tmp = Float64(0.918938533204673 - x); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if ((y <= -1.4) || ~((y <= 1.35))) tmp = (x - 0.5) * y; else tmp = 0.918938533204673 - x; end tmp_2 = tmp; end
code[x_, y_] := If[Or[LessEqual[y, -1.4], N[Not[LessEqual[y, 1.35]], $MachinePrecision]], N[(N[(x - 0.5), $MachinePrecision] * y), $MachinePrecision], N[(0.918938533204673 - x), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.4 \lor \neg \left(y \leq 1.35\right):\\
\;\;\;\;\left(x - 0.5\right) \cdot y\\
\mathbf{else}:\\
\;\;\;\;0.918938533204673 - x\\
\end{array}
\end{array}
if y < -1.3999999999999999 or 1.3500000000000001 < y Initial program 100.0%
Taylor expanded in y around inf
*-commutativeN/A
lower-*.f64N/A
lower--.f6499.0
Applied rewrites99.0%
if -1.3999999999999999 < y < 1.3500000000000001Initial program 100.0%
Taylor expanded in y around 0
fp-cancel-sign-sub-invN/A
metadata-evalN/A
*-lft-identityN/A
lower--.f6498.2
Applied rewrites98.2%
Final simplification98.6%
(FPCore (x y) :precision binary64 (if (or (<= x -0.75) (not (<= x 0.88))) (* (+ -1.0 y) x) (fma -0.5 y 0.918938533204673)))
double code(double x, double y) {
double tmp;
if ((x <= -0.75) || !(x <= 0.88)) {
tmp = (-1.0 + y) * x;
} else {
tmp = fma(-0.5, y, 0.918938533204673);
}
return tmp;
}
function code(x, y) tmp = 0.0 if ((x <= -0.75) || !(x <= 0.88)) tmp = Float64(Float64(-1.0 + y) * x); else tmp = fma(-0.5, y, 0.918938533204673); end return tmp end
code[x_, y_] := If[Or[LessEqual[x, -0.75], N[Not[LessEqual[x, 0.88]], $MachinePrecision]], N[(N[(-1.0 + y), $MachinePrecision] * x), $MachinePrecision], N[(-0.5 * y + 0.918938533204673), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -0.75 \lor \neg \left(x \leq 0.88\right):\\
\;\;\;\;\left(-1 + y\right) \cdot x\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(-0.5, y, 0.918938533204673\right)\\
\end{array}
\end{array}
if x < -0.75 or 0.880000000000000004 < x Initial program 99.9%
Taylor expanded in x around 0
Applied rewrites100.0%
Taylor expanded in x around inf
distribute-lft-out--N/A
remove-double-negN/A
mul-1-negN/A
distribute-rgt-neg-inN/A
distribute-lft-neg-inN/A
fp-cancel-sub-signN/A
mul-1-negN/A
mul-1-negN/A
distribute-lft-inN/A
+-commutativeN/A
associate-*r*N/A
mul-1-negN/A
distribute-rgt-neg-inN/A
*-commutativeN/A
lower-*.f64N/A
distribute-neg-inN/A
metadata-evalN/A
mul-1-negN/A
remove-double-negN/A
lower-+.f6497.9
Applied rewrites97.9%
if -0.75 < x < 0.880000000000000004Initial program 100.0%
Taylor expanded in x around 0
fp-cancel-sub-sign-invN/A
metadata-evalN/A
+-commutativeN/A
lower-fma.f6498.9
Applied rewrites98.9%
Final simplification98.5%
(FPCore (x y) :precision binary64 (if (or (<= y -4.3e+19) (not (<= y 1.85))) (* -0.5 y) (- 0.918938533204673 x)))
double code(double x, double y) {
double tmp;
if ((y <= -4.3e+19) || !(y <= 1.85)) {
tmp = -0.5 * y;
} else {
tmp = 0.918938533204673 - x;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if ((y <= (-4.3d+19)) .or. (.not. (y <= 1.85d0))) then
tmp = (-0.5d0) * y
else
tmp = 0.918938533204673d0 - x
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if ((y <= -4.3e+19) || !(y <= 1.85)) {
tmp = -0.5 * y;
} else {
tmp = 0.918938533204673 - x;
}
return tmp;
}
def code(x, y): tmp = 0 if (y <= -4.3e+19) or not (y <= 1.85): tmp = -0.5 * y else: tmp = 0.918938533204673 - x return tmp
function code(x, y) tmp = 0.0 if ((y <= -4.3e+19) || !(y <= 1.85)) tmp = Float64(-0.5 * y); else tmp = Float64(0.918938533204673 - x); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if ((y <= -4.3e+19) || ~((y <= 1.85))) tmp = -0.5 * y; else tmp = 0.918938533204673 - x; end tmp_2 = tmp; end
code[x_, y_] := If[Or[LessEqual[y, -4.3e+19], N[Not[LessEqual[y, 1.85]], $MachinePrecision]], N[(-0.5 * y), $MachinePrecision], N[(0.918938533204673 - x), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -4.3 \cdot 10^{+19} \lor \neg \left(y \leq 1.85\right):\\
\;\;\;\;-0.5 \cdot y\\
\mathbf{else}:\\
\;\;\;\;0.918938533204673 - x\\
\end{array}
\end{array}
if y < -4.3e19 or 1.8500000000000001 < y Initial program 100.0%
Taylor expanded in y around inf
*-commutativeN/A
lower-*.f64N/A
lower--.f6499.2
Applied rewrites99.2%
Taylor expanded in x around 0
Applied rewrites60.1%
if -4.3e19 < y < 1.8500000000000001Initial program 100.0%
Taylor expanded in y around 0
fp-cancel-sign-sub-invN/A
metadata-evalN/A
*-lft-identityN/A
lower--.f6496.9
Applied rewrites96.9%
Final simplification79.5%
(FPCore (x y) :precision binary64 (if (or (<= x -0.92) (not (<= x 1350.0))) (- x) 0.918938533204673))
double code(double x, double y) {
double tmp;
if ((x <= -0.92) || !(x <= 1350.0)) {
tmp = -x;
} else {
tmp = 0.918938533204673;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if ((x <= (-0.92d0)) .or. (.not. (x <= 1350.0d0))) then
tmp = -x
else
tmp = 0.918938533204673d0
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if ((x <= -0.92) || !(x <= 1350.0)) {
tmp = -x;
} else {
tmp = 0.918938533204673;
}
return tmp;
}
def code(x, y): tmp = 0 if (x <= -0.92) or not (x <= 1350.0): tmp = -x else: tmp = 0.918938533204673 return tmp
function code(x, y) tmp = 0.0 if ((x <= -0.92) || !(x <= 1350.0)) tmp = Float64(-x); else tmp = 0.918938533204673; end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if ((x <= -0.92) || ~((x <= 1350.0))) tmp = -x; else tmp = 0.918938533204673; end tmp_2 = tmp; end
code[x_, y_] := If[Or[LessEqual[x, -0.92], N[Not[LessEqual[x, 1350.0]], $MachinePrecision]], (-x), 0.918938533204673]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -0.92 \lor \neg \left(x \leq 1350\right):\\
\;\;\;\;-x\\
\mathbf{else}:\\
\;\;\;\;0.918938533204673\\
\end{array}
\end{array}
if x < -0.92000000000000004 or 1350 < x Initial program 99.9%
Taylor expanded in y around 0
fp-cancel-sign-sub-invN/A
metadata-evalN/A
*-lft-identityN/A
lower--.f6454.8
Applied rewrites54.8%
Taylor expanded in x around inf
Applied rewrites53.6%
if -0.92000000000000004 < x < 1350Initial program 100.0%
Taylor expanded in y around 0
fp-cancel-sign-sub-invN/A
metadata-evalN/A
*-lft-identityN/A
lower--.f6450.8
Applied rewrites50.8%
Taylor expanded in x around 0
Applied rewrites50.3%
Final simplification51.7%
(FPCore (x y) :precision binary64 (- 0.918938533204673 x))
double code(double x, double y) {
return 0.918938533204673 - x;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 0.918938533204673d0 - x
end function
public static double code(double x, double y) {
return 0.918938533204673 - x;
}
def code(x, y): return 0.918938533204673 - x
function code(x, y) return Float64(0.918938533204673 - x) end
function tmp = code(x, y) tmp = 0.918938533204673 - x; end
code[x_, y_] := N[(0.918938533204673 - x), $MachinePrecision]
\begin{array}{l}
\\
0.918938533204673 - x
\end{array}
Initial program 100.0%
Taylor expanded in y around 0
fp-cancel-sign-sub-invN/A
metadata-evalN/A
*-lft-identityN/A
lower--.f6452.5
Applied rewrites52.5%
(FPCore (x y) :precision binary64 0.918938533204673)
double code(double x, double y) {
return 0.918938533204673;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 0.918938533204673d0
end function
public static double code(double x, double y) {
return 0.918938533204673;
}
def code(x, y): return 0.918938533204673
function code(x, y) return 0.918938533204673 end
function tmp = code(x, y) tmp = 0.918938533204673; end
code[x_, y_] := 0.918938533204673
\begin{array}{l}
\\
0.918938533204673
\end{array}
Initial program 100.0%
Taylor expanded in y around 0
fp-cancel-sign-sub-invN/A
metadata-evalN/A
*-lft-identityN/A
lower--.f6452.5
Applied rewrites52.5%
Taylor expanded in x around 0
Applied rewrites30.1%
herbie shell --seed 2024339
(FPCore (x y)
:name "Numeric.SpecFunctions:logGamma from math-functions-0.1.5.2, A"
:precision binary64
(+ (- (* x (- y 1.0)) (* y 0.5)) 0.918938533204673))