
(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 (if (<= (/ (* (* y 2.0) z) (- (* (* z 2.0) z) (* y t))) 2e+201) (fma (/ z (fma -2.0 (* z z) (* t y))) (* 2.0 y) x) (- x (/ y z))))
double code(double x, double y, double z, double t) {
double tmp;
if ((((y * 2.0) * z) / (((z * 2.0) * z) - (y * t))) <= 2e+201) {
tmp = fma((z / fma(-2.0, (z * z), (t * y))), (2.0 * y), x);
} else {
tmp = x - (y / z);
}
return tmp;
}
function code(x, y, z, t) tmp = 0.0 if (Float64(Float64(Float64(y * 2.0) * z) / Float64(Float64(Float64(z * 2.0) * z) - Float64(y * t))) <= 2e+201) tmp = fma(Float64(z / fma(-2.0, Float64(z * z), Float64(t * y))), Float64(2.0 * y), x); else tmp = Float64(x - Float64(y / z)); end return tmp end
code[x_, y_, z_, t_] := If[LessEqual[N[(N[(N[(y * 2.0), $MachinePrecision] * z), $MachinePrecision] / N[(N[(N[(z * 2.0), $MachinePrecision] * z), $MachinePrecision] - N[(y * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 2e+201], N[(N[(z / N[(-2.0 * N[(z * z), $MachinePrecision] + N[(t * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(2.0 * y), $MachinePrecision] + x), $MachinePrecision], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{\left(y \cdot 2\right) \cdot z}{\left(z \cdot 2\right) \cdot z - y \cdot t} \leq 2 \cdot 10^{+201}:\\
\;\;\;\;\mathsf{fma}\left(\frac{z}{\mathsf{fma}\left(-2, z \cdot z, t \cdot y\right)}, 2 \cdot y, x\right)\\
\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))) < 2.00000000000000008e201Initial program 93.8%
Applied rewrites97.5%
if 2.00000000000000008e201 < (/.f64 (*.f64 (*.f64 y #s(literal 2 binary64)) z) (-.f64 (*.f64 (*.f64 z #s(literal 2 binary64)) z) (*.f64 y t))) Initial program 0.2%
Taylor expanded in y around 0
lower-/.f6482.4
Applied rewrites82.4%
(FPCore (x y z t) :precision binary64 (if (or (<= z -2.65e-6) (not (<= z 1.2e-5))) (- x (/ y z)) (fma (/ z t) 2.0 x)))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -2.65e-6) || !(z <= 1.2e-5)) {
tmp = x - (y / z);
} else {
tmp = fma((z / t), 2.0, x);
}
return tmp;
}
function code(x, y, z, t) tmp = 0.0 if ((z <= -2.65e-6) || !(z <= 1.2e-5)) tmp = Float64(x - Float64(y / z)); else tmp = fma(Float64(z / t), 2.0, x); end return tmp end
code[x_, y_, z_, t_] := If[Or[LessEqual[z, -2.65e-6], N[Not[LessEqual[z, 1.2e-5]], $MachinePrecision]], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision], N[(N[(z / t), $MachinePrecision] * 2.0 + x), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -2.65 \cdot 10^{-6} \lor \neg \left(z \leq 1.2 \cdot 10^{-5}\right):\\
\;\;\;\;x - \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\frac{z}{t}, 2, x\right)\\
\end{array}
\end{array}
if z < -2.65e-6 or 1.2e-5 < z Initial program 77.1%
Taylor expanded in y around 0
lower-/.f6493.7
Applied rewrites93.7%
if -2.65e-6 < z < 1.2e-5Initial program 90.7%
Taylor expanded in y around inf
fp-cancel-sub-sign-invN/A
metadata-evalN/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f6490.9
Applied rewrites90.9%
Final simplification92.4%
(FPCore (x y z t) :precision binary64 (if (<= y -1.55e+223) (* (/ z t) 2.0) (- x (/ y z))))
double code(double x, double y, double z, double t) {
double tmp;
if (y <= -1.55e+223) {
tmp = (z / t) * 2.0;
} 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) :: tmp
if (y <= (-1.55d+223)) then
tmp = (z / t) * 2.0d0
else
tmp = x - (y / z)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (y <= -1.55e+223) {
tmp = (z / t) * 2.0;
} else {
tmp = x - (y / z);
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if y <= -1.55e+223: tmp = (z / t) * 2.0 else: tmp = x - (y / z) return tmp
function code(x, y, z, t) tmp = 0.0 if (y <= -1.55e+223) tmp = Float64(Float64(z / t) * 2.0); else tmp = Float64(x - Float64(y / z)); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (y <= -1.55e+223) tmp = (z / t) * 2.0; else tmp = x - (y / z); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[y, -1.55e+223], N[(N[(z / t), $MachinePrecision] * 2.0), $MachinePrecision], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.55 \cdot 10^{+223}:\\
\;\;\;\;\frac{z}{t} \cdot 2\\
\mathbf{else}:\\
\;\;\;\;x - \frac{y}{z}\\
\end{array}
\end{array}
if y < -1.54999999999999991e223Initial program 80.8%
Taylor expanded in y around inf
fp-cancel-sub-sign-invN/A
metadata-evalN/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f6490.9
Applied rewrites90.9%
Taylor expanded in x around 0
Applied rewrites44.8%
if -1.54999999999999991e223 < y Initial program 83.8%
Taylor expanded in y around 0
lower-/.f6468.8
Applied rewrites68.8%
(FPCore (x y z t) :precision binary64 (if (<= y -1.55e+223) (* z (/ 2.0 t)) (- x (/ y z))))
double code(double x, double y, double z, double t) {
double tmp;
if (y <= -1.55e+223) {
tmp = z * (2.0 / t);
} 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) :: tmp
if (y <= (-1.55d+223)) then
tmp = z * (2.0d0 / t)
else
tmp = x - (y / z)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (y <= -1.55e+223) {
tmp = z * (2.0 / t);
} else {
tmp = x - (y / z);
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if y <= -1.55e+223: tmp = z * (2.0 / t) else: tmp = x - (y / z) return tmp
function code(x, y, z, t) tmp = 0.0 if (y <= -1.55e+223) tmp = Float64(z * Float64(2.0 / t)); else tmp = Float64(x - Float64(y / z)); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (y <= -1.55e+223) tmp = z * (2.0 / t); else tmp = x - (y / z); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[y, -1.55e+223], N[(z * N[(2.0 / t), $MachinePrecision]), $MachinePrecision], N[(x - N[(y / z), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.55 \cdot 10^{+223}:\\
\;\;\;\;z \cdot \frac{2}{t}\\
\mathbf{else}:\\
\;\;\;\;x - \frac{y}{z}\\
\end{array}
\end{array}
if y < -1.54999999999999991e223Initial program 80.8%
Taylor expanded in y around inf
fp-cancel-sub-sign-invN/A
metadata-evalN/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f6490.9
Applied rewrites90.9%
Taylor expanded in x around 0
Applied rewrites44.8%
Applied rewrites44.6%
if -1.54999999999999991e223 < y Initial program 83.8%
Taylor expanded in y around 0
lower-/.f6468.8
Applied rewrites68.8%
(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.6%
Taylor expanded in y around 0
lower-/.f6464.5
Applied rewrites64.5%
(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.6%
Applied rewrites91.7%
Taylor expanded in x around 0
count-2-revN/A
associate-/l*N/A
associate-/l*N/A
distribute-rgt-outN/A
count-2-revN/A
lower-*.f64N/A
lower-/.f64N/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-*.f6419.2
Applied rewrites19.2%
Taylor expanded in y around 0
Applied rewrites13.0%
(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 2024320
(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)))))