
(FPCore (x y z t) :precision binary64 (+ (* (/ x y) (- z t)) t))
double code(double x, double y, double z, double t) {
return ((x / y) * (z - t)) + 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) * (z - t)) + t
end function
public static double code(double x, double y, double z, double t) {
return ((x / y) * (z - t)) + t;
}
def code(x, y, z, t): return ((x / y) * (z - t)) + t
function code(x, y, z, t) return Float64(Float64(Float64(x / y) * Float64(z - t)) + t) end
function tmp = code(x, y, z, t) tmp = ((x / y) * (z - t)) + t; end
code[x_, y_, z_, t_] := N[(N[(N[(x / y), $MachinePrecision] * N[(z - t), $MachinePrecision]), $MachinePrecision] + t), $MachinePrecision]
\begin{array}{l}
\\
\frac{x}{y} \cdot \left(z - t\right) + t
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 12 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t) :precision binary64 (+ (* (/ x y) (- z t)) t))
double code(double x, double y, double z, double t) {
return ((x / y) * (z - t)) + 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) * (z - t)) + t
end function
public static double code(double x, double y, double z, double t) {
return ((x / y) * (z - t)) + t;
}
def code(x, y, z, t): return ((x / y) * (z - t)) + t
function code(x, y, z, t) return Float64(Float64(Float64(x / y) * Float64(z - t)) + t) end
function tmp = code(x, y, z, t) tmp = ((x / y) * (z - t)) + t; end
code[x_, y_, z_, t_] := N[(N[(N[(x / y), $MachinePrecision] * N[(z - t), $MachinePrecision]), $MachinePrecision] + t), $MachinePrecision]
\begin{array}{l}
\\
\frac{x}{y} \cdot \left(z - t\right) + t
\end{array}
(FPCore (x y z t) :precision binary64 (- t (* (- t z) (/ x y))))
double code(double x, double y, double z, double t) {
return t - ((t - z) * (x / y));
}
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 = t - ((t - z) * (x / y))
end function
public static double code(double x, double y, double z, double t) {
return t - ((t - z) * (x / y));
}
def code(x, y, z, t): return t - ((t - z) * (x / y))
function code(x, y, z, t) return Float64(t - Float64(Float64(t - z) * Float64(x / y))) end
function tmp = code(x, y, z, t) tmp = t - ((t - z) * (x / y)); end
code[x_, y_, z_, t_] := N[(t - N[(N[(t - z), $MachinePrecision] * N[(x / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
t - \left(t - z\right) \cdot \frac{x}{y}
\end{array}
Initial program 98.3%
Final simplification98.3%
(FPCore (x y z t)
:precision binary64
(if (<= (/ x y) -1e+210)
(/ (* z x) y)
(if (<= (/ x y) -2e+80)
(* (/ (- x) y) t)
(if (<= (/ x y) 1e+156) (fma (/ z y) x t) (* (/ (- t) y) x)))))
double code(double x, double y, double z, double t) {
double tmp;
if ((x / y) <= -1e+210) {
tmp = (z * x) / y;
} else if ((x / y) <= -2e+80) {
tmp = (-x / y) * t;
} else if ((x / y) <= 1e+156) {
tmp = fma((z / y), x, t);
} else {
tmp = (-t / y) * x;
}
return tmp;
}
function code(x, y, z, t) tmp = 0.0 if (Float64(x / y) <= -1e+210) tmp = Float64(Float64(z * x) / y); elseif (Float64(x / y) <= -2e+80) tmp = Float64(Float64(Float64(-x) / y) * t); elseif (Float64(x / y) <= 1e+156) tmp = fma(Float64(z / y), x, t); else tmp = Float64(Float64(Float64(-t) / y) * x); end return tmp end
code[x_, y_, z_, t_] := If[LessEqual[N[(x / y), $MachinePrecision], -1e+210], N[(N[(z * x), $MachinePrecision] / y), $MachinePrecision], If[LessEqual[N[(x / y), $MachinePrecision], -2e+80], N[(N[((-x) / y), $MachinePrecision] * t), $MachinePrecision], If[LessEqual[N[(x / y), $MachinePrecision], 1e+156], N[(N[(z / y), $MachinePrecision] * x + t), $MachinePrecision], N[(N[((-t) / y), $MachinePrecision] * x), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{x}{y} \leq -1 \cdot 10^{+210}:\\
\;\;\;\;\frac{z \cdot x}{y}\\
\mathbf{elif}\;\frac{x}{y} \leq -2 \cdot 10^{+80}:\\
\;\;\;\;\frac{-x}{y} \cdot t\\
\mathbf{elif}\;\frac{x}{y} \leq 10^{+156}:\\
\;\;\;\;\mathsf{fma}\left(\frac{z}{y}, x, t\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{-t}{y} \cdot x\\
\end{array}
\end{array}
if (/.f64 x y) < -9.99999999999999927e209Initial program 89.5%
Taylor expanded in z around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f6467.2
Applied rewrites67.2%
Applied rewrites67.5%
if -9.99999999999999927e209 < (/.f64 x y) < -2e80Initial program 99.9%
Taylor expanded in z around 0
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
distribute-rgt1-inN/A
+-commutativeN/A
lower-*.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f6470.3
Applied rewrites70.3%
Taylor expanded in x around inf
Applied rewrites70.3%
if -2e80 < (/.f64 x y) < 9.9999999999999998e155Initial program 99.6%
lift-+.f64N/A
lift-*.f64N/A
lift-/.f64N/A
associate-*l/N/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f6490.3
Applied rewrites90.3%
Taylor expanded in z around inf
lower-/.f6481.7
Applied rewrites81.7%
if 9.9999999999999998e155 < (/.f64 x y) Initial program 96.2%
Taylor expanded in z around 0
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
distribute-rgt1-inN/A
+-commutativeN/A
lower-*.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f6466.6
Applied rewrites66.6%
Taylor expanded in x around inf
Applied rewrites70.2%
Final simplification78.0%
(FPCore (x y z t) :precision binary64 (if (<= (/ x y) -5e+17) (* (/ (- z t) y) x) (if (<= (/ x y) 6.0) (fma (/ z y) x t) (/ (* (- z t) x) y))))
double code(double x, double y, double z, double t) {
double tmp;
if ((x / y) <= -5e+17) {
tmp = ((z - t) / y) * x;
} else if ((x / y) <= 6.0) {
tmp = fma((z / y), x, t);
} else {
tmp = ((z - t) * x) / y;
}
return tmp;
}
function code(x, y, z, t) tmp = 0.0 if (Float64(x / y) <= -5e+17) tmp = Float64(Float64(Float64(z - t) / y) * x); elseif (Float64(x / y) <= 6.0) tmp = fma(Float64(z / y), x, t); else tmp = Float64(Float64(Float64(z - t) * x) / y); end return tmp end
code[x_, y_, z_, t_] := If[LessEqual[N[(x / y), $MachinePrecision], -5e+17], N[(N[(N[(z - t), $MachinePrecision] / y), $MachinePrecision] * x), $MachinePrecision], If[LessEqual[N[(x / y), $MachinePrecision], 6.0], N[(N[(z / y), $MachinePrecision] * x + t), $MachinePrecision], N[(N[(N[(z - t), $MachinePrecision] * x), $MachinePrecision] / y), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{x}{y} \leq -5 \cdot 10^{+17}:\\
\;\;\;\;\frac{z - t}{y} \cdot x\\
\mathbf{elif}\;\frac{x}{y} \leq 6:\\
\;\;\;\;\mathsf{fma}\left(\frac{z}{y}, x, t\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(z - t\right) \cdot x}{y}\\
\end{array}
\end{array}
if (/.f64 x y) < -5e17Initial program 95.8%
Taylor expanded in x around inf
div-subN/A
associate-/l*N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6490.6
Applied rewrites90.6%
Applied rewrites93.2%
if -5e17 < (/.f64 x y) < 6Initial program 99.6%
lift-+.f64N/A
lift-*.f64N/A
lift-/.f64N/A
associate-*l/N/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f6492.2
Applied rewrites92.2%
Taylor expanded in z around inf
lower-/.f6493.7
Applied rewrites93.7%
if 6 < (/.f64 x y) Initial program 98.2%
Taylor expanded in x around inf
div-subN/A
associate-/l*N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6491.0
Applied rewrites91.0%
(FPCore (x y z t) :precision binary64 (let* ((t_1 (* (/ (- z t) y) x))) (if (<= (/ x y) -5e+17) t_1 (if (<= (/ x y) 0.01) (fma (/ z y) x t) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = ((z - t) / y) * x;
double tmp;
if ((x / y) <= -5e+17) {
tmp = t_1;
} else if ((x / y) <= 0.01) {
tmp = fma((z / y), x, t);
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t) t_1 = Float64(Float64(Float64(z - t) / y) * x) tmp = 0.0 if (Float64(x / y) <= -5e+17) tmp = t_1; elseif (Float64(x / y) <= 0.01) tmp = fma(Float64(z / y), x, t); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(N[(z - t), $MachinePrecision] / y), $MachinePrecision] * x), $MachinePrecision]}, If[LessEqual[N[(x / y), $MachinePrecision], -5e+17], t$95$1, If[LessEqual[N[(x / y), $MachinePrecision], 0.01], N[(N[(z / y), $MachinePrecision] * x + t), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{z - t}{y} \cdot x\\
\mathbf{if}\;\frac{x}{y} \leq -5 \cdot 10^{+17}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;\frac{x}{y} \leq 0.01:\\
\;\;\;\;\mathsf{fma}\left(\frac{z}{y}, x, t\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (/.f64 x y) < -5e17 or 0.0100000000000000002 < (/.f64 x y) Initial program 96.9%
Taylor expanded in x around inf
div-subN/A
associate-/l*N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6490.1
Applied rewrites90.1%
Applied rewrites91.7%
if -5e17 < (/.f64 x y) < 0.0100000000000000002Initial program 99.6%
lift-+.f64N/A
lift-*.f64N/A
lift-/.f64N/A
associate-*l/N/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f6492.2
Applied rewrites92.2%
Taylor expanded in z around inf
lower-/.f6493.6
Applied rewrites93.6%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (* z (/ x y))))
(if (<= (/ x y) -200000000000.0)
t_1
(if (<= (/ x y) 2e-13) (* 1.0 t) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = z * (x / y);
double tmp;
if ((x / y) <= -200000000000.0) {
tmp = t_1;
} else if ((x / y) <= 2e-13) {
tmp = 1.0 * t;
} 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 = z * (x / y)
if ((x / y) <= (-200000000000.0d0)) then
tmp = t_1
else if ((x / y) <= 2d-13) then
tmp = 1.0d0 * t
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 = z * (x / y);
double tmp;
if ((x / y) <= -200000000000.0) {
tmp = t_1;
} else if ((x / y) <= 2e-13) {
tmp = 1.0 * t;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t): t_1 = z * (x / y) tmp = 0 if (x / y) <= -200000000000.0: tmp = t_1 elif (x / y) <= 2e-13: tmp = 1.0 * t else: tmp = t_1 return tmp
function code(x, y, z, t) t_1 = Float64(z * Float64(x / y)) tmp = 0.0 if (Float64(x / y) <= -200000000000.0) tmp = t_1; elseif (Float64(x / y) <= 2e-13) tmp = Float64(1.0 * t); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = z * (x / y); tmp = 0.0; if ((x / y) <= -200000000000.0) tmp = t_1; elseif ((x / y) <= 2e-13) tmp = 1.0 * t; else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(z * N[(x / y), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(x / y), $MachinePrecision], -200000000000.0], t$95$1, If[LessEqual[N[(x / y), $MachinePrecision], 2e-13], N[(1.0 * t), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := z \cdot \frac{x}{y}\\
\mathbf{if}\;\frac{x}{y} \leq -200000000000:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;\frac{x}{y} \leq 2 \cdot 10^{-13}:\\
\;\;\;\;1 \cdot t\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (/.f64 x y) < -2e11 or 2.0000000000000001e-13 < (/.f64 x y) Initial program 97.0%
Taylor expanded in z around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f6454.5
Applied rewrites54.5%
if -2e11 < (/.f64 x y) < 2.0000000000000001e-13Initial program 99.6%
Taylor expanded in z around 0
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
distribute-rgt1-inN/A
+-commutativeN/A
lower-*.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f6479.6
Applied rewrites79.6%
Taylor expanded in x around 0
Applied rewrites78.8%
Final simplification66.0%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (* (/ z y) x)))
(if (<= (/ x y) -200000000000.0)
t_1
(if (<= (/ x y) 2e-13) (* 1.0 t) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = (z / y) * x;
double tmp;
if ((x / y) <= -200000000000.0) {
tmp = t_1;
} else if ((x / y) <= 2e-13) {
tmp = 1.0 * t;
} 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 = (z / y) * x
if ((x / y) <= (-200000000000.0d0)) then
tmp = t_1
else if ((x / y) <= 2d-13) then
tmp = 1.0d0 * t
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 = (z / y) * x;
double tmp;
if ((x / y) <= -200000000000.0) {
tmp = t_1;
} else if ((x / y) <= 2e-13) {
tmp = 1.0 * t;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t): t_1 = (z / y) * x tmp = 0 if (x / y) <= -200000000000.0: tmp = t_1 elif (x / y) <= 2e-13: tmp = 1.0 * t else: tmp = t_1 return tmp
function code(x, y, z, t) t_1 = Float64(Float64(z / y) * x) tmp = 0.0 if (Float64(x / y) <= -200000000000.0) tmp = t_1; elseif (Float64(x / y) <= 2e-13) tmp = Float64(1.0 * t); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = (z / y) * x; tmp = 0.0; if ((x / y) <= -200000000000.0) tmp = t_1; elseif ((x / y) <= 2e-13) tmp = 1.0 * t; else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(z / y), $MachinePrecision] * x), $MachinePrecision]}, If[LessEqual[N[(x / y), $MachinePrecision], -200000000000.0], t$95$1, If[LessEqual[N[(x / y), $MachinePrecision], 2e-13], N[(1.0 * t), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{z}{y} \cdot x\\
\mathbf{if}\;\frac{x}{y} \leq -200000000000:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;\frac{x}{y} \leq 2 \cdot 10^{-13}:\\
\;\;\;\;1 \cdot t\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (/.f64 x y) < -2e11 or 2.0000000000000001e-13 < (/.f64 x y) Initial program 97.0%
Taylor expanded in z around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f6454.5
Applied rewrites54.5%
Applied rewrites51.2%
if -2e11 < (/.f64 x y) < 2.0000000000000001e-13Initial program 99.6%
Taylor expanded in z around 0
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
distribute-rgt1-inN/A
+-commutativeN/A
lower-*.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f6479.6
Applied rewrites79.6%
Taylor expanded in x around 0
Applied rewrites78.8%
Final simplification64.3%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (fma (/ z y) x t)))
(if (<= y -9.6e-239)
t_1
(if (<= y -2.3e-299)
(* z (/ x y))
(if (<= y 9e-187) (* (/ (- t) y) x) t_1)))))
double code(double x, double y, double z, double t) {
double t_1 = fma((z / y), x, t);
double tmp;
if (y <= -9.6e-239) {
tmp = t_1;
} else if (y <= -2.3e-299) {
tmp = z * (x / y);
} else if (y <= 9e-187) {
tmp = (-t / y) * x;
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t) t_1 = fma(Float64(z / y), x, t) tmp = 0.0 if (y <= -9.6e-239) tmp = t_1; elseif (y <= -2.3e-299) tmp = Float64(z * Float64(x / y)); elseif (y <= 9e-187) tmp = Float64(Float64(Float64(-t) / y) * x); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(z / y), $MachinePrecision] * x + t), $MachinePrecision]}, If[LessEqual[y, -9.6e-239], t$95$1, If[LessEqual[y, -2.3e-299], N[(z * N[(x / y), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 9e-187], N[(N[((-t) / y), $MachinePrecision] * x), $MachinePrecision], t$95$1]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \mathsf{fma}\left(\frac{z}{y}, x, t\right)\\
\mathbf{if}\;y \leq -9.6 \cdot 10^{-239}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -2.3 \cdot 10^{-299}:\\
\;\;\;\;z \cdot \frac{x}{y}\\
\mathbf{elif}\;y \leq 9 \cdot 10^{-187}:\\
\;\;\;\;\frac{-t}{y} \cdot x\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y < -9.59999999999999971e-239 or 8.9999999999999996e-187 < y Initial program 99.3%
lift-+.f64N/A
lift-*.f64N/A
lift-/.f64N/A
associate-*l/N/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f6495.0
Applied rewrites95.0%
Taylor expanded in z around inf
lower-/.f6479.0
Applied rewrites79.0%
if -9.59999999999999971e-239 < y < -2.3000000000000001e-299Initial program 93.6%
Taylor expanded in z around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f6462.9
Applied rewrites62.9%
if -2.3000000000000001e-299 < y < 8.9999999999999996e-187Initial program 91.8%
Taylor expanded in z around 0
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
distribute-rgt1-inN/A
+-commutativeN/A
lower-*.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f6482.3
Applied rewrites82.3%
Taylor expanded in x around inf
Applied rewrites78.1%
Final simplification78.0%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (fma (/ z y) x t)))
(if (<= z -2.85e+112)
t_1
(if (<= z 70000000000000.0) (* (- 1.0 (/ x y)) t) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = fma((z / y), x, t);
double tmp;
if (z <= -2.85e+112) {
tmp = t_1;
} else if (z <= 70000000000000.0) {
tmp = (1.0 - (x / y)) * t;
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t) t_1 = fma(Float64(z / y), x, t) tmp = 0.0 if (z <= -2.85e+112) tmp = t_1; elseif (z <= 70000000000000.0) tmp = Float64(Float64(1.0 - Float64(x / y)) * t); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(z / y), $MachinePrecision] * x + t), $MachinePrecision]}, If[LessEqual[z, -2.85e+112], t$95$1, If[LessEqual[z, 70000000000000.0], N[(N[(1.0 - N[(x / y), $MachinePrecision]), $MachinePrecision] * t), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \mathsf{fma}\left(\frac{z}{y}, x, t\right)\\
\mathbf{if}\;z \leq -2.85 \cdot 10^{+112}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 70000000000000:\\
\;\;\;\;\left(1 - \frac{x}{y}\right) \cdot t\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if z < -2.85000000000000016e112 or 7e13 < z Initial program 99.6%
lift-+.f64N/A
lift-*.f64N/A
lift-/.f64N/A
associate-*l/N/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f6490.4
Applied rewrites90.4%
Taylor expanded in z around inf
lower-/.f6485.4
Applied rewrites85.4%
if -2.85000000000000016e112 < z < 7e13Initial program 97.1%
Taylor expanded in z around 0
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
distribute-rgt1-inN/A
+-commutativeN/A
lower-*.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f6486.6
Applied rewrites86.6%
(FPCore (x y z t) :precision binary64 (let* ((t_1 (fma (/ z y) x t))) (if (<= y -3.1e-169) t_1 (if (<= y 9e-187) (/ (* (- t) x) y) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = fma((z / y), x, t);
double tmp;
if (y <= -3.1e-169) {
tmp = t_1;
} else if (y <= 9e-187) {
tmp = (-t * x) / y;
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t) t_1 = fma(Float64(z / y), x, t) tmp = 0.0 if (y <= -3.1e-169) tmp = t_1; elseif (y <= 9e-187) tmp = Float64(Float64(Float64(-t) * x) / y); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(z / y), $MachinePrecision] * x + t), $MachinePrecision]}, If[LessEqual[y, -3.1e-169], t$95$1, If[LessEqual[y, 9e-187], N[(N[((-t) * x), $MachinePrecision] / y), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \mathsf{fma}\left(\frac{z}{y}, x, t\right)\\
\mathbf{if}\;y \leq -3.1 \cdot 10^{-169}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 9 \cdot 10^{-187}:\\
\;\;\;\;\frac{\left(-t\right) \cdot x}{y}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y < -3.1000000000000002e-169 or 8.9999999999999996e-187 < y Initial program 99.2%
lift-+.f64N/A
lift-*.f64N/A
lift-/.f64N/A
associate-*l/N/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f6497.0
Applied rewrites97.0%
Taylor expanded in z around inf
lower-/.f6481.5
Applied rewrites81.5%
if -3.1000000000000002e-169 < y < 8.9999999999999996e-187Initial program 94.8%
Taylor expanded in x around inf
div-subN/A
associate-/l*N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6485.5
Applied rewrites85.5%
Taylor expanded in z around 0
Applied rewrites58.9%
(FPCore (x y z t) :precision binary64 (fma (/ (- z t) y) x t))
double code(double x, double y, double z, double t) {
return fma(((z - t) / y), x, t);
}
function code(x, y, z, t) return fma(Float64(Float64(z - t) / y), x, t) end
code[x_, y_, z_, t_] := N[(N[(N[(z - t), $MachinePrecision] / y), $MachinePrecision] * x + t), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\frac{z - t}{y}, x, t\right)
\end{array}
Initial program 98.3%
lift-+.f64N/A
lift-*.f64N/A
lift-/.f64N/A
associate-*l/N/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f6492.1
Applied rewrites92.1%
(FPCore (x y z t) :precision binary64 (fma (/ z y) x t))
double code(double x, double y, double z, double t) {
return fma((z / y), x, t);
}
function code(x, y, z, t) return fma(Float64(z / y), x, t) end
code[x_, y_, z_, t_] := N[(N[(z / y), $MachinePrecision] * x + t), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\frac{z}{y}, x, t\right)
\end{array}
Initial program 98.3%
lift-+.f64N/A
lift-*.f64N/A
lift-/.f64N/A
associate-*l/N/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f6492.1
Applied rewrites92.1%
Taylor expanded in z around inf
lower-/.f6472.1
Applied rewrites72.1%
(FPCore (x y z t) :precision binary64 (* 1.0 t))
double code(double x, double y, double z, double t) {
return 1.0 * 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 = 1.0d0 * t
end function
public static double code(double x, double y, double z, double t) {
return 1.0 * t;
}
def code(x, y, z, t): return 1.0 * t
function code(x, y, z, t) return Float64(1.0 * t) end
function tmp = code(x, y, z, t) tmp = 1.0 * t; end
code[x_, y_, z_, t_] := N[(1.0 * t), $MachinePrecision]
\begin{array}{l}
\\
1 \cdot t
\end{array}
Initial program 98.3%
Taylor expanded in z around 0
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
distribute-rgt1-inN/A
+-commutativeN/A
lower-*.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f6466.6
Applied rewrites66.6%
Taylor expanded in x around 0
Applied rewrites39.0%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (+ (* (/ x y) (- z t)) t)))
(if (< z 2.759456554562692e-282)
t_1
(if (< z 2.326994450874436e-110) (+ (* x (/ (- z t) y)) t) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = ((x / y) * (z - t)) + t;
double tmp;
if (z < 2.759456554562692e-282) {
tmp = t_1;
} else if (z < 2.326994450874436e-110) {
tmp = (x * ((z - t) / y)) + t;
} 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 - t)) + t
if (z < 2.759456554562692d-282) then
tmp = t_1
else if (z < 2.326994450874436d-110) then
tmp = (x * ((z - t) / y)) + t
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 - t)) + t;
double tmp;
if (z < 2.759456554562692e-282) {
tmp = t_1;
} else if (z < 2.326994450874436e-110) {
tmp = (x * ((z - t) / y)) + t;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t): t_1 = ((x / y) * (z - t)) + t tmp = 0 if z < 2.759456554562692e-282: tmp = t_1 elif z < 2.326994450874436e-110: tmp = (x * ((z - t) / y)) + t else: tmp = t_1 return tmp
function code(x, y, z, t) t_1 = Float64(Float64(Float64(x / y) * Float64(z - t)) + t) tmp = 0.0 if (z < 2.759456554562692e-282) tmp = t_1; elseif (z < 2.326994450874436e-110) tmp = Float64(Float64(x * Float64(Float64(z - t) / y)) + t); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = ((x / y) * (z - t)) + t; tmp = 0.0; if (z < 2.759456554562692e-282) tmp = t_1; elseif (z < 2.326994450874436e-110) tmp = (x * ((z - t) / y)) + t; else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(N[(x / y), $MachinePrecision] * N[(z - t), $MachinePrecision]), $MachinePrecision] + t), $MachinePrecision]}, If[Less[z, 2.759456554562692e-282], t$95$1, If[Less[z, 2.326994450874436e-110], N[(N[(x * N[(N[(z - t), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision] + t), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{x}{y} \cdot \left(z - t\right) + t\\
\mathbf{if}\;z < 2.759456554562692 \cdot 10^{-282}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z < 2.326994450874436 \cdot 10^{-110}:\\
\;\;\;\;x \cdot \frac{z - t}{y} + t\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
herbie shell --seed 2024298
(FPCore (x y z t)
:name "Numeric.Signal.Multichannel:$cget from hsignal-0.2.7.1"
:precision binary64
:alt
(! :herbie-platform default (if (< z 689864138640673/250000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) (+ (* (/ x y) (- z t)) t) (if (< z 581748612718609/25000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) (+ (* x (/ (- z t) y)) t) (+ (* (/ x y) (- z t)) t))))
(+ (* (/ x y) (- z t)) t))