
(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 (let* ((t_1 (- x (/ y z)))) (if (<= z -1.8e-24) t_1 (if (<= z 2.6e-43) (- x (* (/ z t) -2.0)) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = x - (y / z);
double tmp;
if (z <= -1.8e-24) {
tmp = t_1;
} else if (z <= 2.6e-43) {
tmp = x - ((z / t) * -2.0);
} else {
tmp = t_1;
}
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) :: t_1
real(8) :: tmp
t_1 = x - (y / z)
if (z <= (-1.8d-24)) then
tmp = t_1
else if (z <= 2.6d-43) then
tmp = x - ((z / t) * (-2.0d0))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double t_1 = x - (y / z);
double tmp;
if (z <= -1.8e-24) {
tmp = t_1;
} else if (z <= 2.6e-43) {
tmp = x - ((z / t) * -2.0);
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t): t_1 = x - (y / z) tmp = 0 if z <= -1.8e-24: tmp = t_1 elif z <= 2.6e-43: tmp = x - ((z / t) * -2.0) else: tmp = t_1 return tmp
function code(x, y, z, t) t_1 = Float64(x - Float64(y / z)) tmp = 0.0 if (z <= -1.8e-24) tmp = t_1; elseif (z <= 2.6e-43) tmp = Float64(x - Float64(Float64(z / t) * -2.0)); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = x - (y / z); tmp = 0.0; if (z <= -1.8e-24) tmp = t_1; elseif (z <= 2.6e-43) tmp = x - ((z / t) * -2.0); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -1.8e-24], t$95$1, If[LessEqual[z, 2.6e-43], N[(x - N[(N[(z / t), $MachinePrecision] * -2.0), $MachinePrecision]), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x - \frac{y}{z}\\
\mathbf{if}\;z \leq -1.8 \cdot 10^{-24}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 2.6 \cdot 10^{-43}:\\
\;\;\;\;x - \frac{z}{t} \cdot -2\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if z < -1.8e-24 or 2.6e-43 < z Initial program 71.4%
Taylor expanded in t around 0
lower-/.f6491.9
Applied rewrites91.9%
if -1.8e-24 < z < 2.6e-43Initial program 90.8%
Taylor expanded in t around inf
lower-*.f64N/A
lower-/.f6497.2
Applied rewrites97.2%
Final simplification94.3%
(FPCore (x y z t) :precision binary64 (let* ((t_1 (- x (/ (* z (* 2.0 y)) (- (* (* z 2.0) z) (* t y)))))) (if (<= t_1 5e+268) t_1 (- x (/ y z)))))
double code(double x, double y, double z, double t) {
double t_1 = x - ((z * (2.0 * y)) / (((z * 2.0) * z) - (t * y)));
double tmp;
if (t_1 <= 5e+268) {
tmp = t_1;
} else {
tmp = x - (y / z);
}
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) :: t_1
real(8) :: tmp
t_1 = x - ((z * (2.0d0 * y)) / (((z * 2.0d0) * z) - (t * y)))
if (t_1 <= 5d+268) then
tmp = t_1
else
tmp = x - (y / z)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double t_1 = x - ((z * (2.0 * y)) / (((z * 2.0) * z) - (t * y)));
double tmp;
if (t_1 <= 5e+268) {
tmp = t_1;
} else {
tmp = x - (y / z);
}
return tmp;
}
def code(x, y, z, t): t_1 = x - ((z * (2.0 * y)) / (((z * 2.0) * z) - (t * y))) tmp = 0 if t_1 <= 5e+268: tmp = t_1 else: tmp = x - (y / z) return tmp
function code(x, y, z, t) t_1 = Float64(x - Float64(Float64(z * Float64(2.0 * y)) / Float64(Float64(Float64(z * 2.0) * z) - Float64(t * y)))) tmp = 0.0 if (t_1 <= 5e+268) tmp = t_1; else tmp = Float64(x - Float64(y / z)); end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = x - ((z * (2.0 * y)) / (((z * 2.0) * z) - (t * y))); tmp = 0.0; if (t_1 <= 5e+268) tmp = t_1; else tmp = x - (y / z); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(x - N[(N[(z * N[(2.0 * y), $MachinePrecision]), $MachinePrecision] / N[(N[(N[(z * 2.0), $MachinePrecision] * z), $MachinePrecision] - N[(t * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, 5e+268], t$95$1, N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x - \frac{z \cdot \left(2 \cdot y\right)}{\left(z \cdot 2\right) \cdot z - t \cdot y}\\
\mathbf{if}\;t\_1 \leq 5 \cdot 10^{+268}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;x - \frac{y}{z}\\
\end{array}
\end{array}
if (-.f64 x (/.f64 (*.f64 (*.f64 y #s(literal 2 binary64)) z) (-.f64 (*.f64 (*.f64 z #s(literal 2 binary64)) z) (*.f64 y t)))) < 5.0000000000000002e268Initial program 95.6%
if 5.0000000000000002e268 < (-.f64 x (/.f64 (*.f64 (*.f64 y #s(literal 2 binary64)) z) (-.f64 (*.f64 (*.f64 z #s(literal 2 binary64)) z) (*.f64 y t)))) Initial program 2.7%
Taylor expanded in t around 0
lower-/.f6485.9
Applied rewrites85.9%
Final simplification94.0%
(FPCore (x y z t) :precision binary64 (let* ((t_1 (- x (/ y z)))) (if (<= z -1.8e-24) t_1 (if (<= z 2.6e-43) (fma (/ 2.0 t) z x) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = x - (y / z);
double tmp;
if (z <= -1.8e-24) {
tmp = t_1;
} else if (z <= 2.6e-43) {
tmp = fma((2.0 / t), z, x);
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t) t_1 = Float64(x - Float64(y / z)) tmp = 0.0 if (z <= -1.8e-24) tmp = t_1; elseif (z <= 2.6e-43) tmp = fma(Float64(2.0 / t), z, x); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -1.8e-24], t$95$1, If[LessEqual[z, 2.6e-43], N[(N[(2.0 / t), $MachinePrecision] * z + x), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x - \frac{y}{z}\\
\mathbf{if}\;z \leq -1.8 \cdot 10^{-24}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 2.6 \cdot 10^{-43}:\\
\;\;\;\;\mathsf{fma}\left(\frac{2}{t}, z, x\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if z < -1.8e-24 or 2.6e-43 < z Initial program 71.4%
Taylor expanded in t around 0
lower-/.f6491.9
Applied rewrites91.9%
if -1.8e-24 < z < 2.6e-43Initial program 90.8%
Taylor expanded in t around inf
+-commutativeN/A
associate-*r/N/A
associate-*l/N/A
metadata-evalN/A
associate-*r/N/A
lower-fma.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6497.1
Applied rewrites97.1%
(FPCore (x y z t) :precision binary64 (- x (/ y z)))
double code(double x, double y, double z, double t) {
return x - (y / 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 - (y / z)
end function
public static double code(double x, double y, double z, double t) {
return x - (y / z);
}
def code(x, y, z, t): return x - (y / z)
function code(x, y, z, t) return Float64(x - Float64(y / z)) end
function tmp = code(x, y, z, t) tmp = x - (y / z); end
code[x_, y_, z_, t_] := N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x - \frac{y}{z}
\end{array}
Initial program 80.3%
Taylor expanded in t around 0
lower-/.f6462.3
Applied rewrites62.3%
(FPCore (x y z t) :precision binary64 (/ (- y) z))
double code(double x, double y, double z, double t) {
return -y / 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 = -y / z
end function
public static double code(double x, double y, double z, double t) {
return -y / z;
}
def code(x, y, z, t): return -y / z
function code(x, y, z, t) return Float64(Float64(-y) / z) end
function tmp = code(x, y, z, t) tmp = -y / z; end
code[x_, y_, z_, t_] := N[((-y) / z), $MachinePrecision]
\begin{array}{l}
\\
\frac{-y}{z}
\end{array}
Initial program 80.3%
Taylor expanded in x around 0
metadata-evalN/A
distribute-lft-neg-inN/A
associate-*r/N/A
distribute-neg-frac2N/A
associate-*r*N/A
associate-/l*N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
sub-negN/A
mul-1-negN/A
distribute-neg-inN/A
unpow2N/A
associate-*r*N/A
distribute-lft-neg-outN/A
distribute-lft-neg-inN/A
metadata-evalN/A
associate-*r*N/A
Applied rewrites19.2%
Taylor expanded in t around 0
Applied rewrites15.7%
(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 2024273
(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)))))