
(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 6 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 (+ x (/ -1.0 (+ (/ -0.5 (/ z t)) (/ z y)))))
double code(double x, double y, double z, double t) {
return x + (-1.0 / ((-0.5 / (z / t)) + (z / y)));
}
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) / (((-0.5d0) / (z / t)) + (z / y)))
end function
public static double code(double x, double y, double z, double t) {
return x + (-1.0 / ((-0.5 / (z / t)) + (z / y)));
}
def code(x, y, z, t): return x + (-1.0 / ((-0.5 / (z / t)) + (z / y)))
function code(x, y, z, t) return Float64(x + Float64(-1.0 / Float64(Float64(-0.5 / Float64(z / t)) + Float64(z / y)))) end
function tmp = code(x, y, z, t) tmp = x + (-1.0 / ((-0.5 / (z / t)) + (z / y))); end
code[x_, y_, z_, t_] := N[(x + N[(-1.0 / N[(N[(-0.5 / N[(z / t), $MachinePrecision]), $MachinePrecision] + N[(z / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \frac{-1}{\frac{-0.5}{\frac{z}{t}} + \frac{z}{y}}
\end{array}
Initial program 82.7%
Simplified89.1%
associate-*r*89.1%
associate-/l*82.7%
clear-num82.7%
*-commutative82.7%
associate-*l*82.7%
pow282.7%
*-commutative82.7%
*-commutative82.7%
Applied egg-rr82.7%
Taylor expanded in y around inf 99.9%
clear-num99.9%
un-div-inv99.9%
Applied egg-rr99.9%
Final simplification99.9%
(FPCore (x y z t) :precision binary64 (if (or (<= z -3.4e+57) (not (<= z 2.6e+67))) (- x (/ y z)) (- x (/ (* z -2.0) t))))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -3.4e+57) || !(z <= 2.6e+67)) {
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 <= (-3.4d+57)) .or. (.not. (z <= 2.6d+67))) 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 <= -3.4e+57) || !(z <= 2.6e+67)) {
tmp = x - (y / z);
} else {
tmp = x - ((z * -2.0) / t);
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (z <= -3.4e+57) or not (z <= 2.6e+67): tmp = x - (y / z) else: tmp = x - ((z * -2.0) / t) return tmp
function code(x, y, z, t) tmp = 0.0 if ((z <= -3.4e+57) || !(z <= 2.6e+67)) tmp = Float64(x - Float64(y / z)); else tmp = Float64(x - Float64(Float64(z * -2.0) / t)); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((z <= -3.4e+57) || ~((z <= 2.6e+67))) 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, -3.4e+57], N[Not[LessEqual[z, 2.6e+67]], $MachinePrecision]], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision], N[(x - N[(N[(z * -2.0), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -3.4 \cdot 10^{+57} \lor \neg \left(z \leq 2.6 \cdot 10^{+67}\right):\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x - \frac{z \cdot -2}{t}\\
\end{array}
\end{array}
if z < -3.39999999999999992e57 or 2.6e67 < z Initial program 73.1%
Simplified84.3%
Taylor expanded in y around 0 95.2%
if -3.39999999999999992e57 < z < 2.6e67Initial program 88.9%
Simplified92.3%
Taylor expanded in y around inf 86.5%
associate-*r/86.5%
*-commutative86.5%
Simplified86.5%
Final simplification89.9%
(FPCore (x y z t) :precision binary64 (if (or (<= z -8e-41) (not (<= z 1.1e-36))) (- x (/ y z)) x))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -8e-41) || !(z <= 1.1e-36)) {
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 <= (-8d-41)) .or. (.not. (z <= 1.1d-36))) 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 <= -8e-41) || !(z <= 1.1e-36)) {
tmp = x - (y / z);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (z <= -8e-41) or not (z <= 1.1e-36): tmp = x - (y / z) else: tmp = x return tmp
function code(x, y, z, t) tmp = 0.0 if ((z <= -8e-41) || !(z <= 1.1e-36)) 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 <= -8e-41) || ~((z <= 1.1e-36))) tmp = x - (y / z); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[z, -8e-41], N[Not[LessEqual[z, 1.1e-36]], $MachinePrecision]], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision], x]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -8 \cdot 10^{-41} \lor \neg \left(z \leq 1.1 \cdot 10^{-36}\right):\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if z < -8.00000000000000005e-41 or 1.1e-36 < z Initial program 77.5%
Simplified87.5%
Taylor expanded in y around 0 84.7%
if -8.00000000000000005e-41 < z < 1.1e-36Initial program 89.1%
Simplified91.2%
Taylor expanded in x around inf 69.4%
Final simplification77.9%
(FPCore (x y z t) :precision binary64 (if (<= x -4.2e-218) x (if (<= x 5e-244) (* z (/ 2.0 t)) x)))
double code(double x, double y, double z, double t) {
double tmp;
if (x <= -4.2e-218) {
tmp = x;
} else if (x <= 5e-244) {
tmp = z * (2.0 / t);
} 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 (x <= (-4.2d-218)) then
tmp = x
else if (x <= 5d-244) then
tmp = z * (2.0d0 / t)
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (x <= -4.2e-218) {
tmp = x;
} else if (x <= 5e-244) {
tmp = z * (2.0 / t);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if x <= -4.2e-218: tmp = x elif x <= 5e-244: tmp = z * (2.0 / t) else: tmp = x return tmp
function code(x, y, z, t) tmp = 0.0 if (x <= -4.2e-218) tmp = x; elseif (x <= 5e-244) tmp = Float64(z * Float64(2.0 / t)); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (x <= -4.2e-218) tmp = x; elseif (x <= 5e-244) tmp = z * (2.0 / t); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[x, -4.2e-218], x, If[LessEqual[x, 5e-244], N[(z * N[(2.0 / t), $MachinePrecision]), $MachinePrecision], x]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -4.2 \cdot 10^{-218}:\\
\;\;\;\;x\\
\mathbf{elif}\;x \leq 5 \cdot 10^{-244}:\\
\;\;\;\;z \cdot \frac{2}{t}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if x < -4.19999999999999988e-218 or 4.99999999999999998e-244 < x Initial program 85.3%
Simplified91.6%
Taylor expanded in x around inf 78.8%
if -4.19999999999999988e-218 < x < 4.99999999999999998e-244Initial program 68.1%
Simplified75.6%
Taylor expanded in y around inf 62.0%
associate-*r/62.0%
*-commutative62.0%
Simplified62.0%
Taylor expanded in x around 0 53.7%
associate-*r/53.7%
*-commutative53.7%
associate-*r/53.5%
Simplified53.5%
Final simplification75.0%
(FPCore (x y z t) :precision binary64 (+ x (/ -1.0 (+ (/ z y) (* -0.5 (/ t z))))))
double code(double x, double y, double z, double t) {
return x + (-1.0 / ((z / y) + (-0.5 * (t / 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) + ((-0.5d0) * (t / z))))
end function
public static double code(double x, double y, double z, double t) {
return x + (-1.0 / ((z / y) + (-0.5 * (t / z))));
}
def code(x, y, z, t): return x + (-1.0 / ((z / y) + (-0.5 * (t / z))))
function code(x, y, z, t) return Float64(x + Float64(-1.0 / Float64(Float64(z / y) + Float64(-0.5 * Float64(t / z))))) end
function tmp = code(x, y, z, t) tmp = x + (-1.0 / ((z / y) + (-0.5 * (t / z)))); end
code[x_, y_, z_, t_] := N[(x + N[(-1.0 / N[(N[(z / y), $MachinePrecision] + N[(-0.5 * N[(t / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \frac{-1}{\frac{z}{y} + -0.5 \cdot \frac{t}{z}}
\end{array}
Initial program 82.7%
Simplified89.1%
associate-*r*89.1%
associate-/l*82.7%
clear-num82.7%
*-commutative82.7%
associate-*l*82.7%
pow282.7%
*-commutative82.7%
*-commutative82.7%
Applied egg-rr82.7%
Taylor expanded in y around inf 99.9%
Final simplification99.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 82.7%
Simplified89.1%
Taylor expanded in x around inf 69.8%
Final simplification69.8%
(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 2024078
(FPCore (x y z t)
:name "Numeric.AD.Rank1.Halley:findZero from ad-4.2.4"
:precision binary64
:alt
(- x (/ 1.0 (- (/ z y) (/ (/ t 2.0) z))))
(- x (/ (* (* y 2.0) z) (- (* (* z 2.0) z) (* y t)))))