
(FPCore (x y) :precision binary64 (/ (* (* x 2.0) y) (- x y)))
double code(double x, double y) {
return ((x * 2.0) * y) / (x - y);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = ((x * 2.0d0) * y) / (x - y)
end function
public static double code(double x, double y) {
return ((x * 2.0) * y) / (x - y);
}
def code(x, y): return ((x * 2.0) * y) / (x - y)
function code(x, y) return Float64(Float64(Float64(x * 2.0) * y) / Float64(x - y)) end
function tmp = code(x, y) tmp = ((x * 2.0) * y) / (x - y); end
code[x_, y_] := N[(N[(N[(x * 2.0), $MachinePrecision] * y), $MachinePrecision] / N[(x - y), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\left(x \cdot 2\right) \cdot y}{x - y}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 5 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y) :precision binary64 (/ (* (* x 2.0) y) (- x y)))
double code(double x, double y) {
return ((x * 2.0) * y) / (x - y);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = ((x * 2.0d0) * y) / (x - y)
end function
public static double code(double x, double y) {
return ((x * 2.0) * y) / (x - y);
}
def code(x, y): return ((x * 2.0) * y) / (x - y)
function code(x, y) return Float64(Float64(Float64(x * 2.0) * y) / Float64(x - y)) end
function tmp = code(x, y) tmp = ((x * 2.0) * y) / (x - y); end
code[x_, y_] := N[(N[(N[(x * 2.0), $MachinePrecision] * y), $MachinePrecision] / N[(x - y), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\left(x \cdot 2\right) \cdot y}{x - y}
\end{array}
(FPCore (x y) :precision binary64 (if (or (<= y -1.5e-25) (not (<= y 1.1e+102))) (* x (/ 2.0 (/ (- x y) y))) (* y (/ (* 2.0 x) (- x y)))))
double code(double x, double y) {
double tmp;
if ((y <= -1.5e-25) || !(y <= 1.1e+102)) {
tmp = x * (2.0 / ((x - y) / y));
} else {
tmp = y * ((2.0 * x) / (x - y));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if ((y <= (-1.5d-25)) .or. (.not. (y <= 1.1d+102))) then
tmp = x * (2.0d0 / ((x - y) / y))
else
tmp = y * ((2.0d0 * x) / (x - y))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if ((y <= -1.5e-25) || !(y <= 1.1e+102)) {
tmp = x * (2.0 / ((x - y) / y));
} else {
tmp = y * ((2.0 * x) / (x - y));
}
return tmp;
}
def code(x, y): tmp = 0 if (y <= -1.5e-25) or not (y <= 1.1e+102): tmp = x * (2.0 / ((x - y) / y)) else: tmp = y * ((2.0 * x) / (x - y)) return tmp
function code(x, y) tmp = 0.0 if ((y <= -1.5e-25) || !(y <= 1.1e+102)) tmp = Float64(x * Float64(2.0 / Float64(Float64(x - y) / y))); else tmp = Float64(y * Float64(Float64(2.0 * x) / Float64(x - y))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if ((y <= -1.5e-25) || ~((y <= 1.1e+102))) tmp = x * (2.0 / ((x - y) / y)); else tmp = y * ((2.0 * x) / (x - y)); end tmp_2 = tmp; end
code[x_, y_] := If[Or[LessEqual[y, -1.5e-25], N[Not[LessEqual[y, 1.1e+102]], $MachinePrecision]], N[(x * N[(2.0 / N[(N[(x - y), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y * N[(N[(2.0 * x), $MachinePrecision] / N[(x - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.5 \cdot 10^{-25} \lor \neg \left(y \leq 1.1 \cdot 10^{+102}\right):\\
\;\;\;\;x \cdot \frac{2}{\frac{x - y}{y}}\\
\mathbf{else}:\\
\;\;\;\;y \cdot \frac{2 \cdot x}{x - y}\\
\end{array}
\end{array}
if y < -1.4999999999999999e-25 or 1.10000000000000004e102 < y Initial program 67.1%
associate-/l*99.9%
associate-*r/99.9%
Simplified99.9%
if -1.4999999999999999e-25 < y < 1.10000000000000004e102Initial program 79.2%
associate-*l/99.9%
Simplified99.9%
Final simplification99.9%
(FPCore (x y) :precision binary64 (if (or (<= y -2.6e-55) (not (<= y 2.6e-238))) (* x (/ 2.0 (/ (- x y) y))) (* 2.0 y)))
double code(double x, double y) {
double tmp;
if ((y <= -2.6e-55) || !(y <= 2.6e-238)) {
tmp = x * (2.0 / ((x - y) / y));
} else {
tmp = 2.0 * y;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if ((y <= (-2.6d-55)) .or. (.not. (y <= 2.6d-238))) then
tmp = x * (2.0d0 / ((x - y) / y))
else
tmp = 2.0d0 * y
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if ((y <= -2.6e-55) || !(y <= 2.6e-238)) {
tmp = x * (2.0 / ((x - y) / y));
} else {
tmp = 2.0 * y;
}
return tmp;
}
def code(x, y): tmp = 0 if (y <= -2.6e-55) or not (y <= 2.6e-238): tmp = x * (2.0 / ((x - y) / y)) else: tmp = 2.0 * y return tmp
function code(x, y) tmp = 0.0 if ((y <= -2.6e-55) || !(y <= 2.6e-238)) tmp = Float64(x * Float64(2.0 / Float64(Float64(x - y) / y))); else tmp = Float64(2.0 * y); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if ((y <= -2.6e-55) || ~((y <= 2.6e-238))) tmp = x * (2.0 / ((x - y) / y)); else tmp = 2.0 * y; end tmp_2 = tmp; end
code[x_, y_] := If[Or[LessEqual[y, -2.6e-55], N[Not[LessEqual[y, 2.6e-238]], $MachinePrecision]], N[(x * N[(2.0 / N[(N[(x - y), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(2.0 * y), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -2.6 \cdot 10^{-55} \lor \neg \left(y \leq 2.6 \cdot 10^{-238}\right):\\
\;\;\;\;x \cdot \frac{2}{\frac{x - y}{y}}\\
\mathbf{else}:\\
\;\;\;\;2 \cdot y\\
\end{array}
\end{array}
if y < -2.5999999999999999e-55 or 2.6000000000000001e-238 < y Initial program 72.0%
associate-/l*97.4%
associate-*r/97.3%
Simplified97.3%
if -2.5999999999999999e-55 < y < 2.6000000000000001e-238Initial program 76.2%
associate-/l*65.5%
associate-*r/65.4%
Simplified65.4%
Taylor expanded in x around inf 91.0%
Final simplification95.7%
(FPCore (x y) :precision binary64 (/ 2.0 (+ (/ 1.0 y) (/ -1.0 x))))
double code(double x, double y) {
return 2.0 / ((1.0 / y) + (-1.0 / x));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 2.0d0 / ((1.0d0 / y) + ((-1.0d0) / x))
end function
public static double code(double x, double y) {
return 2.0 / ((1.0 / y) + (-1.0 / x));
}
def code(x, y): return 2.0 / ((1.0 / y) + (-1.0 / x))
function code(x, y) return Float64(2.0 / Float64(Float64(1.0 / y) + Float64(-1.0 / x))) end
function tmp = code(x, y) tmp = 2.0 / ((1.0 / y) + (-1.0 / x)); end
code[x_, y_] := N[(2.0 / N[(N[(1.0 / y), $MachinePrecision] + N[(-1.0 / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{2}{\frac{1}{y} + \frac{-1}{x}}
\end{array}
Initial program 73.1%
associate-/l*88.9%
associate-*r/88.9%
Simplified88.9%
associate-*r/88.9%
*-commutative88.9%
associate-/l*88.7%
div-sub88.8%
*-inverses88.8%
sub-neg88.8%
metadata-eval88.8%
Applied egg-rr88.8%
Taylor expanded in x around 0 99.8%
Final simplification99.8%
(FPCore (x y) :precision binary64 (if (<= y -1.35e-25) (* x -2.0) (if (<= y 4.4e-68) (* 2.0 y) (* x -2.0))))
double code(double x, double y) {
double tmp;
if (y <= -1.35e-25) {
tmp = x * -2.0;
} else if (y <= 4.4e-68) {
tmp = 2.0 * y;
} else {
tmp = x * -2.0;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if (y <= (-1.35d-25)) then
tmp = x * (-2.0d0)
else if (y <= 4.4d-68) then
tmp = 2.0d0 * y
else
tmp = x * (-2.0d0)
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (y <= -1.35e-25) {
tmp = x * -2.0;
} else if (y <= 4.4e-68) {
tmp = 2.0 * y;
} else {
tmp = x * -2.0;
}
return tmp;
}
def code(x, y): tmp = 0 if y <= -1.35e-25: tmp = x * -2.0 elif y <= 4.4e-68: tmp = 2.0 * y else: tmp = x * -2.0 return tmp
function code(x, y) tmp = 0.0 if (y <= -1.35e-25) tmp = Float64(x * -2.0); elseif (y <= 4.4e-68) tmp = Float64(2.0 * y); else tmp = Float64(x * -2.0); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (y <= -1.35e-25) tmp = x * -2.0; elseif (y <= 4.4e-68) tmp = 2.0 * y; else tmp = x * -2.0; end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, -1.35e-25], N[(x * -2.0), $MachinePrecision], If[LessEqual[y, 4.4e-68], N[(2.0 * y), $MachinePrecision], N[(x * -2.0), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.35 \cdot 10^{-25}:\\
\;\;\;\;x \cdot -2\\
\mathbf{elif}\;y \leq 4.4 \cdot 10^{-68}:\\
\;\;\;\;2 \cdot y\\
\mathbf{else}:\\
\;\;\;\;x \cdot -2\\
\end{array}
\end{array}
if y < -1.35000000000000008e-25 or 4.40000000000000005e-68 < y Initial program 72.1%
associate-/l*99.9%
associate-*r/99.9%
Simplified99.9%
Taylor expanded in x around 0 77.6%
if -1.35000000000000008e-25 < y < 4.40000000000000005e-68Initial program 74.6%
associate-/l*72.0%
associate-*r/72.0%
Simplified72.0%
Taylor expanded in x around inf 82.7%
Final simplification79.6%
(FPCore (x y) :precision binary64 (* 2.0 y))
double code(double x, double y) {
return 2.0 * y;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 2.0d0 * y
end function
public static double code(double x, double y) {
return 2.0 * y;
}
def code(x, y): return 2.0 * y
function code(x, y) return Float64(2.0 * y) end
function tmp = code(x, y) tmp = 2.0 * y; end
code[x_, y_] := N[(2.0 * y), $MachinePrecision]
\begin{array}{l}
\\
2 \cdot y
\end{array}
Initial program 73.1%
associate-/l*88.9%
associate-*r/88.9%
Simplified88.9%
Taylor expanded in x around inf 46.0%
Final simplification46.0%
(FPCore (x y)
:precision binary64
(let* ((t_0 (* (/ (* 2.0 x) (- x y)) y)))
(if (< x -1.7210442634149447e+81)
t_0
(if (< x 83645045635564430.0) (/ (* x 2.0) (/ (- x y) y)) t_0))))
double code(double x, double y) {
double t_0 = ((2.0 * x) / (x - y)) * y;
double tmp;
if (x < -1.7210442634149447e+81) {
tmp = t_0;
} else if (x < 83645045635564430.0) {
tmp = (x * 2.0) / ((x - y) / y);
} else {
tmp = t_0;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: tmp
t_0 = ((2.0d0 * x) / (x - y)) * y
if (x < (-1.7210442634149447d+81)) then
tmp = t_0
else if (x < 83645045635564430.0d0) then
tmp = (x * 2.0d0) / ((x - y) / y)
else
tmp = t_0
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = ((2.0 * x) / (x - y)) * y;
double tmp;
if (x < -1.7210442634149447e+81) {
tmp = t_0;
} else if (x < 83645045635564430.0) {
tmp = (x * 2.0) / ((x - y) / y);
} else {
tmp = t_0;
}
return tmp;
}
def code(x, y): t_0 = ((2.0 * x) / (x - y)) * y tmp = 0 if x < -1.7210442634149447e+81: tmp = t_0 elif x < 83645045635564430.0: tmp = (x * 2.0) / ((x - y) / y) else: tmp = t_0 return tmp
function code(x, y) t_0 = Float64(Float64(Float64(2.0 * x) / Float64(x - y)) * y) tmp = 0.0 if (x < -1.7210442634149447e+81) tmp = t_0; elseif (x < 83645045635564430.0) tmp = Float64(Float64(x * 2.0) / Float64(Float64(x - y) / y)); else tmp = t_0; end return tmp end
function tmp_2 = code(x, y) t_0 = ((2.0 * x) / (x - y)) * y; tmp = 0.0; if (x < -1.7210442634149447e+81) tmp = t_0; elseif (x < 83645045635564430.0) tmp = (x * 2.0) / ((x - y) / y); else tmp = t_0; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(N[(N[(2.0 * x), $MachinePrecision] / N[(x - y), $MachinePrecision]), $MachinePrecision] * y), $MachinePrecision]}, If[Less[x, -1.7210442634149447e+81], t$95$0, If[Less[x, 83645045635564430.0], N[(N[(x * 2.0), $MachinePrecision] / N[(N[(x - y), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision], t$95$0]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{2 \cdot x}{x - y} \cdot y\\
\mathbf{if}\;x < -1.7210442634149447 \cdot 10^{+81}:\\
\;\;\;\;t_0\\
\mathbf{elif}\;x < 83645045635564430:\\
\;\;\;\;\frac{x \cdot 2}{\frac{x - y}{y}}\\
\mathbf{else}:\\
\;\;\;\;t_0\\
\end{array}
\end{array}
herbie shell --seed 2023196
(FPCore (x y)
:name "Linear.Projection:perspective from linear-1.19.1.3, B"
:precision binary64
:herbie-target
(if (< x -1.7210442634149447e+81) (* (/ (* 2.0 x) (- x y)) y) (if (< x 83645045635564430.0) (/ (* x 2.0) (/ (- x y) y)) (* (/ (* 2.0 x) (- x y)) y)))
(/ (* (* x 2.0) y) (- x y)))