
(FPCore (x y z t) :precision binary64 (- x (/ (* (* y 2.0) z) (- (* (* z 2.0) z) (* y t)))))
double code(double x, double y, double z, double t) {
return x - (((y * 2.0) * z) / (((z * 2.0) * z) - (y * t)));
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = x - (((y * 2.0d0) * z) / (((z * 2.0d0) * z) - (y * t)))
end function
public static double code(double x, double y, double z, double t) {
return x - (((y * 2.0) * z) / (((z * 2.0) * z) - (y * t)));
}
def code(x, y, z, t): return x - (((y * 2.0) * z) / (((z * 2.0) * z) - (y * t)))
function code(x, y, z, t) return Float64(x - Float64(Float64(Float64(y * 2.0) * z) / Float64(Float64(Float64(z * 2.0) * z) - Float64(y * t)))) end
function tmp = code(x, y, z, t) tmp = x - (((y * 2.0) * z) / (((z * 2.0) * z) - (y * t))); end
code[x_, y_, z_, t_] := N[(x - N[(N[(N[(y * 2.0), $MachinePrecision] * z), $MachinePrecision] / N[(N[(N[(z * 2.0), $MachinePrecision] * z), $MachinePrecision] - N[(y * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x - \frac{\left(y \cdot 2\right) \cdot z}{\left(z \cdot 2\right) \cdot z - y \cdot t}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 7 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t) :precision binary64 (- x (/ (* (* y 2.0) z) (- (* (* z 2.0) z) (* y t)))))
double code(double x, double y, double z, double t) {
return x - (((y * 2.0) * z) / (((z * 2.0) * z) - (y * t)));
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = x - (((y * 2.0d0) * z) / (((z * 2.0d0) * z) - (y * t)))
end function
public static double code(double x, double y, double z, double t) {
return x - (((y * 2.0) * z) / (((z * 2.0) * z) - (y * t)));
}
def code(x, y, z, t): return x - (((y * 2.0) * z) / (((z * 2.0) * z) - (y * t)))
function code(x, y, z, t) return Float64(x - Float64(Float64(Float64(y * 2.0) * z) / Float64(Float64(Float64(z * 2.0) * z) - Float64(y * t)))) end
function tmp = code(x, y, z, t) tmp = x - (((y * 2.0) * z) / (((z * 2.0) * z) - (y * t))); end
code[x_, y_, z_, t_] := N[(x - N[(N[(N[(y * 2.0), $MachinePrecision] * z), $MachinePrecision] / N[(N[(N[(z * 2.0), $MachinePrecision] * z), $MachinePrecision] - N[(y * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x - \frac{\left(y \cdot 2\right) \cdot z}{\left(z \cdot 2\right) \cdot z - y \cdot t}
\end{array}
(FPCore (x y z t) :precision binary64 (fma (/ y (+ (* z -2.0) (/ y (/ z t)))) 2.0 x))
double code(double x, double y, double z, double t) {
return fma((y / ((z * -2.0) + (y / (z / t)))), 2.0, x);
}
function code(x, y, z, t) return fma(Float64(y / Float64(Float64(z * -2.0) + Float64(y / Float64(z / t)))), 2.0, x) end
code[x_, y_, z_, t_] := N[(N[(y / N[(N[(z * -2.0), $MachinePrecision] + N[(y / N[(z / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * 2.0 + x), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\frac{y}{z \cdot -2 + \frac{y}{\frac{z}{t}}}, 2, x\right)
\end{array}
Initial program 84.3%
Simplified98.3%
Final simplification98.3%
(FPCore (x y z t)
:precision binary64
(if (or (<= z -1.25e+14)
(and (not (<= z 2.5e-61)) (or (<= z 1.9e+16) (not (<= z 1.26e+51)))))
(- x (/ y z))
(+ x (* z (/ 2.0 t)))))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -1.25e+14) || (!(z <= 2.5e-61) && ((z <= 1.9e+16) || !(z <= 1.26e+51)))) {
tmp = x - (y / z);
} else {
tmp = x + (z * (2.0 / t));
}
return tmp;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if ((z <= (-1.25d+14)) .or. (.not. (z <= 2.5d-61)) .and. (z <= 1.9d+16) .or. (.not. (z <= 1.26d+51))) then
tmp = x - (y / z)
else
tmp = x + (z * (2.0d0 / t))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -1.25e+14) || (!(z <= 2.5e-61) && ((z <= 1.9e+16) || !(z <= 1.26e+51)))) {
tmp = x - (y / z);
} else {
tmp = x + (z * (2.0 / t));
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (z <= -1.25e+14) or (not (z <= 2.5e-61) and ((z <= 1.9e+16) or not (z <= 1.26e+51))): tmp = x - (y / z) else: tmp = x + (z * (2.0 / t)) return tmp
function code(x, y, z, t) tmp = 0.0 if ((z <= -1.25e+14) || (!(z <= 2.5e-61) && ((z <= 1.9e+16) || !(z <= 1.26e+51)))) tmp = Float64(x - Float64(y / z)); else tmp = Float64(x + Float64(z * Float64(2.0 / t))); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((z <= -1.25e+14) || (~((z <= 2.5e-61)) && ((z <= 1.9e+16) || ~((z <= 1.26e+51))))) tmp = x - (y / z); else tmp = x + (z * (2.0 / t)); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[z, -1.25e+14], And[N[Not[LessEqual[z, 2.5e-61]], $MachinePrecision], Or[LessEqual[z, 1.9e+16], N[Not[LessEqual[z, 1.26e+51]], $MachinePrecision]]]], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision], N[(x + N[(z * N[(2.0 / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -1.25 \cdot 10^{+14} \lor \neg \left(z \leq 2.5 \cdot 10^{-61}\right) \land \left(z \leq 1.9 \cdot 10^{+16} \lor \neg \left(z \leq 1.26 \cdot 10^{+51}\right)\right):\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x + z \cdot \frac{2}{t}\\
\end{array}
\end{array}
if z < -1.25e14 or 2.4999999999999999e-61 < z < 1.9e16 or 1.25999999999999997e51 < z Initial program 71.9%
sub-neg71.9%
associate-/l*87.4%
distribute-neg-frac87.4%
distribute-lft-neg-out87.4%
associate-/r/86.6%
distribute-lft-neg-out86.6%
distribute-rgt-neg-in86.6%
metadata-eval86.6%
*-commutative86.6%
associate-*l*86.6%
fma-neg86.6%
Simplified86.6%
Taylor expanded in y around 0 86.8%
mul-1-neg86.8%
sub-neg86.8%
Simplified86.8%
if -1.25e14 < z < 2.4999999999999999e-61 or 1.9e16 < z < 1.25999999999999997e51Initial program 94.8%
sub-neg94.8%
associate-/l*95.3%
distribute-neg-frac95.3%
distribute-lft-neg-out95.3%
associate-/r/97.0%
distribute-lft-neg-out97.0%
distribute-rgt-neg-in97.0%
metadata-eval97.0%
*-commutative97.0%
associate-*l*97.0%
fma-neg97.0%
Simplified97.0%
Taylor expanded in y around inf 92.7%
Final simplification90.0%
(FPCore (x y z t)
:precision binary64
(if (or (<= z -7e+18)
(and (not (<= z 2.4e-61))
(or (<= z 70000000000.0) (not (<= z 1.26e+51)))))
(- x (/ y z))
(- x (* -2.0 (/ z t)))))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -7e+18) || (!(z <= 2.4e-61) && ((z <= 70000000000.0) || !(z <= 1.26e+51)))) {
tmp = x - (y / z);
} else {
tmp = x - (-2.0 * (z / t));
}
return tmp;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if ((z <= (-7d+18)) .or. (.not. (z <= 2.4d-61)) .and. (z <= 70000000000.0d0) .or. (.not. (z <= 1.26d+51))) then
tmp = x - (y / z)
else
tmp = x - ((-2.0d0) * (z / t))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -7e+18) || (!(z <= 2.4e-61) && ((z <= 70000000000.0) || !(z <= 1.26e+51)))) {
tmp = x - (y / z);
} else {
tmp = x - (-2.0 * (z / t));
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (z <= -7e+18) or (not (z <= 2.4e-61) and ((z <= 70000000000.0) or not (z <= 1.26e+51))): tmp = x - (y / z) else: tmp = x - (-2.0 * (z / t)) return tmp
function code(x, y, z, t) tmp = 0.0 if ((z <= -7e+18) || (!(z <= 2.4e-61) && ((z <= 70000000000.0) || !(z <= 1.26e+51)))) tmp = Float64(x - Float64(y / z)); else tmp = Float64(x - Float64(-2.0 * Float64(z / t))); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((z <= -7e+18) || (~((z <= 2.4e-61)) && ((z <= 70000000000.0) || ~((z <= 1.26e+51))))) tmp = x - (y / z); else tmp = x - (-2.0 * (z / t)); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[z, -7e+18], And[N[Not[LessEqual[z, 2.4e-61]], $MachinePrecision], Or[LessEqual[z, 70000000000.0], N[Not[LessEqual[z, 1.26e+51]], $MachinePrecision]]]], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision], N[(x - N[(-2.0 * N[(z / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -7 \cdot 10^{+18} \lor \neg \left(z \leq 2.4 \cdot 10^{-61}\right) \land \left(z \leq 70000000000 \lor \neg \left(z \leq 1.26 \cdot 10^{+51}\right)\right):\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x - -2 \cdot \frac{z}{t}\\
\end{array}
\end{array}
if z < -7e18 or 2.4000000000000001e-61 < z < 7e10 or 1.25999999999999997e51 < z Initial program 71.9%
sub-neg71.9%
associate-/l*87.4%
distribute-neg-frac87.4%
distribute-lft-neg-out87.4%
associate-/r/86.6%
distribute-lft-neg-out86.6%
distribute-rgt-neg-in86.6%
metadata-eval86.6%
*-commutative86.6%
associate-*l*86.6%
fma-neg86.6%
Simplified86.6%
Taylor expanded in y around 0 86.8%
mul-1-neg86.8%
sub-neg86.8%
Simplified86.8%
if -7e18 < z < 2.4000000000000001e-61 or 7e10 < z < 1.25999999999999997e51Initial program 94.8%
associate-/l*95.3%
associate-*l*95.3%
Simplified95.3%
Taylor expanded in y around inf 92.9%
*-commutative92.9%
Simplified92.9%
Final simplification90.1%
(FPCore (x y z t) :precision binary64 (if (<= y 1.25e+254) (- x (/ (* y 2.0) (/ (- (* z (* z 2.0)) (* y t)) z))) (+ x (* z (/ 2.0 t)))))
double code(double x, double y, double z, double t) {
double tmp;
if (y <= 1.25e+254) {
tmp = x - ((y * 2.0) / (((z * (z * 2.0)) - (y * t)) / z));
} else {
tmp = x + (z * (2.0 / t));
}
return tmp;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (y <= 1.25d+254) then
tmp = x - ((y * 2.0d0) / (((z * (z * 2.0d0)) - (y * t)) / z))
else
tmp = x + (z * (2.0d0 / t))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (y <= 1.25e+254) {
tmp = x - ((y * 2.0) / (((z * (z * 2.0)) - (y * t)) / z));
} else {
tmp = x + (z * (2.0 / t));
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if y <= 1.25e+254: tmp = x - ((y * 2.0) / (((z * (z * 2.0)) - (y * t)) / z)) else: tmp = x + (z * (2.0 / t)) return tmp
function code(x, y, z, t) tmp = 0.0 if (y <= 1.25e+254) tmp = Float64(x - Float64(Float64(y * 2.0) / Float64(Float64(Float64(z * Float64(z * 2.0)) - Float64(y * t)) / z))); else tmp = Float64(x + Float64(z * Float64(2.0 / t))); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (y <= 1.25e+254) tmp = x - ((y * 2.0) / (((z * (z * 2.0)) - (y * t)) / z)); else tmp = x + (z * (2.0 / t)); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[y, 1.25e+254], N[(x - N[(N[(y * 2.0), $MachinePrecision] / N[(N[(N[(z * N[(z * 2.0), $MachinePrecision]), $MachinePrecision] - N[(y * t), $MachinePrecision]), $MachinePrecision] / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[(z * N[(2.0 / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq 1.25 \cdot 10^{+254}:\\
\;\;\;\;x - \frac{y \cdot 2}{\frac{z \cdot \left(z \cdot 2\right) - y \cdot t}{z}}\\
\mathbf{else}:\\
\;\;\;\;x + z \cdot \frac{2}{t}\\
\end{array}
\end{array}
if y < 1.24999999999999999e254Initial program 87.6%
associate-/l*93.6%
associate-*l*93.6%
Simplified93.6%
if 1.24999999999999999e254 < y Initial program 17.6%
sub-neg17.6%
associate-/l*51.9%
distribute-neg-frac51.9%
distribute-lft-neg-out51.9%
associate-/r/52.0%
distribute-lft-neg-out52.0%
distribute-rgt-neg-in52.0%
metadata-eval52.0%
*-commutative52.0%
associate-*l*52.0%
fma-neg52.0%
Simplified52.0%
Taylor expanded in y around inf 92.2%
Final simplification93.6%
(FPCore (x y z t) :precision binary64 (- x (/ (* y 2.0) (- (/ (* z (* z 2.0)) z) (* t (/ y z))))))
double code(double x, double y, double z, double t) {
return x - ((y * 2.0) / (((z * (z * 2.0)) / z) - (t * (y / z))));
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = x - ((y * 2.0d0) / (((z * (z * 2.0d0)) / z) - (t * (y / z))))
end function
public static double code(double x, double y, double z, double t) {
return x - ((y * 2.0) / (((z * (z * 2.0)) / z) - (t * (y / z))));
}
def code(x, y, z, t): return x - ((y * 2.0) / (((z * (z * 2.0)) / z) - (t * (y / z))))
function code(x, y, z, t) return Float64(x - Float64(Float64(y * 2.0) / Float64(Float64(Float64(z * Float64(z * 2.0)) / z) - Float64(t * Float64(y / z))))) end
function tmp = code(x, y, z, t) tmp = x - ((y * 2.0) / (((z * (z * 2.0)) / z) - (t * (y / z)))); end
code[x_, y_, z_, t_] := N[(x - N[(N[(y * 2.0), $MachinePrecision] / N[(N[(N[(z * N[(z * 2.0), $MachinePrecision]), $MachinePrecision] / z), $MachinePrecision] - N[(t * N[(y / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x - \frac{y \cdot 2}{\frac{z \cdot \left(z \cdot 2\right)}{z} - t \cdot \frac{y}{z}}
\end{array}
Initial program 84.3%
associate-/l*91.7%
associate-*l*91.7%
Simplified91.7%
div-sub91.7%
Applied egg-rr91.7%
*-commutative91.7%
associate-*r*91.7%
unpow291.7%
*-commutative91.7%
unpow291.7%
associate-*r*91.7%
associate-*l/93.3%
*-commutative93.3%
Simplified93.3%
Final simplification93.3%
(FPCore (x y z t) :precision binary64 (if (or (<= z -8.5e-141) (not (<= z 1.55e-76))) (- x (/ y z)) x))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -8.5e-141) || !(z <= 1.55e-76)) {
tmp = x - (y / z);
} else {
tmp = x;
}
return tmp;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if ((z <= (-8.5d-141)) .or. (.not. (z <= 1.55d-76))) then
tmp = x - (y / z)
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -8.5e-141) || !(z <= 1.55e-76)) {
tmp = x - (y / z);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (z <= -8.5e-141) or not (z <= 1.55e-76): tmp = x - (y / z) else: tmp = x return tmp
function code(x, y, z, t) tmp = 0.0 if ((z <= -8.5e-141) || !(z <= 1.55e-76)) tmp = Float64(x - Float64(y / z)); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((z <= -8.5e-141) || ~((z <= 1.55e-76))) tmp = x - (y / z); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[z, -8.5e-141], N[Not[LessEqual[z, 1.55e-76]], $MachinePrecision]], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision], x]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -8.5 \cdot 10^{-141} \lor \neg \left(z \leq 1.55 \cdot 10^{-76}\right):\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if z < -8.50000000000000021e-141 or 1.54999999999999985e-76 < z Initial program 78.3%
sub-neg78.3%
associate-/l*90.5%
distribute-neg-frac90.5%
distribute-lft-neg-out90.5%
associate-/r/89.9%
distribute-lft-neg-out89.9%
distribute-rgt-neg-in89.9%
metadata-eval89.9%
*-commutative89.9%
associate-*l*89.9%
fma-neg89.9%
Simplified89.9%
Taylor expanded in y around 0 78.8%
mul-1-neg78.8%
sub-neg78.8%
Simplified78.8%
if -8.50000000000000021e-141 < z < 1.54999999999999985e-76Initial program 93.8%
sub-neg93.8%
associate-/l*93.5%
distribute-neg-frac93.5%
distribute-lft-neg-out93.5%
associate-/r/95.9%
distribute-lft-neg-out95.9%
distribute-rgt-neg-in95.9%
metadata-eval95.9%
*-commutative95.9%
associate-*l*95.9%
fma-neg95.9%
Simplified95.9%
Taylor expanded in x around inf 82.4%
Final simplification80.2%
(FPCore (x y z t) :precision binary64 x)
double code(double x, double y, double z, double t) {
return x;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = x
end function
public static double code(double x, double y, double z, double t) {
return x;
}
def code(x, y, z, t): return x
function code(x, y, z, t) return x end
function tmp = code(x, y, z, t) tmp = x; end
code[x_, y_, z_, t_] := x
\begin{array}{l}
\\
x
\end{array}
Initial program 84.3%
sub-neg84.3%
associate-/l*91.7%
distribute-neg-frac91.7%
distribute-lft-neg-out91.7%
associate-/r/92.2%
distribute-lft-neg-out92.2%
distribute-rgt-neg-in92.2%
metadata-eval92.2%
*-commutative92.2%
associate-*l*92.2%
fma-neg92.2%
Simplified92.2%
Taylor expanded in x around inf 74.7%
Final simplification74.7%
(FPCore (x y z t) :precision binary64 (- x (/ 1.0 (- (/ z y) (/ (/ t 2.0) z)))))
double code(double x, double y, double z, double t) {
return x - (1.0 / ((z / y) - ((t / 2.0) / z)));
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = x - (1.0d0 / ((z / y) - ((t / 2.0d0) / z)))
end function
public static double code(double x, double y, double z, double t) {
return x - (1.0 / ((z / y) - ((t / 2.0) / z)));
}
def code(x, y, z, t): return x - (1.0 / ((z / y) - ((t / 2.0) / z)))
function code(x, y, z, t) return Float64(x - Float64(1.0 / Float64(Float64(z / y) - Float64(Float64(t / 2.0) / z)))) end
function tmp = code(x, y, z, t) tmp = x - (1.0 / ((z / y) - ((t / 2.0) / z))); end
code[x_, y_, z_, t_] := N[(x - N[(1.0 / N[(N[(z / y), $MachinePrecision] - N[(N[(t / 2.0), $MachinePrecision] / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x - \frac{1}{\frac{z}{y} - \frac{\frac{t}{2}}{z}}
\end{array}
herbie shell --seed 2024019
(FPCore (x y z t)
:name "Numeric.AD.Rank1.Halley:findZero from ad-4.2.4"
:precision binary64
:herbie-target
(- x (/ 1.0 (- (/ z y) (/ (/ t 2.0) z))))
(- x (/ (* (* y 2.0) z) (- (* (* z 2.0) z) (* y t)))))