
(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 10 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 (+ (* (- z t) (/ x y)) t))
double code(double x, double y, double z, double t) {
return ((z - t) * (x / 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 = ((z - t) * (x / y)) + t
end function
public static double code(double x, double y, double z, double t) {
return ((z - t) * (x / y)) + t;
}
def code(x, y, z, t): return ((z - t) * (x / y)) + t
function code(x, y, z, t) return Float64(Float64(Float64(z - t) * Float64(x / y)) + t) end
function tmp = code(x, y, z, t) tmp = ((z - t) * (x / y)) + t; end
code[x_, y_, z_, t_] := N[(N[(N[(z - t), $MachinePrecision] * N[(x / y), $MachinePrecision]), $MachinePrecision] + t), $MachinePrecision]
\begin{array}{l}
\\
\left(z - t\right) \cdot \frac{x}{y} + t
\end{array}
Initial program 98.7%
Final simplification98.7%
(FPCore (x y z t) :precision binary64 (let* ((t_1 (/ (* (- z t) x) y))) (if (<= (/ x y) -20.0) t_1 (if (<= (/ x y) 1e-6) (+ (/ (* z x) y) t) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = ((z - t) * x) / y;
double tmp;
if ((x / y) <= -20.0) {
tmp = t_1;
} else if ((x / y) <= 1e-6) {
tmp = ((z * x) / 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 = ((z - t) * x) / y
if ((x / y) <= (-20.0d0)) then
tmp = t_1
else if ((x / y) <= 1d-6) then
tmp = ((z * x) / 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 = ((z - t) * x) / y;
double tmp;
if ((x / y) <= -20.0) {
tmp = t_1;
} else if ((x / y) <= 1e-6) {
tmp = ((z * x) / y) + t;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t): t_1 = ((z - t) * x) / y tmp = 0 if (x / y) <= -20.0: tmp = t_1 elif (x / y) <= 1e-6: tmp = ((z * x) / y) + t else: tmp = t_1 return tmp
function code(x, y, z, t) t_1 = Float64(Float64(Float64(z - t) * x) / y) tmp = 0.0 if (Float64(x / y) <= -20.0) tmp = t_1; elseif (Float64(x / y) <= 1e-6) tmp = Float64(Float64(Float64(z * x) / y) + t); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = ((z - t) * x) / y; tmp = 0.0; if ((x / y) <= -20.0) tmp = t_1; elseif ((x / y) <= 1e-6) tmp = ((z * x) / y) + t; else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(N[(z - t), $MachinePrecision] * x), $MachinePrecision] / y), $MachinePrecision]}, If[LessEqual[N[(x / y), $MachinePrecision], -20.0], t$95$1, If[LessEqual[N[(x / y), $MachinePrecision], 1e-6], N[(N[(N[(z * x), $MachinePrecision] / y), $MachinePrecision] + t), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{\left(z - t\right) \cdot x}{y}\\
\mathbf{if}\;\frac{x}{y} \leq -20:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;\frac{x}{y} \leq 10^{-6}:\\
\;\;\;\;\frac{z \cdot x}{y} + t\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (/.f64 x y) < -20 or 9.99999999999999955e-7 < (/.f64 x y) Initial program 97.8%
Taylor expanded in x around inf
div-subN/A
associate-/l*N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6489.4
Applied rewrites89.4%
if -20 < (/.f64 x y) < 9.99999999999999955e-7Initial program 99.8%
lift-*.f64N/A
lift-/.f64N/A
associate-*l/N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f6491.4
Applied rewrites91.4%
Taylor expanded in z around inf
lower-*.f6495.4
Applied rewrites95.4%
Final simplification92.0%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (/ (* (- z t) x) y)))
(if (<= (/ x y) -2e-17)
t_1
(if (<= (/ x y) 1e+19) (fma (/ x y) (- t) t) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = ((z - t) * x) / y;
double tmp;
if ((x / y) <= -2e-17) {
tmp = t_1;
} else if ((x / y) <= 1e+19) {
tmp = fma((x / y), -t, t);
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t) t_1 = Float64(Float64(Float64(z - t) * x) / y) tmp = 0.0 if (Float64(x / y) <= -2e-17) tmp = t_1; elseif (Float64(x / y) <= 1e+19) tmp = fma(Float64(x / y), Float64(-t), t); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(N[(z - t), $MachinePrecision] * x), $MachinePrecision] / y), $MachinePrecision]}, If[LessEqual[N[(x / y), $MachinePrecision], -2e-17], t$95$1, If[LessEqual[N[(x / y), $MachinePrecision], 1e+19], N[(N[(x / y), $MachinePrecision] * (-t) + t), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{\left(z - t\right) \cdot x}{y}\\
\mathbf{if}\;\frac{x}{y} \leq -2 \cdot 10^{-17}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;\frac{x}{y} \leq 10^{+19}:\\
\;\;\;\;\mathsf{fma}\left(\frac{x}{y}, -t, t\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (/.f64 x y) < -2.00000000000000014e-17 or 1e19 < (/.f64 x y) Initial program 97.8%
Taylor expanded in x around inf
div-subN/A
associate-/l*N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6490.7
Applied rewrites90.7%
if -2.00000000000000014e-17 < (/.f64 x y) < 1e19Initial program 99.7%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
clear-numN/A
un-div-invN/A
lower-/.f64N/A
lower-/.f6499.1
Applied rewrites99.1%
Taylor expanded in z around 0
+-commutativeN/A
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
associate-*r/N/A
associate-*l/N/A
associate-/l*N/A
lower-fma.f64N/A
mul-1-negN/A
lower-neg.f64N/A
lower-/.f6469.0
Applied rewrites69.0%
Applied rewrites69.0%
Applied rewrites76.6%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (/ (* (- z t) x) y)))
(if (<= (/ x y) -2e-17)
t_1
(if (<= (/ x y) 1e+19) (- t (* t (/ x y))) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = ((z - t) * x) / y;
double tmp;
if ((x / y) <= -2e-17) {
tmp = t_1;
} else if ((x / y) <= 1e+19) {
tmp = t - (t * (x / y));
} 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 - t) * x) / y
if ((x / y) <= (-2d-17)) then
tmp = t_1
else if ((x / y) <= 1d+19) then
tmp = t - (t * (x / y))
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 - t) * x) / y;
double tmp;
if ((x / y) <= -2e-17) {
tmp = t_1;
} else if ((x / y) <= 1e+19) {
tmp = t - (t * (x / y));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t): t_1 = ((z - t) * x) / y tmp = 0 if (x / y) <= -2e-17: tmp = t_1 elif (x / y) <= 1e+19: tmp = t - (t * (x / y)) else: tmp = t_1 return tmp
function code(x, y, z, t) t_1 = Float64(Float64(Float64(z - t) * x) / y) tmp = 0.0 if (Float64(x / y) <= -2e-17) tmp = t_1; elseif (Float64(x / y) <= 1e+19) tmp = Float64(t - Float64(t * Float64(x / y))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = ((z - t) * x) / y; tmp = 0.0; if ((x / y) <= -2e-17) tmp = t_1; elseif ((x / y) <= 1e+19) tmp = t - (t * (x / y)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(N[(z - t), $MachinePrecision] * x), $MachinePrecision] / y), $MachinePrecision]}, If[LessEqual[N[(x / y), $MachinePrecision], -2e-17], t$95$1, If[LessEqual[N[(x / y), $MachinePrecision], 1e+19], N[(t - N[(t * N[(x / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{\left(z - t\right) \cdot x}{y}\\
\mathbf{if}\;\frac{x}{y} \leq -2 \cdot 10^{-17}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;\frac{x}{y} \leq 10^{+19}:\\
\;\;\;\;t - t \cdot \frac{x}{y}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (/.f64 x y) < -2.00000000000000014e-17 or 1e19 < (/.f64 x y) Initial program 97.8%
Taylor expanded in x around inf
div-subN/A
associate-/l*N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6490.7
Applied rewrites90.7%
if -2.00000000000000014e-17 < (/.f64 x y) < 1e19Initial program 99.7%
Taylor expanded in z around 0
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
*-commutativeN/A
associate-*l/N/A
lower-*.f64N/A
lower-/.f6476.6
Applied rewrites76.6%
Final simplification84.4%
(FPCore (x y z t) :precision binary64 (let* ((t_1 (- t (* t (/ x y))))) (if (<= t -1.7e+33) t_1 (if (<= t 2.75e-173) (* z (/ x y)) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = t - (t * (x / y));
double tmp;
if (t <= -1.7e+33) {
tmp = t_1;
} else if (t <= 2.75e-173) {
tmp = z * (x / y);
} 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 = t - (t * (x / y))
if (t <= (-1.7d+33)) then
tmp = t_1
else if (t <= 2.75d-173) then
tmp = z * (x / y)
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 = t - (t * (x / y));
double tmp;
if (t <= -1.7e+33) {
tmp = t_1;
} else if (t <= 2.75e-173) {
tmp = z * (x / y);
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t): t_1 = t - (t * (x / y)) tmp = 0 if t <= -1.7e+33: tmp = t_1 elif t <= 2.75e-173: tmp = z * (x / y) else: tmp = t_1 return tmp
function code(x, y, z, t) t_1 = Float64(t - Float64(t * Float64(x / y))) tmp = 0.0 if (t <= -1.7e+33) tmp = t_1; elseif (t <= 2.75e-173) tmp = Float64(z * Float64(x / y)); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = t - (t * (x / y)); tmp = 0.0; if (t <= -1.7e+33) tmp = t_1; elseif (t <= 2.75e-173) tmp = z * (x / y); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(t - N[(t * N[(x / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -1.7e+33], t$95$1, If[LessEqual[t, 2.75e-173], N[(z * N[(x / y), $MachinePrecision]), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t - t \cdot \frac{x}{y}\\
\mathbf{if}\;t \leq -1.7 \cdot 10^{+33}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t \leq 2.75 \cdot 10^{-173}:\\
\;\;\;\;z \cdot \frac{x}{y}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if t < -1.7e33 or 2.75000000000000011e-173 < t Initial program 99.9%
Taylor expanded in z around 0
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
*-commutativeN/A
associate-*l/N/A
lower-*.f64N/A
lower-/.f6489.0
Applied rewrites89.0%
if -1.7e33 < t < 2.75000000000000011e-173Initial program 97.1%
Taylor expanded in z around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f6471.2
Applied rewrites71.2%
Final simplification81.3%
(FPCore (x y z t) :precision binary64 (let* ((t_1 (* z (/ x y)))) (if (<= z -3.1e-22) t_1 (if (<= z 9e-28) (* (- t) (/ x y)) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = z * (x / y);
double tmp;
if (z <= -3.1e-22) {
tmp = t_1;
} else if (z <= 9e-28) {
tmp = -t * (x / y);
} 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 (z <= (-3.1d-22)) then
tmp = t_1
else if (z <= 9d-28) then
tmp = -t * (x / y)
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 (z <= -3.1e-22) {
tmp = t_1;
} else if (z <= 9e-28) {
tmp = -t * (x / y);
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t): t_1 = z * (x / y) tmp = 0 if z <= -3.1e-22: tmp = t_1 elif z <= 9e-28: tmp = -t * (x / y) else: tmp = t_1 return tmp
function code(x, y, z, t) t_1 = Float64(z * Float64(x / y)) tmp = 0.0 if (z <= -3.1e-22) tmp = t_1; elseif (z <= 9e-28) tmp = Float64(Float64(-t) * Float64(x / y)); 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 (z <= -3.1e-22) tmp = t_1; elseif (z <= 9e-28) tmp = -t * (x / y); 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[z, -3.1e-22], t$95$1, If[LessEqual[z, 9e-28], N[((-t) * N[(x / y), $MachinePrecision]), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := z \cdot \frac{x}{y}\\
\mathbf{if}\;z \leq -3.1 \cdot 10^{-22}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 9 \cdot 10^{-28}:\\
\;\;\;\;\left(-t\right) \cdot \frac{x}{y}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if z < -3.10000000000000013e-22 or 8.9999999999999996e-28 < z Initial program 99.7%
Taylor expanded in z around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f6466.6
Applied rewrites66.6%
if -3.10000000000000013e-22 < z < 8.9999999999999996e-28Initial program 97.7%
Taylor expanded in x around inf
div-subN/A
associate-/l*N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6455.3
Applied rewrites55.3%
Taylor expanded in z around 0
Applied rewrites43.8%
Applied rewrites48.1%
Final simplification57.2%
(FPCore (x y z t) :precision binary64 (if (<= t -1.7e+33) (* (/ (- t) y) x) (if (<= t 9.5e-92) (* z (/ x y)) (/ (* (- t) x) y))))
double code(double x, double y, double z, double t) {
double tmp;
if (t <= -1.7e+33) {
tmp = (-t / y) * x;
} else if (t <= 9.5e-92) {
tmp = z * (x / y);
} else {
tmp = (-t * x) / y;
}
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 (t <= (-1.7d+33)) then
tmp = (-t / y) * x
else if (t <= 9.5d-92) then
tmp = z * (x / y)
else
tmp = (-t * x) / y
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (t <= -1.7e+33) {
tmp = (-t / y) * x;
} else if (t <= 9.5e-92) {
tmp = z * (x / y);
} else {
tmp = (-t * x) / y;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if t <= -1.7e+33: tmp = (-t / y) * x elif t <= 9.5e-92: tmp = z * (x / y) else: tmp = (-t * x) / y return tmp
function code(x, y, z, t) tmp = 0.0 if (t <= -1.7e+33) tmp = Float64(Float64(Float64(-t) / y) * x); elseif (t <= 9.5e-92) tmp = Float64(z * Float64(x / y)); else tmp = Float64(Float64(Float64(-t) * x) / y); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (t <= -1.7e+33) tmp = (-t / y) * x; elseif (t <= 9.5e-92) tmp = z * (x / y); else tmp = (-t * x) / y; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[t, -1.7e+33], N[(N[((-t) / y), $MachinePrecision] * x), $MachinePrecision], If[LessEqual[t, 9.5e-92], N[(z * N[(x / y), $MachinePrecision]), $MachinePrecision], N[(N[((-t) * x), $MachinePrecision] / y), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -1.7 \cdot 10^{+33}:\\
\;\;\;\;\frac{-t}{y} \cdot x\\
\mathbf{elif}\;t \leq 9.5 \cdot 10^{-92}:\\
\;\;\;\;z \cdot \frac{x}{y}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(-t\right) \cdot x}{y}\\
\end{array}
\end{array}
if t < -1.7e33Initial program 100.0%
Taylor expanded in x around inf
div-subN/A
associate-/l*N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6449.9
Applied rewrites49.9%
Taylor expanded in z around 0
Applied rewrites44.9%
Applied rewrites50.0%
if -1.7e33 < t < 9.49999999999999946e-92Initial program 97.4%
Taylor expanded in z around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f6467.9
Applied rewrites67.9%
if 9.49999999999999946e-92 < t Initial program 99.8%
Taylor expanded in x around inf
div-subN/A
associate-/l*N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6450.5
Applied rewrites50.5%
Taylor expanded in z around 0
Applied rewrites43.1%
Final simplification56.4%
(FPCore (x y z t) :precision binary64 (let* ((t_1 (* z (/ x y)))) (if (<= z -6.7e-38) t_1 (if (<= z 8.8e-28) (* (/ (- t) y) x) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = z * (x / y);
double tmp;
if (z <= -6.7e-38) {
tmp = t_1;
} else if (z <= 8.8e-28) {
tmp = (-t / y) * x;
} 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 (z <= (-6.7d-38)) then
tmp = t_1
else if (z <= 8.8d-28) then
tmp = (-t / y) * x
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 (z <= -6.7e-38) {
tmp = t_1;
} else if (z <= 8.8e-28) {
tmp = (-t / y) * x;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t): t_1 = z * (x / y) tmp = 0 if z <= -6.7e-38: tmp = t_1 elif z <= 8.8e-28: tmp = (-t / y) * x else: tmp = t_1 return tmp
function code(x, y, z, t) t_1 = Float64(z * Float64(x / y)) tmp = 0.0 if (z <= -6.7e-38) tmp = t_1; elseif (z <= 8.8e-28) tmp = Float64(Float64(Float64(-t) / y) * x); 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 (z <= -6.7e-38) tmp = t_1; elseif (z <= 8.8e-28) tmp = (-t / y) * x; 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[z, -6.7e-38], t$95$1, If[LessEqual[z, 8.8e-28], N[(N[((-t) / y), $MachinePrecision] * x), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := z \cdot \frac{x}{y}\\
\mathbf{if}\;z \leq -6.7 \cdot 10^{-38}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 8.8 \cdot 10^{-28}:\\
\;\;\;\;\frac{-t}{y} \cdot x\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if z < -6.7000000000000004e-38 or 8.79999999999999984e-28 < z Initial program 99.7%
Taylor expanded in z around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f6465.2
Applied rewrites65.2%
if -6.7000000000000004e-38 < z < 8.79999999999999984e-28Initial program 97.6%
Taylor expanded in x around inf
div-subN/A
associate-/l*N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6453.9
Applied rewrites53.9%
Taylor expanded in z around 0
Applied rewrites43.5%
Applied rewrites44.9%
Final simplification55.4%
(FPCore (x y z t) :precision binary64 (if (<= t 4.8e+113) (fma (/ (- z t) y) x t) (- t (* t (/ x y)))))
double code(double x, double y, double z, double t) {
double tmp;
if (t <= 4.8e+113) {
tmp = fma(((z - t) / y), x, t);
} else {
tmp = t - (t * (x / y));
}
return tmp;
}
function code(x, y, z, t) tmp = 0.0 if (t <= 4.8e+113) tmp = fma(Float64(Float64(z - t) / y), x, t); else tmp = Float64(t - Float64(t * Float64(x / y))); end return tmp end
code[x_, y_, z_, t_] := If[LessEqual[t, 4.8e+113], N[(N[(N[(z - t), $MachinePrecision] / y), $MachinePrecision] * x + t), $MachinePrecision], N[(t - N[(t * N[(x / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq 4.8 \cdot 10^{+113}:\\
\;\;\;\;\mathsf{fma}\left(\frac{z - t}{y}, x, t\right)\\
\mathbf{else}:\\
\;\;\;\;t - t \cdot \frac{x}{y}\\
\end{array}
\end{array}
if t < 4.79999999999999966e113Initial program 98.5%
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.2
Applied rewrites95.2%
if 4.79999999999999966e113 < t Initial program 99.8%
Taylor expanded in z around 0
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
*-commutativeN/A
associate-*l/N/A
lower-*.f64N/A
lower-/.f6499.8
Applied rewrites99.8%
Final simplification96.0%
(FPCore (x y z t) :precision binary64 (* z (/ x y)))
double code(double x, double y, double z, double t) {
return 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 = z * (x / y)
end function
public static double code(double x, double y, double z, double t) {
return z * (x / y);
}
def code(x, y, z, t): return z * (x / y)
function code(x, y, z, t) return Float64(z * Float64(x / y)) end
function tmp = code(x, y, z, t) tmp = z * (x / y); end
code[x_, y_, z_, t_] := N[(z * N[(x / y), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
z \cdot \frac{x}{y}
\end{array}
Initial program 98.7%
Taylor expanded in z around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f6441.0
Applied rewrites41.0%
Final simplification41.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 2024294
(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))