
(FPCore (u v t1) :precision binary64 (/ (* (- t1) v) (* (+ t1 u) (+ t1 u))))
double code(double u, double v, double t1) {
return (-t1 * v) / ((t1 + u) * (t1 + u));
}
real(8) function code(u, v, t1)
real(8), intent (in) :: u
real(8), intent (in) :: v
real(8), intent (in) :: t1
code = (-t1 * v) / ((t1 + u) * (t1 + u))
end function
public static double code(double u, double v, double t1) {
return (-t1 * v) / ((t1 + u) * (t1 + u));
}
def code(u, v, t1): return (-t1 * v) / ((t1 + u) * (t1 + u))
function code(u, v, t1) return Float64(Float64(Float64(-t1) * v) / Float64(Float64(t1 + u) * Float64(t1 + u))) end
function tmp = code(u, v, t1) tmp = (-t1 * v) / ((t1 + u) * (t1 + u)); end
code[u_, v_, t1_] := N[(N[((-t1) * v), $MachinePrecision] / N[(N[(t1 + u), $MachinePrecision] * N[(t1 + u), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\left(-t1\right) \cdot v}{\left(t1 + u\right) \cdot \left(t1 + u\right)}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 12 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (u v t1) :precision binary64 (/ (* (- t1) v) (* (+ t1 u) (+ t1 u))))
double code(double u, double v, double t1) {
return (-t1 * v) / ((t1 + u) * (t1 + u));
}
real(8) function code(u, v, t1)
real(8), intent (in) :: u
real(8), intent (in) :: v
real(8), intent (in) :: t1
code = (-t1 * v) / ((t1 + u) * (t1 + u))
end function
public static double code(double u, double v, double t1) {
return (-t1 * v) / ((t1 + u) * (t1 + u));
}
def code(u, v, t1): return (-t1 * v) / ((t1 + u) * (t1 + u))
function code(u, v, t1) return Float64(Float64(Float64(-t1) * v) / Float64(Float64(t1 + u) * Float64(t1 + u))) end
function tmp = code(u, v, t1) tmp = (-t1 * v) / ((t1 + u) * (t1 + u)); end
code[u_, v_, t1_] := N[(N[((-t1) * v), $MachinePrecision] / N[(N[(t1 + u), $MachinePrecision] * N[(t1 + u), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\left(-t1\right) \cdot v}{\left(t1 + u\right) \cdot \left(t1 + u\right)}
\end{array}
(FPCore (u v t1) :precision binary64 (/ (/ v (+ t1 u)) (/ (- (+ t1 u)) t1)))
double code(double u, double v, double t1) {
return (v / (t1 + u)) / (-(t1 + u) / t1);
}
real(8) function code(u, v, t1)
real(8), intent (in) :: u
real(8), intent (in) :: v
real(8), intent (in) :: t1
code = (v / (t1 + u)) / (-(t1 + u) / t1)
end function
public static double code(double u, double v, double t1) {
return (v / (t1 + u)) / (-(t1 + u) / t1);
}
def code(u, v, t1): return (v / (t1 + u)) / (-(t1 + u) / t1)
function code(u, v, t1) return Float64(Float64(v / Float64(t1 + u)) / Float64(Float64(-Float64(t1 + u)) / t1)) end
function tmp = code(u, v, t1) tmp = (v / (t1 + u)) / (-(t1 + u) / t1); end
code[u_, v_, t1_] := N[(N[(v / N[(t1 + u), $MachinePrecision]), $MachinePrecision] / N[((-N[(t1 + u), $MachinePrecision]) / t1), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\frac{v}{t1 + u}}{\frac{-\left(t1 + u\right)}{t1}}
\end{array}
Initial program 73.9%
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
lift-*.f64N/A
times-fracN/A
clear-numN/A
un-div-invN/A
lower-/.f64N/A
lower-/.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
frac-2negN/A
lift-neg.f64N/A
remove-double-negN/A
lower-/.f64N/A
lower-neg.f6499.2
lift-+.f64N/A
+-commutativeN/A
lower-+.f6499.2
Applied rewrites99.2%
Final simplification99.2%
(FPCore (u v t1)
:precision binary64
(let* ((t_1 (/ (* t1 v) (* (- (+ t1 u)) (+ t1 u)))))
(if (<= t1 -3.5e+136)
(/ (- v) t1)
(if (<= t1 -2.35e-136)
t_1
(if (<= t1 3.6e-186)
(* (/ t1 u) (/ (- v) u))
(if (<= t1 2.5e+109) t_1 (/ (- v) (fma u 2.0 t1))))))))
double code(double u, double v, double t1) {
double t_1 = (t1 * v) / (-(t1 + u) * (t1 + u));
double tmp;
if (t1 <= -3.5e+136) {
tmp = -v / t1;
} else if (t1 <= -2.35e-136) {
tmp = t_1;
} else if (t1 <= 3.6e-186) {
tmp = (t1 / u) * (-v / u);
} else if (t1 <= 2.5e+109) {
tmp = t_1;
} else {
tmp = -v / fma(u, 2.0, t1);
}
return tmp;
}
function code(u, v, t1) t_1 = Float64(Float64(t1 * v) / Float64(Float64(-Float64(t1 + u)) * Float64(t1 + u))) tmp = 0.0 if (t1 <= -3.5e+136) tmp = Float64(Float64(-v) / t1); elseif (t1 <= -2.35e-136) tmp = t_1; elseif (t1 <= 3.6e-186) tmp = Float64(Float64(t1 / u) * Float64(Float64(-v) / u)); elseif (t1 <= 2.5e+109) tmp = t_1; else tmp = Float64(Float64(-v) / fma(u, 2.0, t1)); end return tmp end
code[u_, v_, t1_] := Block[{t$95$1 = N[(N[(t1 * v), $MachinePrecision] / N[((-N[(t1 + u), $MachinePrecision]) * N[(t1 + u), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t1, -3.5e+136], N[((-v) / t1), $MachinePrecision], If[LessEqual[t1, -2.35e-136], t$95$1, If[LessEqual[t1, 3.6e-186], N[(N[(t1 / u), $MachinePrecision] * N[((-v) / u), $MachinePrecision]), $MachinePrecision], If[LessEqual[t1, 2.5e+109], t$95$1, N[((-v) / N[(u * 2.0 + t1), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{t1 \cdot v}{\left(-\left(t1 + u\right)\right) \cdot \left(t1 + u\right)}\\
\mathbf{if}\;t1 \leq -3.5 \cdot 10^{+136}:\\
\;\;\;\;\frac{-v}{t1}\\
\mathbf{elif}\;t1 \leq -2.35 \cdot 10^{-136}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t1 \leq 3.6 \cdot 10^{-186}:\\
\;\;\;\;\frac{t1}{u} \cdot \frac{-v}{u}\\
\mathbf{elif}\;t1 \leq 2.5 \cdot 10^{+109}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;\frac{-v}{\mathsf{fma}\left(u, 2, t1\right)}\\
\end{array}
\end{array}
if t1 < -3.50000000000000001e136Initial program 47.7%
Taylor expanded in u around 0
associate-*r/N/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6493.3
Applied rewrites93.3%
if -3.50000000000000001e136 < t1 < -2.35000000000000011e-136 or 3.5999999999999998e-186 < t1 < 2.5000000000000001e109Initial program 94.3%
if -2.35000000000000011e-136 < t1 < 3.5999999999999998e-186Initial program 71.2%
lift-/.f64N/A
frac-2negN/A
lift-*.f64N/A
distribute-rgt-neg-inN/A
lift-*.f64N/A
*-commutativeN/A
distribute-lft-neg-inN/A
times-fracN/A
lift-neg.f64N/A
frac-2negN/A
lower-*.f64N/A
lower-/.f64N/A
lower-neg.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-/.f6496.6
lift-+.f64N/A
+-commutativeN/A
lower-+.f6496.6
Applied rewrites96.6%
Taylor expanded in u around inf
associate-*r/N/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6485.5
Applied rewrites85.5%
Taylor expanded in u around inf
lower-/.f6489.1
Applied rewrites89.1%
if 2.5000000000000001e109 < t1 Initial program 36.3%
Taylor expanded in u around inf
unpow2N/A
lower-*.f6416.0
Applied rewrites16.0%
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f6416.4
Applied rewrites16.4%
lift-*.f64N/A
lift-/.f64N/A
clear-numN/A
un-div-invN/A
frac-2negN/A
lift-neg.f64N/A
lift-neg.f64N/A
distribute-frac-neg2N/A
remove-double-negN/A
lower-/.f64N/A
lower-/.f6416.4
Applied rewrites16.4%
Taylor expanded in u around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f6488.2
Applied rewrites88.2%
Final simplification92.0%
(FPCore (u v t1)
:precision binary64
(let* ((t_1 (* (/ (- v) (* (+ t1 u) (+ t1 u))) t1))
(t_2 (/ (- v) (fma u 2.0 t1))))
(if (<= t1 -6e+38)
t_2
(if (<= t1 -4.5e-146)
t_1
(if (<= t1 2.6e-162)
(* (/ t1 u) (/ (- v) u))
(if (<= t1 1.6e+135) t_1 t_2))))))
double code(double u, double v, double t1) {
double t_1 = (-v / ((t1 + u) * (t1 + u))) * t1;
double t_2 = -v / fma(u, 2.0, t1);
double tmp;
if (t1 <= -6e+38) {
tmp = t_2;
} else if (t1 <= -4.5e-146) {
tmp = t_1;
} else if (t1 <= 2.6e-162) {
tmp = (t1 / u) * (-v / u);
} else if (t1 <= 1.6e+135) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
function code(u, v, t1) t_1 = Float64(Float64(Float64(-v) / Float64(Float64(t1 + u) * Float64(t1 + u))) * t1) t_2 = Float64(Float64(-v) / fma(u, 2.0, t1)) tmp = 0.0 if (t1 <= -6e+38) tmp = t_2; elseif (t1 <= -4.5e-146) tmp = t_1; elseif (t1 <= 2.6e-162) tmp = Float64(Float64(t1 / u) * Float64(Float64(-v) / u)); elseif (t1 <= 1.6e+135) tmp = t_1; else tmp = t_2; end return tmp end
code[u_, v_, t1_] := Block[{t$95$1 = N[(N[((-v) / N[(N[(t1 + u), $MachinePrecision] * N[(t1 + u), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * t1), $MachinePrecision]}, Block[{t$95$2 = N[((-v) / N[(u * 2.0 + t1), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t1, -6e+38], t$95$2, If[LessEqual[t1, -4.5e-146], t$95$1, If[LessEqual[t1, 2.6e-162], N[(N[(t1 / u), $MachinePrecision] * N[((-v) / u), $MachinePrecision]), $MachinePrecision], If[LessEqual[t1, 1.6e+135], t$95$1, t$95$2]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{-v}{\left(t1 + u\right) \cdot \left(t1 + u\right)} \cdot t1\\
t_2 := \frac{-v}{\mathsf{fma}\left(u, 2, t1\right)}\\
\mathbf{if}\;t1 \leq -6 \cdot 10^{+38}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t1 \leq -4.5 \cdot 10^{-146}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t1 \leq 2.6 \cdot 10^{-162}:\\
\;\;\;\;\frac{t1}{u} \cdot \frac{-v}{u}\\
\mathbf{elif}\;t1 \leq 1.6 \cdot 10^{+135}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if t1 < -6.0000000000000002e38 or 1.59999999999999987e135 < t1 Initial program 51.3%
Taylor expanded in u around inf
unpow2N/A
lower-*.f6416.4
Applied rewrites16.4%
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f6416.7
Applied rewrites16.7%
lift-*.f64N/A
lift-/.f64N/A
clear-numN/A
un-div-invN/A
frac-2negN/A
lift-neg.f64N/A
lift-neg.f64N/A
distribute-frac-neg2N/A
remove-double-negN/A
lower-/.f64N/A
lower-/.f6416.7
Applied rewrites16.7%
Taylor expanded in u around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f6490.7
Applied rewrites90.7%
if -6.0000000000000002e38 < t1 < -4.5000000000000001e-146 or 2.6e-162 < t1 < 1.59999999999999987e135Initial program 92.6%
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6491.6
lift-+.f64N/A
+-commutativeN/A
lower-+.f6491.6
lift-+.f64N/A
+-commutativeN/A
lower-+.f6491.6
Applied rewrites91.6%
if -4.5000000000000001e-146 < t1 < 2.6e-162Initial program 72.2%
lift-/.f64N/A
frac-2negN/A
lift-*.f64N/A
distribute-rgt-neg-inN/A
lift-*.f64N/A
*-commutativeN/A
distribute-lft-neg-inN/A
times-fracN/A
lift-neg.f64N/A
frac-2negN/A
lower-*.f64N/A
lower-/.f64N/A
lower-neg.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-/.f6496.7
lift-+.f64N/A
+-commutativeN/A
lower-+.f6496.7
Applied rewrites96.7%
Taylor expanded in u around inf
associate-*r/N/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6487.7
Applied rewrites87.7%
Taylor expanded in u around inf
lower-/.f6489.5
Applied rewrites89.5%
Final simplification90.8%
(FPCore (u v t1)
:precision binary64
(let* ((t_1 (/ (- v) (fma u 2.0 t1))))
(if (<= t1 -2.3e-122)
t_1
(if (<= t1 8.5e-52) (* (/ t1 u) (/ (- v) u)) t_1))))
double code(double u, double v, double t1) {
double t_1 = -v / fma(u, 2.0, t1);
double tmp;
if (t1 <= -2.3e-122) {
tmp = t_1;
} else if (t1 <= 8.5e-52) {
tmp = (t1 / u) * (-v / u);
} else {
tmp = t_1;
}
return tmp;
}
function code(u, v, t1) t_1 = Float64(Float64(-v) / fma(u, 2.0, t1)) tmp = 0.0 if (t1 <= -2.3e-122) tmp = t_1; elseif (t1 <= 8.5e-52) tmp = Float64(Float64(t1 / u) * Float64(Float64(-v) / u)); else tmp = t_1; end return tmp end
code[u_, v_, t1_] := Block[{t$95$1 = N[((-v) / N[(u * 2.0 + t1), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t1, -2.3e-122], t$95$1, If[LessEqual[t1, 8.5e-52], N[(N[(t1 / u), $MachinePrecision] * N[((-v) / u), $MachinePrecision]), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{-v}{\mathsf{fma}\left(u, 2, t1\right)}\\
\mathbf{if}\;t1 \leq -2.3 \cdot 10^{-122}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t1 \leq 8.5 \cdot 10^{-52}:\\
\;\;\;\;\frac{t1}{u} \cdot \frac{-v}{u}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if t1 < -2.30000000000000007e-122 or 8.50000000000000006e-52 < t1 Initial program 71.6%
Taylor expanded in u around inf
unpow2N/A
lower-*.f6429.2
Applied rewrites29.2%
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f6429.0
Applied rewrites29.0%
lift-*.f64N/A
lift-/.f64N/A
clear-numN/A
un-div-invN/A
frac-2negN/A
lift-neg.f64N/A
lift-neg.f64N/A
distribute-frac-neg2N/A
remove-double-negN/A
lower-/.f64N/A
lower-/.f6428.8
Applied rewrites28.8%
Taylor expanded in u around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f6480.3
Applied rewrites80.3%
if -2.30000000000000007e-122 < t1 < 8.50000000000000006e-52Initial program 78.8%
lift-/.f64N/A
frac-2negN/A
lift-*.f64N/A
distribute-rgt-neg-inN/A
lift-*.f64N/A
*-commutativeN/A
distribute-lft-neg-inN/A
times-fracN/A
lift-neg.f64N/A
frac-2negN/A
lower-*.f64N/A
lower-/.f64N/A
lower-neg.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-/.f6497.5
lift-+.f64N/A
+-commutativeN/A
lower-+.f6497.5
Applied rewrites97.5%
Taylor expanded in u around inf
associate-*r/N/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6482.8
Applied rewrites82.8%
Taylor expanded in u around inf
lower-/.f6485.4
Applied rewrites85.4%
Final simplification82.0%
(FPCore (u v t1) :precision binary64 (let* ((t_1 (/ (- v) (fma u 2.0 t1)))) (if (<= t1 -2.3e-122) t_1 (if (<= t1 4e-55) (/ (* (- t1) v) (* u u)) t_1))))
double code(double u, double v, double t1) {
double t_1 = -v / fma(u, 2.0, t1);
double tmp;
if (t1 <= -2.3e-122) {
tmp = t_1;
} else if (t1 <= 4e-55) {
tmp = (-t1 * v) / (u * u);
} else {
tmp = t_1;
}
return tmp;
}
function code(u, v, t1) t_1 = Float64(Float64(-v) / fma(u, 2.0, t1)) tmp = 0.0 if (t1 <= -2.3e-122) tmp = t_1; elseif (t1 <= 4e-55) tmp = Float64(Float64(Float64(-t1) * v) / Float64(u * u)); else tmp = t_1; end return tmp end
code[u_, v_, t1_] := Block[{t$95$1 = N[((-v) / N[(u * 2.0 + t1), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t1, -2.3e-122], t$95$1, If[LessEqual[t1, 4e-55], N[(N[((-t1) * v), $MachinePrecision] / N[(u * u), $MachinePrecision]), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{-v}{\mathsf{fma}\left(u, 2, t1\right)}\\
\mathbf{if}\;t1 \leq -2.3 \cdot 10^{-122}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t1 \leq 4 \cdot 10^{-55}:\\
\;\;\;\;\frac{\left(-t1\right) \cdot v}{u \cdot u}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if t1 < -2.30000000000000007e-122 or 3.99999999999999998e-55 < t1 Initial program 71.6%
Taylor expanded in u around inf
unpow2N/A
lower-*.f6429.2
Applied rewrites29.2%
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f6429.0
Applied rewrites29.0%
lift-*.f64N/A
lift-/.f64N/A
clear-numN/A
un-div-invN/A
frac-2negN/A
lift-neg.f64N/A
lift-neg.f64N/A
distribute-frac-neg2N/A
remove-double-negN/A
lower-/.f64N/A
lower-/.f6428.8
Applied rewrites28.8%
Taylor expanded in u around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f6480.3
Applied rewrites80.3%
if -2.30000000000000007e-122 < t1 < 3.99999999999999998e-55Initial program 78.8%
Taylor expanded in u around inf
unpow2N/A
lower-*.f6473.0
Applied rewrites73.0%
(FPCore (u v t1) :precision binary64 (let* ((t_1 (/ (- v) (fma u 2.0 t1)))) (if (<= t1 -2.3e-122) t_1 (if (<= t1 4e-55) (* (/ t1 (* u u)) (- v)) t_1))))
double code(double u, double v, double t1) {
double t_1 = -v / fma(u, 2.0, t1);
double tmp;
if (t1 <= -2.3e-122) {
tmp = t_1;
} else if (t1 <= 4e-55) {
tmp = (t1 / (u * u)) * -v;
} else {
tmp = t_1;
}
return tmp;
}
function code(u, v, t1) t_1 = Float64(Float64(-v) / fma(u, 2.0, t1)) tmp = 0.0 if (t1 <= -2.3e-122) tmp = t_1; elseif (t1 <= 4e-55) tmp = Float64(Float64(t1 / Float64(u * u)) * Float64(-v)); else tmp = t_1; end return tmp end
code[u_, v_, t1_] := Block[{t$95$1 = N[((-v) / N[(u * 2.0 + t1), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t1, -2.3e-122], t$95$1, If[LessEqual[t1, 4e-55], N[(N[(t1 / N[(u * u), $MachinePrecision]), $MachinePrecision] * (-v)), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{-v}{\mathsf{fma}\left(u, 2, t1\right)}\\
\mathbf{if}\;t1 \leq -2.3 \cdot 10^{-122}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t1 \leq 4 \cdot 10^{-55}:\\
\;\;\;\;\frac{t1}{u \cdot u} \cdot \left(-v\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if t1 < -2.30000000000000007e-122 or 3.99999999999999998e-55 < t1 Initial program 71.6%
Taylor expanded in u around inf
unpow2N/A
lower-*.f6429.2
Applied rewrites29.2%
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f6429.0
Applied rewrites29.0%
lift-*.f64N/A
lift-/.f64N/A
clear-numN/A
un-div-invN/A
frac-2negN/A
lift-neg.f64N/A
lift-neg.f64N/A
distribute-frac-neg2N/A
remove-double-negN/A
lower-/.f64N/A
lower-/.f6428.8
Applied rewrites28.8%
Taylor expanded in u around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f6480.3
Applied rewrites80.3%
if -2.30000000000000007e-122 < t1 < 3.99999999999999998e-55Initial program 78.8%
Taylor expanded in u around inf
mul-1-negN/A
*-commutativeN/A
associate-/l*N/A
distribute-lft-neg-inN/A
mul-1-negN/A
lower-*.f64N/A
mul-1-negN/A
lower-neg.f64N/A
lower-/.f64N/A
unpow2N/A
lower-*.f6472.0
Applied rewrites72.0%
Final simplification77.7%
(FPCore (u v t1) :precision binary64 (* (/ t1 (+ t1 u)) (/ (- v) (+ t1 u))))
double code(double u, double v, double t1) {
return (t1 / (t1 + u)) * (-v / (t1 + u));
}
real(8) function code(u, v, t1)
real(8), intent (in) :: u
real(8), intent (in) :: v
real(8), intent (in) :: t1
code = (t1 / (t1 + u)) * (-v / (t1 + u))
end function
public static double code(double u, double v, double t1) {
return (t1 / (t1 + u)) * (-v / (t1 + u));
}
def code(u, v, t1): return (t1 / (t1 + u)) * (-v / (t1 + u))
function code(u, v, t1) return Float64(Float64(t1 / Float64(t1 + u)) * Float64(Float64(-v) / Float64(t1 + u))) end
function tmp = code(u, v, t1) tmp = (t1 / (t1 + u)) * (-v / (t1 + u)); end
code[u_, v_, t1_] := N[(N[(t1 / N[(t1 + u), $MachinePrecision]), $MachinePrecision] * N[((-v) / N[(t1 + u), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{t1}{t1 + u} \cdot \frac{-v}{t1 + u}
\end{array}
Initial program 73.9%
lift-/.f64N/A
frac-2negN/A
lift-*.f64N/A
distribute-rgt-neg-inN/A
lift-*.f64N/A
*-commutativeN/A
distribute-lft-neg-inN/A
times-fracN/A
lift-neg.f64N/A
frac-2negN/A
lower-*.f64N/A
lower-/.f64N/A
lower-neg.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-/.f6499.1
lift-+.f64N/A
+-commutativeN/A
lower-+.f6499.1
Applied rewrites99.1%
Final simplification99.1%
(FPCore (u v t1) :precision binary64 (/ (- v) (fma (+ 2.0 (/ u t1)) u t1)))
double code(double u, double v, double t1) {
return -v / fma((2.0 + (u / t1)), u, t1);
}
function code(u, v, t1) return Float64(Float64(-v) / fma(Float64(2.0 + Float64(u / t1)), u, t1)) end
code[u_, v_, t1_] := N[((-v) / N[(N[(2.0 + N[(u / t1), $MachinePrecision]), $MachinePrecision] * u + t1), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{-v}{\mathsf{fma}\left(2 + \frac{u}{t1}, u, t1\right)}
\end{array}
Initial program 73.9%
Taylor expanded in u around inf
unpow2N/A
lower-*.f6443.2
Applied rewrites43.2%
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f6442.7
Applied rewrites42.7%
lift-*.f64N/A
lift-/.f64N/A
clear-numN/A
un-div-invN/A
frac-2negN/A
lift-neg.f64N/A
lift-neg.f64N/A
distribute-frac-neg2N/A
remove-double-negN/A
lower-/.f64N/A
lower-/.f6442.7
Applied rewrites42.7%
Taylor expanded in u around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-/.f6496.9
Applied rewrites96.9%
Final simplification96.9%
(FPCore (u v t1) :precision binary64 (let* ((t_1 (* 1.0 (/ (- v) u)))) (if (<= u -4.6e+166) t_1 (if (<= u 2.5e+146) (/ (- v) t1) t_1))))
double code(double u, double v, double t1) {
double t_1 = 1.0 * (-v / u);
double tmp;
if (u <= -4.6e+166) {
tmp = t_1;
} else if (u <= 2.5e+146) {
tmp = -v / t1;
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(u, v, t1)
real(8), intent (in) :: u
real(8), intent (in) :: v
real(8), intent (in) :: t1
real(8) :: t_1
real(8) :: tmp
t_1 = 1.0d0 * (-v / u)
if (u <= (-4.6d+166)) then
tmp = t_1
else if (u <= 2.5d+146) then
tmp = -v / t1
else
tmp = t_1
end if
code = tmp
end function
public static double code(double u, double v, double t1) {
double t_1 = 1.0 * (-v / u);
double tmp;
if (u <= -4.6e+166) {
tmp = t_1;
} else if (u <= 2.5e+146) {
tmp = -v / t1;
} else {
tmp = t_1;
}
return tmp;
}
def code(u, v, t1): t_1 = 1.0 * (-v / u) tmp = 0 if u <= -4.6e+166: tmp = t_1 elif u <= 2.5e+146: tmp = -v / t1 else: tmp = t_1 return tmp
function code(u, v, t1) t_1 = Float64(1.0 * Float64(Float64(-v) / u)) tmp = 0.0 if (u <= -4.6e+166) tmp = t_1; elseif (u <= 2.5e+146) tmp = Float64(Float64(-v) / t1); else tmp = t_1; end return tmp end
function tmp_2 = code(u, v, t1) t_1 = 1.0 * (-v / u); tmp = 0.0; if (u <= -4.6e+166) tmp = t_1; elseif (u <= 2.5e+146) tmp = -v / t1; else tmp = t_1; end tmp_2 = tmp; end
code[u_, v_, t1_] := Block[{t$95$1 = N[(1.0 * N[((-v) / u), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[u, -4.6e+166], t$95$1, If[LessEqual[u, 2.5e+146], N[((-v) / t1), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := 1 \cdot \frac{-v}{u}\\
\mathbf{if}\;u \leq -4.6 \cdot 10^{+166}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;u \leq 2.5 \cdot 10^{+146}:\\
\;\;\;\;\frac{-v}{t1}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if u < -4.60000000000000015e166 or 2.4999999999999999e146 < u Initial program 78.4%
lift-/.f64N/A
frac-2negN/A
lift-*.f64N/A
distribute-rgt-neg-inN/A
lift-*.f64N/A
*-commutativeN/A
distribute-lft-neg-inN/A
times-fracN/A
lift-neg.f64N/A
frac-2negN/A
lower-*.f64N/A
lower-/.f64N/A
lower-neg.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-/.f6498.5
lift-+.f64N/A
+-commutativeN/A
lower-+.f6498.5
Applied rewrites98.5%
Taylor expanded in u around inf
associate-*r/N/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6493.1
Applied rewrites93.1%
Taylor expanded in u around 0
Applied rewrites43.2%
if -4.60000000000000015e166 < u < 2.4999999999999999e146Initial program 72.1%
Taylor expanded in u around 0
associate-*r/N/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6469.2
Applied rewrites69.2%
Final simplification61.9%
(FPCore (u v t1) :precision binary64 (/ (- v) (fma u 2.0 t1)))
double code(double u, double v, double t1) {
return -v / fma(u, 2.0, t1);
}
function code(u, v, t1) return Float64(Float64(-v) / fma(u, 2.0, t1)) end
code[u_, v_, t1_] := N[((-v) / N[(u * 2.0 + t1), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{-v}{\mathsf{fma}\left(u, 2, t1\right)}
\end{array}
Initial program 73.9%
Taylor expanded in u around inf
unpow2N/A
lower-*.f6443.2
Applied rewrites43.2%
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f6442.7
Applied rewrites42.7%
lift-*.f64N/A
lift-/.f64N/A
clear-numN/A
un-div-invN/A
frac-2negN/A
lift-neg.f64N/A
lift-neg.f64N/A
distribute-frac-neg2N/A
remove-double-negN/A
lower-/.f64N/A
lower-/.f6442.7
Applied rewrites42.7%
Taylor expanded in u around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f6464.9
Applied rewrites64.9%
(FPCore (u v t1) :precision binary64 (/ v (* -1.0 (+ t1 u))))
double code(double u, double v, double t1) {
return v / (-1.0 * (t1 + u));
}
real(8) function code(u, v, t1)
real(8), intent (in) :: u
real(8), intent (in) :: v
real(8), intent (in) :: t1
code = v / ((-1.0d0) * (t1 + u))
end function
public static double code(double u, double v, double t1) {
return v / (-1.0 * (t1 + u));
}
def code(u, v, t1): return v / (-1.0 * (t1 + u))
function code(u, v, t1) return Float64(v / Float64(-1.0 * Float64(t1 + u))) end
function tmp = code(u, v, t1) tmp = v / (-1.0 * (t1 + u)); end
code[u_, v_, t1_] := N[(v / N[(-1.0 * N[(t1 + u), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{v}{-1 \cdot \left(t1 + u\right)}
\end{array}
Initial program 73.9%
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
lift-*.f64N/A
times-fracN/A
clear-numN/A
un-div-invN/A
lower-/.f64N/A
lower-/.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
frac-2negN/A
lift-neg.f64N/A
remove-double-negN/A
lower-/.f64N/A
lower-neg.f6499.2
lift-+.f64N/A
+-commutativeN/A
lower-+.f6499.2
Applied rewrites99.2%
Taylor expanded in u around 0
Applied rewrites64.4%
lift-/.f64N/A
lift-/.f64N/A
associate-/l/N/A
lower-/.f64N/A
lower-*.f6464.4
lift-+.f64N/A
+-commutativeN/A
lower-+.f6464.4
Applied rewrites64.4%
(FPCore (u v t1) :precision binary64 (/ (- v) t1))
double code(double u, double v, double t1) {
return -v / t1;
}
real(8) function code(u, v, t1)
real(8), intent (in) :: u
real(8), intent (in) :: v
real(8), intent (in) :: t1
code = -v / t1
end function
public static double code(double u, double v, double t1) {
return -v / t1;
}
def code(u, v, t1): return -v / t1
function code(u, v, t1) return Float64(Float64(-v) / t1) end
function tmp = code(u, v, t1) tmp = -v / t1; end
code[u_, v_, t1_] := N[((-v) / t1), $MachinePrecision]
\begin{array}{l}
\\
\frac{-v}{t1}
\end{array}
Initial program 73.9%
Taylor expanded in u around 0
associate-*r/N/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6455.7
Applied rewrites55.7%
herbie shell --seed 2024240
(FPCore (u v t1)
:name "Rosa's DopplerBench"
:precision binary64
(/ (* (- t1) v) (* (+ t1 u) (+ t1 u))))