
(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 (/ -2.0 (- (* z (/ 2.0 y)) (/ t z)))))
double code(double x, double y, double z, double t) {
return x + (-2.0 / ((z * (2.0 / y)) - (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 + ((-2.0d0) / ((z * (2.0d0 / y)) - (t / z)))
end function
public static double code(double x, double y, double z, double t) {
return x + (-2.0 / ((z * (2.0 / y)) - (t / z)));
}
def code(x, y, z, t): return x + (-2.0 / ((z * (2.0 / y)) - (t / z)))
function code(x, y, z, t) return Float64(x + Float64(-2.0 / Float64(Float64(z * Float64(2.0 / y)) - Float64(t / z)))) end
function tmp = code(x, y, z, t) tmp = x + (-2.0 / ((z * (2.0 / y)) - (t / z))); end
code[x_, y_, z_, t_] := N[(x + N[(-2.0 / N[(N[(z * N[(2.0 / y), $MachinePrecision]), $MachinePrecision] - N[(t / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \frac{-2}{z \cdot \frac{2}{y} - \frac{t}{z}}
\end{array}
Initial program 81.9%
sub-neg81.9%
associate-/l*86.8%
*-commutative86.8%
associate-/l*86.7%
distribute-neg-frac86.7%
metadata-eval86.7%
associate-/l/81.9%
div-sub76.8%
times-frac89.9%
*-inverses89.9%
*-rgt-identity89.9%
*-commutative89.9%
associate-*l/89.9%
*-commutative89.9%
times-frac99.9%
*-inverses99.9%
*-lft-identity99.9%
Simplified99.9%
Final simplification99.9%
(FPCore (x y z t) :precision binary64 (if (or (<= z -185000000000.0) (not (<= z 1.25e+23))) (- x (/ y z)) (+ x (* z (/ 2.0 t)))))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -185000000000.0) || !(z <= 1.25e+23)) {
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 <= (-185000000000.0d0)) .or. (.not. (z <= 1.25d+23))) 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 <= -185000000000.0) || !(z <= 1.25e+23)) {
tmp = x - (y / z);
} else {
tmp = x + (z * (2.0 / t));
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (z <= -185000000000.0) or not (z <= 1.25e+23): tmp = x - (y / z) else: tmp = x + (z * (2.0 / t)) return tmp
function code(x, y, z, t) tmp = 0.0 if ((z <= -185000000000.0) || !(z <= 1.25e+23)) 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 <= -185000000000.0) || ~((z <= 1.25e+23))) 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, -185000000000.0], N[Not[LessEqual[z, 1.25e+23]], $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 -185000000000 \lor \neg \left(z \leq 1.25 \cdot 10^{+23}\right):\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x + z \cdot \frac{2}{t}\\
\end{array}
\end{array}
if z < -1.85e11 or 1.25e23 < z Initial program 72.7%
sub-neg72.7%
associate-/l*82.5%
*-commutative82.5%
associate-/l*82.5%
distribute-neg-frac82.5%
metadata-eval82.5%
associate-/l/72.7%
div-sub72.6%
times-frac90.2%
*-inverses90.2%
*-rgt-identity90.2%
*-commutative90.2%
associate-*l/90.2%
*-commutative90.2%
times-frac99.9%
*-inverses99.9%
*-lft-identity99.9%
Simplified99.9%
Taylor expanded in z around inf 94.4%
+-commutative94.4%
mul-1-neg94.4%
sub-neg94.4%
Simplified94.4%
if -1.85e11 < z < 1.25e23Initial program 90.5%
sub-neg90.5%
associate-/l*90.7%
distribute-neg-frac90.7%
associate-/r/92.7%
distribute-rgt-neg-in92.7%
metadata-eval92.7%
associate-*l*92.7%
Simplified92.7%
Taylor expanded in y around inf 90.3%
Final simplification92.3%
(FPCore (x y z t) :precision binary64 (if (or (<= z -190000000000.0) (not (<= z 1.25e+23))) (- x (/ y z)) (- x (/ z (* t -0.5)))))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -190000000000.0) || !(z <= 1.25e+23)) {
tmp = x - (y / z);
} else {
tmp = x - (z / (t * -0.5));
}
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 <= (-190000000000.0d0)) .or. (.not. (z <= 1.25d+23))) then
tmp = x - (y / z)
else
tmp = x - (z / (t * (-0.5d0)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -190000000000.0) || !(z <= 1.25e+23)) {
tmp = x - (y / z);
} else {
tmp = x - (z / (t * -0.5));
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (z <= -190000000000.0) or not (z <= 1.25e+23): tmp = x - (y / z) else: tmp = x - (z / (t * -0.5)) return tmp
function code(x, y, z, t) tmp = 0.0 if ((z <= -190000000000.0) || !(z <= 1.25e+23)) tmp = Float64(x - Float64(y / z)); else tmp = Float64(x - Float64(z / Float64(t * -0.5))); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((z <= -190000000000.0) || ~((z <= 1.25e+23))) tmp = x - (y / z); else tmp = x - (z / (t * -0.5)); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[z, -190000000000.0], N[Not[LessEqual[z, 1.25e+23]], $MachinePrecision]], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision], N[(x - N[(z / N[(t * -0.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -190000000000 \lor \neg \left(z \leq 1.25 \cdot 10^{+23}\right):\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x - \frac{z}{t \cdot -0.5}\\
\end{array}
\end{array}
if z < -1.9e11 or 1.25e23 < z Initial program 72.7%
sub-neg72.7%
associate-/l*82.5%
*-commutative82.5%
associate-/l*82.5%
distribute-neg-frac82.5%
metadata-eval82.5%
associate-/l/72.7%
div-sub72.6%
times-frac90.2%
*-inverses90.2%
*-rgt-identity90.2%
*-commutative90.2%
associate-*l/90.2%
*-commutative90.2%
times-frac99.9%
*-inverses99.9%
*-lft-identity99.9%
Simplified99.9%
Taylor expanded in z around inf 94.4%
+-commutative94.4%
mul-1-neg94.4%
sub-neg94.4%
Simplified94.4%
if -1.9e11 < z < 1.25e23Initial program 90.5%
*-commutative90.5%
associate-/l*92.8%
div-sub92.8%
sub-neg92.8%
*-commutative92.8%
associate-*l*92.8%
*-commutative92.8%
times-frac92.8%
metadata-eval92.8%
*-lft-identity92.8%
associate-*r/95.0%
fma-def95.0%
associate-/r*95.0%
distribute-neg-frac95.0%
*-commutative95.0%
associate-/l*99.9%
*-inverses99.9%
/-rgt-identity99.9%
Simplified99.9%
Taylor expanded in z around 0 90.4%
*-commutative90.4%
Simplified90.4%
Final simplification92.3%
(FPCore (x y z t) :precision binary64 (if (or (<= z -1.6e+118) (not (<= z 1.25e+23))) (- x (/ y z)) x))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -1.6e+118) || !(z <= 1.25e+23)) {
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 <= (-1.6d+118)) .or. (.not. (z <= 1.25d+23))) 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 <= -1.6e+118) || !(z <= 1.25e+23)) {
tmp = x - (y / z);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (z <= -1.6e+118) or not (z <= 1.25e+23): tmp = x - (y / z) else: tmp = x return tmp
function code(x, y, z, t) tmp = 0.0 if ((z <= -1.6e+118) || !(z <= 1.25e+23)) 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 <= -1.6e+118) || ~((z <= 1.25e+23))) tmp = x - (y / z); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[z, -1.6e+118], N[Not[LessEqual[z, 1.25e+23]], $MachinePrecision]], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision], x]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -1.6 \cdot 10^{+118} \lor \neg \left(z \leq 1.25 \cdot 10^{+23}\right):\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if z < -1.60000000000000008e118 or 1.25e23 < z Initial program 70.2%
sub-neg70.2%
associate-/l*79.8%
*-commutative79.8%
associate-/l*79.7%
distribute-neg-frac79.7%
metadata-eval79.7%
associate-/l/70.2%
div-sub70.2%
times-frac90.6%
*-inverses90.6%
*-rgt-identity90.6%
*-commutative90.6%
associate-*l/90.5%
*-commutative90.5%
times-frac99.9%
*-inverses99.9%
*-lft-identity99.9%
Simplified99.9%
Taylor expanded in z around inf 97.2%
+-commutative97.2%
mul-1-neg97.2%
sub-neg97.2%
Simplified97.2%
if -1.60000000000000008e118 < z < 1.25e23Initial program 90.2%
sub-neg90.2%
associate-/l*91.7%
*-commutative91.7%
associate-/l*91.7%
distribute-neg-frac91.7%
metadata-eval91.7%
associate-/l/90.1%
div-sub81.4%
times-frac89.5%
*-inverses89.5%
*-rgt-identity89.5%
*-commutative89.5%
associate-*l/89.5%
*-commutative89.5%
times-frac99.9%
*-inverses99.9%
*-lft-identity99.9%
Simplified99.9%
Taylor expanded in x around inf 75.9%
Final simplification84.7%
(FPCore (x y z t) :precision binary64 (if (<= x -7.2e-247) x (if (<= x 6.7e-246) (/ (- y) z) x)))
double code(double x, double y, double z, double t) {
double tmp;
if (x <= -7.2e-247) {
tmp = x;
} else if (x <= 6.7e-246) {
tmp = -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 (x <= (-7.2d-247)) then
tmp = x
else if (x <= 6.7d-246) then
tmp = -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 (x <= -7.2e-247) {
tmp = x;
} else if (x <= 6.7e-246) {
tmp = -y / z;
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if x <= -7.2e-247: tmp = x elif x <= 6.7e-246: tmp = -y / z else: tmp = x return tmp
function code(x, y, z, t) tmp = 0.0 if (x <= -7.2e-247) tmp = x; elseif (x <= 6.7e-246) tmp = Float64(Float64(-y) / z); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (x <= -7.2e-247) tmp = x; elseif (x <= 6.7e-246) tmp = -y / z; else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[x, -7.2e-247], x, If[LessEqual[x, 6.7e-246], N[((-y) / z), $MachinePrecision], x]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -7.2 \cdot 10^{-247}:\\
\;\;\;\;x\\
\mathbf{elif}\;x \leq 6.7 \cdot 10^{-246}:\\
\;\;\;\;\frac{-y}{z}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if x < -7.1999999999999994e-247 or 6.70000000000000022e-246 < x Initial program 84.6%
sub-neg84.6%
associate-/l*89.9%
*-commutative89.9%
associate-/l*89.9%
distribute-neg-frac89.9%
metadata-eval89.9%
associate-/l/84.6%
div-sub78.9%
times-frac90.6%
*-inverses90.6%
*-rgt-identity90.6%
*-commutative90.6%
associate-*l/90.5%
*-commutative90.5%
times-frac99.9%
*-inverses99.9%
*-lft-identity99.9%
Simplified99.9%
Taylor expanded in x around inf 82.2%
if -7.1999999999999994e-247 < x < 6.70000000000000022e-246Initial program 57.4%
sub-neg57.4%
associate-/l*58.1%
*-commutative58.1%
associate-/l*57.9%
distribute-neg-frac57.9%
metadata-eval57.9%
associate-/l/57.2%
div-sub57.0%
times-frac84.0%
*-inverses84.0%
*-rgt-identity84.0%
*-commutative84.0%
associate-*l/83.9%
*-commutative83.9%
times-frac99.6%
*-inverses99.6%
*-lft-identity99.6%
Simplified99.6%
Taylor expanded in x around 0 91.2%
associate-*r/91.2%
*-commutative91.2%
associate-*r/91.2%
Simplified91.2%
Taylor expanded in z around inf 60.3%
associate-*r/60.3%
neg-mul-160.3%
Simplified60.3%
Final simplification80.1%
(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.9%
sub-neg81.9%
associate-/l*86.8%
*-commutative86.8%
associate-/l*86.7%
distribute-neg-frac86.7%
metadata-eval86.7%
associate-/l/81.9%
div-sub76.8%
times-frac89.9%
*-inverses89.9%
*-rgt-identity89.9%
*-commutative89.9%
associate-*l/89.9%
*-commutative89.9%
times-frac99.9%
*-inverses99.9%
*-lft-identity99.9%
Simplified99.9%
Taylor expanded in x around inf 75.4%
Final simplification75.4%
(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 2023199
(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)))))