
(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 4 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
(let* ((t_1 (- (* z (* 2.0 z)) (* y t))))
(if (<= (/ (* (* y 2.0) z) t_1) INFINITY)
(- x (* (* y 2.0) (/ z t_1)))
(- x (/ y z)))))
double code(double x, double y, double z, double t) {
double t_1 = (z * (2.0 * z)) - (y * t);
double tmp;
if ((((y * 2.0) * z) / t_1) <= ((double) INFINITY)) {
tmp = x - ((y * 2.0) * (z / t_1));
} else {
tmp = x - (y / z);
}
return tmp;
}
public static double code(double x, double y, double z, double t) {
double t_1 = (z * (2.0 * z)) - (y * t);
double tmp;
if ((((y * 2.0) * z) / t_1) <= Double.POSITIVE_INFINITY) {
tmp = x - ((y * 2.0) * (z / t_1));
} else {
tmp = x - (y / z);
}
return tmp;
}
def code(x, y, z, t): t_1 = (z * (2.0 * z)) - (y * t) tmp = 0 if (((y * 2.0) * z) / t_1) <= math.inf: tmp = x - ((y * 2.0) * (z / t_1)) else: tmp = x - (y / z) return tmp
function code(x, y, z, t) t_1 = Float64(Float64(z * Float64(2.0 * z)) - Float64(y * t)) tmp = 0.0 if (Float64(Float64(Float64(y * 2.0) * z) / t_1) <= Inf) tmp = Float64(x - Float64(Float64(y * 2.0) * Float64(z / t_1))); else tmp = Float64(x - Float64(y / z)); end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = (z * (2.0 * z)) - (y * t); tmp = 0.0; if ((((y * 2.0) * z) / t_1) <= Inf) tmp = x - ((y * 2.0) * (z / t_1)); else tmp = x - (y / z); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(z * N[(2.0 * z), $MachinePrecision]), $MachinePrecision] - N[(y * t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(N[(N[(y * 2.0), $MachinePrecision] * z), $MachinePrecision] / t$95$1), $MachinePrecision], Infinity], N[(x - N[(N[(y * 2.0), $MachinePrecision] * N[(z / t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := z \cdot \left(2 \cdot z\right) - y \cdot t\\
\mathbf{if}\;\frac{\left(y \cdot 2\right) \cdot z}{t\_1} \leq \infty:\\
\;\;\;\;x - \left(y \cdot 2\right) \cdot \frac{z}{t\_1}\\
\mathbf{else}:\\
\;\;\;\;x - \frac{y}{z}\\
\end{array}
\end{array}
if (/.f64 (*.f64 (*.f64 y #s(literal 2 binary64)) z) (-.f64 (*.f64 (*.f64 z #s(literal 2 binary64)) z) (*.f64 y t))) < +inf.0Initial program 95.1%
Simplified97.6%
if +inf.0 < (/.f64 (*.f64 (*.f64 y #s(literal 2 binary64)) z) (-.f64 (*.f64 (*.f64 z #s(literal 2 binary64)) z) (*.f64 y t))) Initial program 0.0%
sub-neg0.0%
+-commutative0.0%
associate-/l*38.0%
distribute-rgt-neg-in38.0%
fma-define38.0%
Simplified46.8%
Taylor expanded in y around 0 86.4%
mul-1-neg86.4%
sub-neg86.4%
Simplified86.4%
Final simplification96.0%
(FPCore (x y z t) :precision binary64 (if (or (<= z -0.75) (not (<= z 5.8e-51))) (- x (/ y z)) (- x (/ (* z -2.0) t))))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -0.75) || !(z <= 5.8e-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 <= (-0.75d0)) .or. (.not. (z <= 5.8d-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 <= -0.75) || !(z <= 5.8e-51)) {
tmp = x - (y / z);
} else {
tmp = x - ((z * -2.0) / t);
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (z <= -0.75) or not (z <= 5.8e-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 <= -0.75) || !(z <= 5.8e-51)) 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 <= -0.75) || ~((z <= 5.8e-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, -0.75], N[Not[LessEqual[z, 5.8e-51]], $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 -0.75 \lor \neg \left(z \leq 5.8 \cdot 10^{-51}\right):\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x - \frac{z \cdot -2}{t}\\
\end{array}
\end{array}
if z < -0.75 or 5.79999999999999945e-51 < z Initial program 71.0%
sub-neg71.0%
+-commutative71.0%
associate-/l*83.4%
distribute-rgt-neg-in83.4%
fma-define83.4%
Simplified85.7%
Taylor expanded in y around 0 91.6%
mul-1-neg91.6%
sub-neg91.6%
Simplified91.6%
if -0.75 < z < 5.79999999999999945e-51Initial program 93.5%
Simplified95.6%
Taylor expanded in y around inf 96.1%
associate-*r/96.1%
*-commutative96.1%
Simplified96.1%
Final simplification93.7%
(FPCore (x y z t) :precision binary64 (if (or (<= z -5.1e-26) (not (<= z 3.7e-59))) (- x (/ y z)) x))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -5.1e-26) || !(z <= 3.7e-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 <= (-5.1d-26)) .or. (.not. (z <= 3.7d-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 <= -5.1e-26) || !(z <= 3.7e-59)) {
tmp = x - (y / z);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (z <= -5.1e-26) or not (z <= 3.7e-59): tmp = x - (y / z) else: tmp = x return tmp
function code(x, y, z, t) tmp = 0.0 if ((z <= -5.1e-26) || !(z <= 3.7e-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 <= -5.1e-26) || ~((z <= 3.7e-59))) tmp = x - (y / z); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[z, -5.1e-26], N[Not[LessEqual[z, 3.7e-59]], $MachinePrecision]], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision], x]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -5.1 \cdot 10^{-26} \lor \neg \left(z \leq 3.7 \cdot 10^{-59}\right):\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if z < -5.09999999999999991e-26 or 3.6999999999999999e-59 < z Initial program 72.3%
sub-neg72.3%
+-commutative72.3%
associate-/l*84.1%
distribute-rgt-neg-in84.1%
fma-define84.1%
Simplified86.3%
Taylor expanded in y around 0 91.2%
mul-1-neg91.2%
sub-neg91.2%
Simplified91.2%
if -5.09999999999999991e-26 < z < 3.6999999999999999e-59Initial program 93.2%
sub-neg93.2%
+-commutative93.2%
associate-/l*95.4%
distribute-rgt-neg-in95.4%
fma-define95.4%
Simplified95.4%
Taylor expanded in y around 0 78.4%
Final simplification85.4%
(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 81.7%
sub-neg81.7%
+-commutative81.7%
associate-/l*89.2%
distribute-rgt-neg-in89.2%
fma-define89.2%
Simplified90.4%
Taylor expanded in y around 0 76.1%
(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 2024146
(FPCore (x y z t)
:name "Numeric.AD.Rank1.Halley:findZero from ad-4.2.4"
:precision binary64
:alt
(! :herbie-platform default (- x (/ 1 (- (/ z y) (/ (/ t 2) z)))))
(- x (/ (* (* y 2.0) z) (- (* (* z 2.0) z) (* y t)))))