
(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 (fma (/ z (fma -2.0 (* z z) (* t y))) (* 2.0 y) x)))
(if (<= z -1e+93)
(- x (/ y z))
(if (<= z -1.5e-131) t_1 (if (<= z 1.5e-99) (fma (/ z t) 2.0 x) t_1)))))
double code(double x, double y, double z, double t) {
double t_1 = fma((z / fma(-2.0, (z * z), (t * y))), (2.0 * y), x);
double tmp;
if (z <= -1e+93) {
tmp = x - (y / z);
} else if (z <= -1.5e-131) {
tmp = t_1;
} else if (z <= 1.5e-99) {
tmp = fma((z / t), 2.0, x);
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t) t_1 = fma(Float64(z / fma(-2.0, Float64(z * z), Float64(t * y))), Float64(2.0 * y), x) tmp = 0.0 if (z <= -1e+93) tmp = Float64(x - Float64(y / z)); elseif (z <= -1.5e-131) tmp = t_1; elseif (z <= 1.5e-99) tmp = fma(Float64(z / t), 2.0, x); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(z / N[(-2.0 * N[(z * z), $MachinePrecision] + N[(t * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(2.0 * y), $MachinePrecision] + x), $MachinePrecision]}, If[LessEqual[z, -1e+93], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -1.5e-131], t$95$1, If[LessEqual[z, 1.5e-99], N[(N[(z / t), $MachinePrecision] * 2.0 + x), $MachinePrecision], t$95$1]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \mathsf{fma}\left(\frac{z}{\mathsf{fma}\left(-2, z \cdot z, t \cdot y\right)}, 2 \cdot y, x\right)\\
\mathbf{if}\;z \leq -1 \cdot 10^{+93}:\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{elif}\;z \leq -1.5 \cdot 10^{-131}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 1.5 \cdot 10^{-99}:\\
\;\;\;\;\mathsf{fma}\left(\frac{z}{t}, 2, x\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if z < -1.00000000000000004e93Initial program 60.9%
Taylor expanded in t around 0
lower-/.f6497.9
Applied rewrites97.9%
if -1.00000000000000004e93 < z < -1.49999999999999998e-131 or 1.50000000000000003e-99 < z Initial program 86.0%
lift--.f64N/A
sub-negN/A
+-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
Applied rewrites96.7%
if -1.49999999999999998e-131 < z < 1.50000000000000003e-99Initial program 90.9%
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-/.f6499.9
Applied rewrites99.9%
Applied rewrites100.0%
(FPCore (x y z t) :precision binary64 (let* ((t_1 (- x (/ y z)))) (if (<= z -1.9e+44) t_1 (if (<= z 3e-63) (fma (/ z t) 2.0 x) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = x - (y / z);
double tmp;
if (z <= -1.9e+44) {
tmp = t_1;
} else if (z <= 3e-63) {
tmp = fma((z / t), 2.0, 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.9e+44) tmp = t_1; elseif (z <= 3e-63) tmp = fma(Float64(z / t), 2.0, 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.9e+44], t$95$1, If[LessEqual[z, 3e-63], N[(N[(z / t), $MachinePrecision] * 2.0 + x), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x - \frac{y}{z}\\
\mathbf{if}\;z \leq -1.9 \cdot 10^{+44}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 3 \cdot 10^{-63}:\\
\;\;\;\;\mathsf{fma}\left(\frac{z}{t}, 2, x\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if z < -1.9000000000000001e44 or 2.99999999999999979e-63 < z Initial program 73.2%
Taylor expanded in t around 0
lower-/.f6491.5
Applied rewrites91.5%
if -1.9000000000000001e44 < z < 2.99999999999999979e-63Initial program 92.9%
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-/.f6493.0
Applied rewrites93.0%
Applied rewrites93.1%
(FPCore (x y z t) :precision binary64 (let* ((t_1 (- x (/ y z)))) (if (<= z -1.9e+44) t_1 (if (<= z 3e-63) (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.9e+44) {
tmp = t_1;
} else if (z <= 3e-63) {
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.9e+44) tmp = t_1; elseif (z <= 3e-63) 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.9e+44], t$95$1, If[LessEqual[z, 3e-63], 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.9 \cdot 10^{+44}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 3 \cdot 10^{-63}:\\
\;\;\;\;\mathsf{fma}\left(\frac{2}{t}, z, x\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if z < -1.9000000000000001e44 or 2.99999999999999979e-63 < z Initial program 73.2%
Taylor expanded in t around 0
lower-/.f6491.5
Applied rewrites91.5%
if -1.9000000000000001e44 < z < 2.99999999999999979e-63Initial program 92.9%
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-/.f6493.0
Applied rewrites93.0%
(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 83.0%
Taylor expanded in t around 0
lower-/.f6462.2
Applied rewrites62.2%
(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 83.0%
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 rewrites22.2%
Taylor expanded in t around 0
Applied rewrites15.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 2024277
(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)))))