
(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 5 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 83.4%
Simplified98.1%
Final simplification98.1%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (- (* z (* z 2.0)) (* y t))))
(if (<= (/ (* z (* y 2.0)) t_1) INFINITY)
(- x (/ (* y 2.0) (/ t_1 z)))
(- x (/ y z)))))
double code(double x, double y, double z, double t) {
double t_1 = (z * (z * 2.0)) - (y * t);
double tmp;
if (((z * (y * 2.0)) / t_1) <= ((double) INFINITY)) {
tmp = x - ((y * 2.0) / (t_1 / z));
} else {
tmp = x - (y / z);
}
return tmp;
}
public static double code(double x, double y, double z, double t) {
double t_1 = (z * (z * 2.0)) - (y * t);
double tmp;
if (((z * (y * 2.0)) / t_1) <= Double.POSITIVE_INFINITY) {
tmp = x - ((y * 2.0) / (t_1 / z));
} else {
tmp = x - (y / z);
}
return tmp;
}
def code(x, y, z, t): t_1 = (z * (z * 2.0)) - (y * t) tmp = 0 if ((z * (y * 2.0)) / t_1) <= math.inf: tmp = x - ((y * 2.0) / (t_1 / z)) else: tmp = x - (y / z) return tmp
function code(x, y, z, t) t_1 = Float64(Float64(z * Float64(z * 2.0)) - Float64(y * t)) tmp = 0.0 if (Float64(Float64(z * Float64(y * 2.0)) / t_1) <= Inf) tmp = Float64(x - Float64(Float64(y * 2.0) / Float64(t_1 / z))); else tmp = Float64(x - Float64(y / z)); end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = (z * (z * 2.0)) - (y * t); tmp = 0.0; if (((z * (y * 2.0)) / t_1) <= Inf) tmp = x - ((y * 2.0) / (t_1 / z)); else tmp = x - (y / z); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(z * N[(z * 2.0), $MachinePrecision]), $MachinePrecision] - N[(y * t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(N[(z * N[(y * 2.0), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision], Infinity], N[(x - N[(N[(y * 2.0), $MachinePrecision] / N[(t$95$1 / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := z \cdot \left(z \cdot 2\right) - y \cdot t\\
\mathbf{if}\;\frac{z \cdot \left(y \cdot 2\right)}{t_1} \leq \infty:\\
\;\;\;\;x - \frac{y \cdot 2}{\frac{t_1}{z}}\\
\mathbf{else}:\\
\;\;\;\;x - \frac{y}{z}\\
\end{array}
\end{array}
if (/.f64 (*.f64 (*.f64 y 2) z) (-.f64 (*.f64 (*.f64 z 2) z) (*.f64 y t))) < +inf.0Initial program 94.5%
associate-/l*97.8%
associate-*l*97.8%
Simplified97.8%
if +inf.0 < (/.f64 (*.f64 (*.f64 y 2) z) (-.f64 (*.f64 (*.f64 z 2) z) (*.f64 y t))) Initial program 0.0%
associate-/l*47.7%
associate-*l*47.7%
Simplified47.7%
Taylor expanded in y around 0 80.3%
Final simplification95.8%
(FPCore (x y z t) :precision binary64 (if (or (<= z -3100.0) (not (<= z 8.5e+70))) (- x (/ y z)) (- x (* -2.0 (/ z t)))))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -3100.0) || !(z <= 8.5e+70)) {
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 <= (-3100.0d0)) .or. (.not. (z <= 8.5d+70))) 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 <= -3100.0) || !(z <= 8.5e+70)) {
tmp = x - (y / z);
} else {
tmp = x - (-2.0 * (z / t));
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (z <= -3100.0) or not (z <= 8.5e+70): tmp = x - (y / z) else: tmp = x - (-2.0 * (z / t)) return tmp
function code(x, y, z, t) tmp = 0.0 if ((z <= -3100.0) || !(z <= 8.5e+70)) 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 <= -3100.0) || ~((z <= 8.5e+70))) 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, -3100.0], N[Not[LessEqual[z, 8.5e+70]], $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 -3100 \lor \neg \left(z \leq 8.5 \cdot 10^{+70}\right):\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x - -2 \cdot \frac{z}{t}\\
\end{array}
\end{array}
if z < -3100 or 8.4999999999999996e70 < z Initial program 78.9%
associate-/l*94.0%
associate-*l*94.0%
Simplified94.0%
Taylor expanded in y around 0 97.8%
if -3100 < z < 8.4999999999999996e70Initial program 87.1%
associate-/l*90.3%
associate-*l*90.3%
Simplified90.3%
Taylor expanded in y around inf 93.9%
Final simplification95.6%
(FPCore (x y z t) :precision binary64 (if (or (<= z -3e-26) (not (<= z 2.8e+59))) (- x (/ y z)) x))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -3e-26) || !(z <= 2.8e+59)) {
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 <= (-3d-26)) .or. (.not. (z <= 2.8d+59))) 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 <= -3e-26) || !(z <= 2.8e+59)) {
tmp = x - (y / z);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (z <= -3e-26) or not (z <= 2.8e+59): tmp = x - (y / z) else: tmp = x return tmp
function code(x, y, z, t) tmp = 0.0 if ((z <= -3e-26) || !(z <= 2.8e+59)) 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 <= -3e-26) || ~((z <= 2.8e+59))) tmp = x - (y / z); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[z, -3e-26], N[Not[LessEqual[z, 2.8e+59]], $MachinePrecision]], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision], x]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -3 \cdot 10^{-26} \lor \neg \left(z \leq 2.8 \cdot 10^{+59}\right):\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if z < -3.00000000000000012e-26 or 2.7999999999999998e59 < z Initial program 78.7%
associate-/l*93.6%
associate-*l*93.6%
Simplified93.6%
Taylor expanded in y around 0 94.8%
if -3.00000000000000012e-26 < z < 2.7999999999999998e59Initial program 87.7%
associate-/l*90.5%
associate-*l*90.5%
Simplified90.5%
Taylor expanded in x around inf 74.1%
Final simplification83.9%
(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 83.4%
associate-/l*92.0%
associate-*l*92.0%
Simplified92.0%
Taylor expanded in x around inf 75.9%
Final simplification75.9%
(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 2023336
(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)))))