
(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 (+ 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 79.9%
sub-neg79.9%
associate-/l*85.7%
*-commutative85.7%
associate-/l*85.7%
distribute-neg-frac85.7%
metadata-eval85.7%
associate-/l/79.9%
div-sub72.8%
times-frac88.7%
*-inverses88.7%
*-rgt-identity88.7%
*-commutative88.7%
associate-*l/88.7%
*-commutative88.7%
times-frac99.9%
*-inverses99.9%
*-lft-identity99.9%
Simplified99.9%
Final simplification99.9%
(FPCore (x y z t) :precision binary64 (if (or (<= z -7.5e+36) (not (<= z 3.85e-25))) (- x (/ y z)) (- x (/ z (* t -0.5)))))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -7.5e+36) || !(z <= 3.85e-25)) {
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 <= (-7.5d+36)) .or. (.not. (z <= 3.85d-25))) 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 <= -7.5e+36) || !(z <= 3.85e-25)) {
tmp = x - (y / z);
} else {
tmp = x - (z / (t * -0.5));
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (z <= -7.5e+36) or not (z <= 3.85e-25): tmp = x - (y / z) else: tmp = x - (z / (t * -0.5)) return tmp
function code(x, y, z, t) tmp = 0.0 if ((z <= -7.5e+36) || !(z <= 3.85e-25)) 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 <= -7.5e+36) || ~((z <= 3.85e-25))) 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, -7.5e+36], N[Not[LessEqual[z, 3.85e-25]], $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 -7.5 \cdot 10^{+36} \lor \neg \left(z \leq 3.85 \cdot 10^{-25}\right):\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x - \frac{z}{t \cdot -0.5}\\
\end{array}
\end{array}
if z < -7.50000000000000054e36 or 3.8500000000000001e-25 < z Initial program 65.5%
sub-neg65.5%
associate-/l*79.4%
*-commutative79.4%
associate-/l*79.4%
distribute-neg-frac79.4%
metadata-eval79.4%
associate-/l/65.5%
div-sub65.4%
times-frac86.1%
*-inverses86.1%
*-rgt-identity86.1%
*-commutative86.1%
associate-*l/86.1%
*-commutative86.1%
times-frac99.9%
*-inverses99.9%
*-lft-identity99.9%
Simplified99.9%
Taylor expanded in z around inf 91.0%
+-commutative91.0%
mul-1-neg91.0%
sub-neg91.0%
Simplified91.0%
if -7.50000000000000054e36 < z < 3.8500000000000001e-25Initial program 94.4%
*-commutative94.4%
associate-/l*94.6%
div-sub94.6%
sub-neg94.6%
*-commutative94.6%
associate-*l*94.6%
*-commutative94.6%
times-frac94.6%
metadata-eval94.6%
*-lft-identity94.6%
associate-*r/96.2%
fma-def96.2%
associate-/r*96.2%
distribute-neg-frac96.2%
*-commutative96.2%
associate-/l*100.0%
*-inverses100.0%
/-rgt-identity100.0%
Simplified100.0%
Taylor expanded in z around 0 89.1%
*-commutative89.1%
Simplified89.1%
Final simplification90.1%
(FPCore (x y z t) :precision binary64 (if (or (<= z -5.5e+36) (not (<= z 9.2e-38))) (- x (/ y z)) x))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -5.5e+36) || !(z <= 9.2e-38)) {
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.5d+36)) .or. (.not. (z <= 9.2d-38))) 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.5e+36) || !(z <= 9.2e-38)) {
tmp = x - (y / z);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (z <= -5.5e+36) or not (z <= 9.2e-38): tmp = x - (y / z) else: tmp = x return tmp
function code(x, y, z, t) tmp = 0.0 if ((z <= -5.5e+36) || !(z <= 9.2e-38)) 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.5e+36) || ~((z <= 9.2e-38))) tmp = x - (y / z); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[z, -5.5e+36], N[Not[LessEqual[z, 9.2e-38]], $MachinePrecision]], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision], x]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -5.5 \cdot 10^{+36} \lor \neg \left(z \leq 9.2 \cdot 10^{-38}\right):\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if z < -5.5000000000000002e36 or 9.20000000000000007e-38 < z Initial program 65.8%
sub-neg65.8%
associate-/l*79.5%
*-commutative79.5%
associate-/l*79.6%
distribute-neg-frac79.6%
metadata-eval79.6%
associate-/l/65.8%
div-sub65.7%
times-frac86.2%
*-inverses86.2%
*-rgt-identity86.2%
*-commutative86.2%
associate-*l/86.2%
*-commutative86.2%
times-frac99.9%
*-inverses99.9%
*-lft-identity99.9%
Simplified99.9%
Taylor expanded in z around inf 90.3%
+-commutative90.3%
mul-1-neg90.3%
sub-neg90.3%
Simplified90.3%
if -5.5000000000000002e36 < z < 9.20000000000000007e-38Initial program 94.4%
sub-neg94.4%
associate-/l*92.1%
*-commutative92.1%
associate-/l*92.1%
distribute-neg-frac92.1%
metadata-eval92.1%
associate-/l/94.4%
div-sub80.1%
times-frac91.2%
*-inverses91.2%
*-rgt-identity91.2%
*-commutative91.2%
associate-*l/91.2%
*-commutative91.2%
times-frac99.9%
*-inverses99.9%
*-lft-identity99.9%
Simplified99.9%
Taylor expanded in x around inf 74.6%
Final simplification82.6%
(FPCore (x y z t) :precision binary64 (if (<= x -9.2e-234) x (if (<= x 4.7e-214) (* 2.0 (/ z t)) x)))
double code(double x, double y, double z, double t) {
double tmp;
if (x <= -9.2e-234) {
tmp = x;
} else if (x <= 4.7e-214) {
tmp = 2.0 * (z / 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 <= (-9.2d-234)) then
tmp = x
else if (x <= 4.7d-214) then
tmp = 2.0d0 * (z / 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 <= -9.2e-234) {
tmp = x;
} else if (x <= 4.7e-214) {
tmp = 2.0 * (z / t);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if x <= -9.2e-234: tmp = x elif x <= 4.7e-214: tmp = 2.0 * (z / t) else: tmp = x return tmp
function code(x, y, z, t) tmp = 0.0 if (x <= -9.2e-234) tmp = x; elseif (x <= 4.7e-214) tmp = Float64(2.0 * Float64(z / t)); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (x <= -9.2e-234) tmp = x; elseif (x <= 4.7e-214) tmp = 2.0 * (z / t); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[x, -9.2e-234], x, If[LessEqual[x, 4.7e-214], N[(2.0 * N[(z / t), $MachinePrecision]), $MachinePrecision], x]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -9.2 \cdot 10^{-234}:\\
\;\;\;\;x\\
\mathbf{elif}\;x \leq 4.7 \cdot 10^{-214}:\\
\;\;\;\;2 \cdot \frac{z}{t}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if x < -9.19999999999999961e-234 or 4.7000000000000003e-214 < x Initial program 81.0%
sub-neg81.0%
associate-/l*88.3%
*-commutative88.3%
associate-/l*88.3%
distribute-neg-frac88.3%
metadata-eval88.3%
associate-/l/81.0%
div-sub72.7%
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 78.9%
if -9.19999999999999961e-234 < x < 4.7000000000000003e-214Initial program 73.2%
*-commutative73.2%
associate-/l*73.9%
div-sub73.9%
sub-neg73.9%
*-commutative73.9%
associate-*l*73.9%
*-commutative73.9%
times-frac73.9%
metadata-eval73.9%
*-lft-identity73.9%
associate-*r/76.7%
fma-def76.7%
associate-/r*76.7%
distribute-neg-frac76.7%
*-commutative76.7%
associate-/l*89.7%
*-inverses89.7%
/-rgt-identity89.7%
Simplified89.7%
Taylor expanded in z around 0 65.9%
*-commutative65.9%
Simplified65.9%
Taylor expanded in x around 0 50.8%
*-commutative50.8%
Simplified50.8%
Final simplification74.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 79.9%
sub-neg79.9%
associate-/l*85.7%
*-commutative85.7%
associate-/l*85.7%
distribute-neg-frac85.7%
metadata-eval85.7%
associate-/l/79.9%
div-sub72.8%
times-frac88.7%
*-inverses88.7%
*-rgt-identity88.7%
*-commutative88.7%
associate-*l/88.7%
*-commutative88.7%
times-frac99.9%
*-inverses99.9%
*-lft-identity99.9%
Simplified99.9%
Taylor expanded in x around inf 71.4%
Final simplification71.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 2023193
(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)))))