
(FPCore (alpha beta i)
:precision binary64
(let* ((t_0 (* i (+ (+ alpha beta) i)))
(t_1 (+ (+ alpha beta) (* 2.0 i)))
(t_2 (* t_1 t_1)))
(/ (/ (* t_0 (+ (* beta alpha) t_0)) t_2) (- t_2 1.0))))
double code(double alpha, double beta, double i) {
double t_0 = i * ((alpha + beta) + i);
double t_1 = (alpha + beta) + (2.0 * i);
double t_2 = t_1 * t_1;
return ((t_0 * ((beta * alpha) + t_0)) / t_2) / (t_2 - 1.0);
}
real(8) function code(alpha, beta, i)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8), intent (in) :: i
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
t_0 = i * ((alpha + beta) + i)
t_1 = (alpha + beta) + (2.0d0 * i)
t_2 = t_1 * t_1
code = ((t_0 * ((beta * alpha) + t_0)) / t_2) / (t_2 - 1.0d0)
end function
public static double code(double alpha, double beta, double i) {
double t_0 = i * ((alpha + beta) + i);
double t_1 = (alpha + beta) + (2.0 * i);
double t_2 = t_1 * t_1;
return ((t_0 * ((beta * alpha) + t_0)) / t_2) / (t_2 - 1.0);
}
def code(alpha, beta, i): t_0 = i * ((alpha + beta) + i) t_1 = (alpha + beta) + (2.0 * i) t_2 = t_1 * t_1 return ((t_0 * ((beta * alpha) + t_0)) / t_2) / (t_2 - 1.0)
function code(alpha, beta, i) t_0 = Float64(i * Float64(Float64(alpha + beta) + i)) t_1 = Float64(Float64(alpha + beta) + Float64(2.0 * i)) t_2 = Float64(t_1 * t_1) return Float64(Float64(Float64(t_0 * Float64(Float64(beta * alpha) + t_0)) / t_2) / Float64(t_2 - 1.0)) end
function tmp = code(alpha, beta, i) t_0 = i * ((alpha + beta) + i); t_1 = (alpha + beta) + (2.0 * i); t_2 = t_1 * t_1; tmp = ((t_0 * ((beta * alpha) + t_0)) / t_2) / (t_2 - 1.0); end
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(i * N[(N[(alpha + beta), $MachinePrecision] + i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * t$95$1), $MachinePrecision]}, N[(N[(N[(t$95$0 * N[(N[(beta * alpha), $MachinePrecision] + t$95$0), $MachinePrecision]), $MachinePrecision] / t$95$2), $MachinePrecision] / N[(t$95$2 - 1.0), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := i \cdot \left(\left(\alpha + \beta\right) + i\right)\\
t_1 := \left(\alpha + \beta\right) + 2 \cdot i\\
t_2 := t\_1 \cdot t\_1\\
\frac{\frac{t\_0 \cdot \left(\beta \cdot \alpha + t\_0\right)}{t\_2}}{t\_2 - 1}
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 10 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (alpha beta i)
:precision binary64
(let* ((t_0 (* i (+ (+ alpha beta) i)))
(t_1 (+ (+ alpha beta) (* 2.0 i)))
(t_2 (* t_1 t_1)))
(/ (/ (* t_0 (+ (* beta alpha) t_0)) t_2) (- t_2 1.0))))
double code(double alpha, double beta, double i) {
double t_0 = i * ((alpha + beta) + i);
double t_1 = (alpha + beta) + (2.0 * i);
double t_2 = t_1 * t_1;
return ((t_0 * ((beta * alpha) + t_0)) / t_2) / (t_2 - 1.0);
}
real(8) function code(alpha, beta, i)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8), intent (in) :: i
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
t_0 = i * ((alpha + beta) + i)
t_1 = (alpha + beta) + (2.0d0 * i)
t_2 = t_1 * t_1
code = ((t_0 * ((beta * alpha) + t_0)) / t_2) / (t_2 - 1.0d0)
end function
public static double code(double alpha, double beta, double i) {
double t_0 = i * ((alpha + beta) + i);
double t_1 = (alpha + beta) + (2.0 * i);
double t_2 = t_1 * t_1;
return ((t_0 * ((beta * alpha) + t_0)) / t_2) / (t_2 - 1.0);
}
def code(alpha, beta, i): t_0 = i * ((alpha + beta) + i) t_1 = (alpha + beta) + (2.0 * i) t_2 = t_1 * t_1 return ((t_0 * ((beta * alpha) + t_0)) / t_2) / (t_2 - 1.0)
function code(alpha, beta, i) t_0 = Float64(i * Float64(Float64(alpha + beta) + i)) t_1 = Float64(Float64(alpha + beta) + Float64(2.0 * i)) t_2 = Float64(t_1 * t_1) return Float64(Float64(Float64(t_0 * Float64(Float64(beta * alpha) + t_0)) / t_2) / Float64(t_2 - 1.0)) end
function tmp = code(alpha, beta, i) t_0 = i * ((alpha + beta) + i); t_1 = (alpha + beta) + (2.0 * i); t_2 = t_1 * t_1; tmp = ((t_0 * ((beta * alpha) + t_0)) / t_2) / (t_2 - 1.0); end
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(i * N[(N[(alpha + beta), $MachinePrecision] + i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * t$95$1), $MachinePrecision]}, N[(N[(N[(t$95$0 * N[(N[(beta * alpha), $MachinePrecision] + t$95$0), $MachinePrecision]), $MachinePrecision] / t$95$2), $MachinePrecision] / N[(t$95$2 - 1.0), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := i \cdot \left(\left(\alpha + \beta\right) + i\right)\\
t_1 := \left(\alpha + \beta\right) + 2 \cdot i\\
t_2 := t\_1 \cdot t\_1\\
\frac{\frac{t\_0 \cdot \left(\beta \cdot \alpha + t\_0\right)}{t\_2}}{t\_2 - 1}
\end{array}
\end{array}
(FPCore (alpha beta i)
:precision binary64
(let* ((t_0 (+ i (+ alpha beta))) (t_1 (fma i 2.0 (+ alpha beta))))
(if (<= i 3e+140)
(*
(/ (/ (* i t_0) t_1) (+ t_1 1.0))
(/ (/ (fma i t_0 (* alpha beta)) t_1) (+ t_1 -1.0)))
(*
(/
(* i (/ t_0 (+ alpha (fma i 2.0 beta))))
(- alpha (- -1.0 (fma i 2.0 beta))))
0.25))))
double code(double alpha, double beta, double i) {
double t_0 = i + (alpha + beta);
double t_1 = fma(i, 2.0, (alpha + beta));
double tmp;
if (i <= 3e+140) {
tmp = (((i * t_0) / t_1) / (t_1 + 1.0)) * ((fma(i, t_0, (alpha * beta)) / t_1) / (t_1 + -1.0));
} else {
tmp = ((i * (t_0 / (alpha + fma(i, 2.0, beta)))) / (alpha - (-1.0 - fma(i, 2.0, beta)))) * 0.25;
}
return tmp;
}
function code(alpha, beta, i) t_0 = Float64(i + Float64(alpha + beta)) t_1 = fma(i, 2.0, Float64(alpha + beta)) tmp = 0.0 if (i <= 3e+140) tmp = Float64(Float64(Float64(Float64(i * t_0) / t_1) / Float64(t_1 + 1.0)) * Float64(Float64(fma(i, t_0, Float64(alpha * beta)) / t_1) / Float64(t_1 + -1.0))); else tmp = Float64(Float64(Float64(i * Float64(t_0 / Float64(alpha + fma(i, 2.0, beta)))) / Float64(alpha - Float64(-1.0 - fma(i, 2.0, beta)))) * 0.25); end return tmp end
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(i + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(i * 2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[i, 3e+140], N[(N[(N[(N[(i * t$95$0), $MachinePrecision] / t$95$1), $MachinePrecision] / N[(t$95$1 + 1.0), $MachinePrecision]), $MachinePrecision] * N[(N[(N[(i * t$95$0 + N[(alpha * beta), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision] / N[(t$95$1 + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(i * N[(t$95$0 / N[(alpha + N[(i * 2.0 + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(alpha - N[(-1.0 - N[(i * 2.0 + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * 0.25), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := i + \left(\alpha + \beta\right)\\
t_1 := \mathsf{fma}\left(i, 2, \alpha + \beta\right)\\
\mathbf{if}\;i \leq 3 \cdot 10^{+140}:\\
\;\;\;\;\frac{\frac{i \cdot t\_0}{t\_1}}{t\_1 + 1} \cdot \frac{\frac{\mathsf{fma}\left(i, t\_0, \alpha \cdot \beta\right)}{t\_1}}{t\_1 + -1}\\
\mathbf{else}:\\
\;\;\;\;\frac{i \cdot \frac{t\_0}{\alpha + \mathsf{fma}\left(i, 2, \beta\right)}}{\alpha - \left(-1 - \mathsf{fma}\left(i, 2, \beta\right)\right)} \cdot 0.25\\
\end{array}
\end{array}
if i < 2.99999999999999997e140Initial program 39.4%
Applied egg-rr86.7%
if 2.99999999999999997e140 < i Initial program 0.2%
Applied egg-rr8.1%
lift-+.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-*.f64N/A
associate-/l*N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
Applied egg-rr8.0%
Taylor expanded in i around -inf
Simplified83.1%
lift-+.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-/.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-+.f64N/A
lift-/.f64N/A
*-commutativeN/A
Applied egg-rr83.1%
Final simplification84.8%
(FPCore (alpha beta i)
:precision binary64
(let* ((t_0 (+ (+ alpha beta) (* i 2.0)))
(t_1 (* t_0 t_0))
(t_2 (+ -1.0 t_1))
(t_3 (* i (+ i (+ alpha beta)))))
(if (<= (/ (/ (* t_3 (+ t_3 (* alpha beta))) t_1) t_2) 2e-18)
(/ (* i i) t_2)
0.0625)))
double code(double alpha, double beta, double i) {
double t_0 = (alpha + beta) + (i * 2.0);
double t_1 = t_0 * t_0;
double t_2 = -1.0 + t_1;
double t_3 = i * (i + (alpha + beta));
double tmp;
if ((((t_3 * (t_3 + (alpha * beta))) / t_1) / t_2) <= 2e-18) {
tmp = (i * i) / t_2;
} else {
tmp = 0.0625;
}
return tmp;
}
real(8) function code(alpha, beta, i)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8), intent (in) :: i
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_0 = (alpha + beta) + (i * 2.0d0)
t_1 = t_0 * t_0
t_2 = (-1.0d0) + t_1
t_3 = i * (i + (alpha + beta))
if ((((t_3 * (t_3 + (alpha * beta))) / t_1) / t_2) <= 2d-18) then
tmp = (i * i) / t_2
else
tmp = 0.0625d0
end if
code = tmp
end function
public static double code(double alpha, double beta, double i) {
double t_0 = (alpha + beta) + (i * 2.0);
double t_1 = t_0 * t_0;
double t_2 = -1.0 + t_1;
double t_3 = i * (i + (alpha + beta));
double tmp;
if ((((t_3 * (t_3 + (alpha * beta))) / t_1) / t_2) <= 2e-18) {
tmp = (i * i) / t_2;
} else {
tmp = 0.0625;
}
return tmp;
}
def code(alpha, beta, i): t_0 = (alpha + beta) + (i * 2.0) t_1 = t_0 * t_0 t_2 = -1.0 + t_1 t_3 = i * (i + (alpha + beta)) tmp = 0 if (((t_3 * (t_3 + (alpha * beta))) / t_1) / t_2) <= 2e-18: tmp = (i * i) / t_2 else: tmp = 0.0625 return tmp
function code(alpha, beta, i) t_0 = Float64(Float64(alpha + beta) + Float64(i * 2.0)) t_1 = Float64(t_0 * t_0) t_2 = Float64(-1.0 + t_1) t_3 = Float64(i * Float64(i + Float64(alpha + beta))) tmp = 0.0 if (Float64(Float64(Float64(t_3 * Float64(t_3 + Float64(alpha * beta))) / t_1) / t_2) <= 2e-18) tmp = Float64(Float64(i * i) / t_2); else tmp = 0.0625; end return tmp end
function tmp_2 = code(alpha, beta, i) t_0 = (alpha + beta) + (i * 2.0); t_1 = t_0 * t_0; t_2 = -1.0 + t_1; t_3 = i * (i + (alpha + beta)); tmp = 0.0; if ((((t_3 * (t_3 + (alpha * beta))) / t_1) / t_2) <= 2e-18) tmp = (i * i) / t_2; else tmp = 0.0625; end tmp_2 = tmp; end
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(N[(alpha + beta), $MachinePrecision] + N[(i * 2.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 * t$95$0), $MachinePrecision]}, Block[{t$95$2 = N[(-1.0 + t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(i * N[(i + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(N[(N[(t$95$3 * N[(t$95$3 + N[(alpha * beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision] / t$95$2), $MachinePrecision], 2e-18], N[(N[(i * i), $MachinePrecision] / t$95$2), $MachinePrecision], 0.0625]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\alpha + \beta\right) + i \cdot 2\\
t_1 := t\_0 \cdot t\_0\\
t_2 := -1 + t\_1\\
t_3 := i \cdot \left(i + \left(\alpha + \beta\right)\right)\\
\mathbf{if}\;\frac{\frac{t\_3 \cdot \left(t\_3 + \alpha \cdot \beta\right)}{t\_1}}{t\_2} \leq 2 \cdot 10^{-18}:\\
\;\;\;\;\frac{i \cdot i}{t\_2}\\
\mathbf{else}:\\
\;\;\;\;0.0625\\
\end{array}
\end{array}
if (/.f64 (/.f64 (*.f64 (*.f64 i (+.f64 (+.f64 alpha beta) i)) (+.f64 (*.f64 beta alpha) (*.f64 i (+.f64 (+.f64 alpha beta) i)))) (*.f64 (+.f64 (+.f64 alpha beta) (*.f64 #s(literal 2 binary64) i)) (+.f64 (+.f64 alpha beta) (*.f64 #s(literal 2 binary64) i)))) (-.f64 (*.f64 (+.f64 (+.f64 alpha beta) (*.f64 #s(literal 2 binary64) i)) (+.f64 (+.f64 alpha beta) (*.f64 #s(literal 2 binary64) i))) #s(literal 1 binary64))) < 2.0000000000000001e-18Initial program 98.6%
Taylor expanded in alpha around inf
*-commutativeN/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
unpow2N/A
lower-*.f6423.3
Simplified23.3%
Taylor expanded in alpha around inf
lower-*.f64N/A
lower-+.f6425.9
Simplified25.9%
Taylor expanded in i around inf
unpow2N/A
lower-*.f6493.7
Simplified93.7%
if 2.0000000000000001e-18 < (/.f64 (/.f64 (*.f64 (*.f64 i (+.f64 (+.f64 alpha beta) i)) (+.f64 (*.f64 beta alpha) (*.f64 i (+.f64 (+.f64 alpha beta) i)))) (*.f64 (+.f64 (+.f64 alpha beta) (*.f64 #s(literal 2 binary64) i)) (+.f64 (+.f64 alpha beta) (*.f64 #s(literal 2 binary64) i)))) (-.f64 (*.f64 (+.f64 (+.f64 alpha beta) (*.f64 #s(literal 2 binary64) i)) (+.f64 (+.f64 alpha beta) (*.f64 #s(literal 2 binary64) i))) #s(literal 1 binary64))) Initial program 15.9%
Applied egg-rr43.6%
lift-+.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-*.f64N/A
associate-/l*N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
Applied egg-rr43.6%
Taylor expanded in i around -inf
Simplified73.9%
Taylor expanded in i around inf
Simplified73.9%
Final simplification74.6%
(FPCore (alpha beta i)
:precision binary64
(let* ((t_0 (fma i 2.0 (+ alpha beta)))
(t_1 (- alpha (- -1.0 (fma i 2.0 beta))))
(t_2 (+ i (+ alpha beta)))
(t_3 (/ t_2 (+ alpha (fma i 2.0 beta)))))
(if (<= i 3e+140)
(* (/ (/ (fma i t_2 (* alpha beta)) t_0) (+ t_0 -1.0)) (* i (/ t_3 t_1)))
(* (/ (* i t_3) t_1) 0.25))))
double code(double alpha, double beta, double i) {
double t_0 = fma(i, 2.0, (alpha + beta));
double t_1 = alpha - (-1.0 - fma(i, 2.0, beta));
double t_2 = i + (alpha + beta);
double t_3 = t_2 / (alpha + fma(i, 2.0, beta));
double tmp;
if (i <= 3e+140) {
tmp = ((fma(i, t_2, (alpha * beta)) / t_0) / (t_0 + -1.0)) * (i * (t_3 / t_1));
} else {
tmp = ((i * t_3) / t_1) * 0.25;
}
return tmp;
}
function code(alpha, beta, i) t_0 = fma(i, 2.0, Float64(alpha + beta)) t_1 = Float64(alpha - Float64(-1.0 - fma(i, 2.0, beta))) t_2 = Float64(i + Float64(alpha + beta)) t_3 = Float64(t_2 / Float64(alpha + fma(i, 2.0, beta))) tmp = 0.0 if (i <= 3e+140) tmp = Float64(Float64(Float64(fma(i, t_2, Float64(alpha * beta)) / t_0) / Float64(t_0 + -1.0)) * Float64(i * Float64(t_3 / t_1))); else tmp = Float64(Float64(Float64(i * t_3) / t_1) * 0.25); end return tmp end
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(i * 2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(alpha - N[(-1.0 - N[(i * 2.0 + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(i + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$2 / N[(alpha + N[(i * 2.0 + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[i, 3e+140], N[(N[(N[(N[(i * t$95$2 + N[(alpha * beta), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 + -1.0), $MachinePrecision]), $MachinePrecision] * N[(i * N[(t$95$3 / t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(i * t$95$3), $MachinePrecision] / t$95$1), $MachinePrecision] * 0.25), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(i, 2, \alpha + \beta\right)\\
t_1 := \alpha - \left(-1 - \mathsf{fma}\left(i, 2, \beta\right)\right)\\
t_2 := i + \left(\alpha + \beta\right)\\
t_3 := \frac{t\_2}{\alpha + \mathsf{fma}\left(i, 2, \beta\right)}\\
\mathbf{if}\;i \leq 3 \cdot 10^{+140}:\\
\;\;\;\;\frac{\frac{\mathsf{fma}\left(i, t\_2, \alpha \cdot \beta\right)}{t\_0}}{t\_0 + -1} \cdot \left(i \cdot \frac{t\_3}{t\_1}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{i \cdot t\_3}{t\_1} \cdot 0.25\\
\end{array}
\end{array}
if i < 2.99999999999999997e140Initial program 39.4%
Applied egg-rr86.7%
lift-+.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-*.f64N/A
associate-/l*N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
Applied egg-rr86.6%
if 2.99999999999999997e140 < i Initial program 0.2%
Applied egg-rr8.1%
lift-+.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-*.f64N/A
associate-/l*N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
Applied egg-rr8.0%
Taylor expanded in i around -inf
Simplified83.1%
lift-+.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-/.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-+.f64N/A
lift-/.f64N/A
*-commutativeN/A
Applied egg-rr83.1%
Final simplification84.8%
(FPCore (alpha beta i)
:precision binary64
(let* ((t_0 (+ alpha (fma i 2.0 beta)))
(t_1 (+ i (+ alpha beta)))
(t_2 (- alpha (- -1.0 (fma i 2.0 beta)))))
(if (<= i 3e+140)
(/
1.0
(*
(*
(+ (+ alpha beta) (fma i 2.0 -1.0))
(/ t_0 (fma i t_1 (* alpha beta))))
(* t_2 (/ t_0 (* i t_1)))))
(* (/ (* i (/ t_1 t_0)) t_2) 0.25))))
double code(double alpha, double beta, double i) {
double t_0 = alpha + fma(i, 2.0, beta);
double t_1 = i + (alpha + beta);
double t_2 = alpha - (-1.0 - fma(i, 2.0, beta));
double tmp;
if (i <= 3e+140) {
tmp = 1.0 / ((((alpha + beta) + fma(i, 2.0, -1.0)) * (t_0 / fma(i, t_1, (alpha * beta)))) * (t_2 * (t_0 / (i * t_1))));
} else {
tmp = ((i * (t_1 / t_0)) / t_2) * 0.25;
}
return tmp;
}
function code(alpha, beta, i) t_0 = Float64(alpha + fma(i, 2.0, beta)) t_1 = Float64(i + Float64(alpha + beta)) t_2 = Float64(alpha - Float64(-1.0 - fma(i, 2.0, beta))) tmp = 0.0 if (i <= 3e+140) tmp = Float64(1.0 / Float64(Float64(Float64(Float64(alpha + beta) + fma(i, 2.0, -1.0)) * Float64(t_0 / fma(i, t_1, Float64(alpha * beta)))) * Float64(t_2 * Float64(t_0 / Float64(i * t_1))))); else tmp = Float64(Float64(Float64(i * Float64(t_1 / t_0)) / t_2) * 0.25); end return tmp end
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(alpha + N[(i * 2.0 + beta), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(i + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(alpha - N[(-1.0 - N[(i * 2.0 + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[i, 3e+140], N[(1.0 / N[(N[(N[(N[(alpha + beta), $MachinePrecision] + N[(i * 2.0 + -1.0), $MachinePrecision]), $MachinePrecision] * N[(t$95$0 / N[(i * t$95$1 + N[(alpha * beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(t$95$2 * N[(t$95$0 / N[(i * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(i * N[(t$95$1 / t$95$0), $MachinePrecision]), $MachinePrecision] / t$95$2), $MachinePrecision] * 0.25), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \alpha + \mathsf{fma}\left(i, 2, \beta\right)\\
t_1 := i + \left(\alpha + \beta\right)\\
t_2 := \alpha - \left(-1 - \mathsf{fma}\left(i, 2, \beta\right)\right)\\
\mathbf{if}\;i \leq 3 \cdot 10^{+140}:\\
\;\;\;\;\frac{1}{\left(\left(\left(\alpha + \beta\right) + \mathsf{fma}\left(i, 2, -1\right)\right) \cdot \frac{t\_0}{\mathsf{fma}\left(i, t\_1, \alpha \cdot \beta\right)}\right) \cdot \left(t\_2 \cdot \frac{t\_0}{i \cdot t\_1}\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{i \cdot \frac{t\_1}{t\_0}}{t\_2} \cdot 0.25\\
\end{array}
\end{array}
if i < 2.99999999999999997e140Initial program 39.4%
Applied egg-rr86.7%
Applied egg-rr86.0%
if 2.99999999999999997e140 < i Initial program 0.2%
Applied egg-rr8.1%
lift-+.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-*.f64N/A
associate-/l*N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
Applied egg-rr8.0%
Taylor expanded in i around -inf
Simplified83.1%
lift-+.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-/.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-+.f64N/A
lift-/.f64N/A
*-commutativeN/A
Applied egg-rr83.1%
Final simplification84.5%
(FPCore (alpha beta i)
:precision binary64
(let* ((t_0 (- alpha (- -1.0 (fma i 2.0 beta))))
(t_1 (+ i (+ alpha beta)))
(t_2 (+ alpha (fma i 2.0 beta))))
(if (<= i 3e+140)
(/
(/ (fma i t_1 (* alpha beta)) t_2)
(* (+ (+ alpha beta) (fma i 2.0 -1.0)) (* t_0 (/ t_2 (* i t_1)))))
(* (/ (* i (/ t_1 t_2)) t_0) 0.25))))
double code(double alpha, double beta, double i) {
double t_0 = alpha - (-1.0 - fma(i, 2.0, beta));
double t_1 = i + (alpha + beta);
double t_2 = alpha + fma(i, 2.0, beta);
double tmp;
if (i <= 3e+140) {
tmp = (fma(i, t_1, (alpha * beta)) / t_2) / (((alpha + beta) + fma(i, 2.0, -1.0)) * (t_0 * (t_2 / (i * t_1))));
} else {
tmp = ((i * (t_1 / t_2)) / t_0) * 0.25;
}
return tmp;
}
function code(alpha, beta, i) t_0 = Float64(alpha - Float64(-1.0 - fma(i, 2.0, beta))) t_1 = Float64(i + Float64(alpha + beta)) t_2 = Float64(alpha + fma(i, 2.0, beta)) tmp = 0.0 if (i <= 3e+140) tmp = Float64(Float64(fma(i, t_1, Float64(alpha * beta)) / t_2) / Float64(Float64(Float64(alpha + beta) + fma(i, 2.0, -1.0)) * Float64(t_0 * Float64(t_2 / Float64(i * t_1))))); else tmp = Float64(Float64(Float64(i * Float64(t_1 / t_2)) / t_0) * 0.25); end return tmp end
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(alpha - N[(-1.0 - N[(i * 2.0 + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(i + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(alpha + N[(i * 2.0 + beta), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[i, 3e+140], N[(N[(N[(i * t$95$1 + N[(alpha * beta), $MachinePrecision]), $MachinePrecision] / t$95$2), $MachinePrecision] / N[(N[(N[(alpha + beta), $MachinePrecision] + N[(i * 2.0 + -1.0), $MachinePrecision]), $MachinePrecision] * N[(t$95$0 * N[(t$95$2 / N[(i * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(i * N[(t$95$1 / t$95$2), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision] * 0.25), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \alpha - \left(-1 - \mathsf{fma}\left(i, 2, \beta\right)\right)\\
t_1 := i + \left(\alpha + \beta\right)\\
t_2 := \alpha + \mathsf{fma}\left(i, 2, \beta\right)\\
\mathbf{if}\;i \leq 3 \cdot 10^{+140}:\\
\;\;\;\;\frac{\frac{\mathsf{fma}\left(i, t\_1, \alpha \cdot \beta\right)}{t\_2}}{\left(\left(\alpha + \beta\right) + \mathsf{fma}\left(i, 2, -1\right)\right) \cdot \left(t\_0 \cdot \frac{t\_2}{i \cdot t\_1}\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{i \cdot \frac{t\_1}{t\_2}}{t\_0} \cdot 0.25\\
\end{array}
\end{array}
if i < 2.99999999999999997e140Initial program 39.4%
Applied egg-rr86.7%
Applied egg-rr84.5%
if 2.99999999999999997e140 < i Initial program 0.2%
Applied egg-rr8.1%
lift-+.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-*.f64N/A
associate-/l*N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
Applied egg-rr8.0%
Taylor expanded in i around -inf
Simplified83.1%
lift-+.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-/.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-+.f64N/A
lift-/.f64N/A
*-commutativeN/A
Applied egg-rr83.1%
Final simplification83.8%
(FPCore (alpha beta i)
:precision binary64
(if (<= beta 1.45e+153)
0.0625
(*
(*
i
(/
(/ (+ i (+ alpha beta)) (+ alpha (fma i 2.0 beta)))
(- alpha (- -1.0 (fma i 2.0 beta)))))
(/ (+ i 1.0) beta))))
double code(double alpha, double beta, double i) {
double tmp;
if (beta <= 1.45e+153) {
tmp = 0.0625;
} else {
tmp = (i * (((i + (alpha + beta)) / (alpha + fma(i, 2.0, beta))) / (alpha - (-1.0 - fma(i, 2.0, beta))))) * ((i + 1.0) / beta);
}
return tmp;
}
function code(alpha, beta, i) tmp = 0.0 if (beta <= 1.45e+153) tmp = 0.0625; else tmp = Float64(Float64(i * Float64(Float64(Float64(i + Float64(alpha + beta)) / Float64(alpha + fma(i, 2.0, beta))) / Float64(alpha - Float64(-1.0 - fma(i, 2.0, beta))))) * Float64(Float64(i + 1.0) / beta)); end return tmp end
code[alpha_, beta_, i_] := If[LessEqual[beta, 1.45e+153], 0.0625, N[(N[(i * N[(N[(N[(i + N[(alpha + beta), $MachinePrecision]), $MachinePrecision] / N[(alpha + N[(i * 2.0 + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(alpha - N[(-1.0 - N[(i * 2.0 + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(i + 1.0), $MachinePrecision] / beta), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\beta \leq 1.45 \cdot 10^{+153}:\\
\;\;\;\;0.0625\\
\mathbf{else}:\\
\;\;\;\;\left(i \cdot \frac{\frac{i + \left(\alpha + \beta\right)}{\alpha + \mathsf{fma}\left(i, 2, \beta\right)}}{\alpha - \left(-1 - \mathsf{fma}\left(i, 2, \beta\right)\right)}\right) \cdot \frac{i + 1}{\beta}\\
\end{array}
\end{array}
if beta < 1.45000000000000001e153Initial program 22.6%
Applied egg-rr50.1%
lift-+.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-*.f64N/A
associate-/l*N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
Applied egg-rr50.1%
Taylor expanded in i around -inf
Simplified79.9%
Taylor expanded in i around inf
Simplified80.2%
if 1.45000000000000001e153 < beta Initial program 0.0%
Applied egg-rr22.8%
lift-+.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-*.f64N/A
associate-/l*N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
Applied egg-rr22.9%
Taylor expanded in beta around inf
lower-/.f64N/A
lower-+.f6460.2
Simplified60.2%
Final simplification76.9%
(FPCore (alpha beta i) :precision binary64 (let* ((t_0 (+ alpha (fma i 2.0 beta)))) (if (<= beta 6.2e+154) 0.0625 (/ (/ (* i i) (+ 1.0 t_0)) (+ -1.0 t_0)))))
double code(double alpha, double beta, double i) {
double t_0 = alpha + fma(i, 2.0, beta);
double tmp;
if (beta <= 6.2e+154) {
tmp = 0.0625;
} else {
tmp = ((i * i) / (1.0 + t_0)) / (-1.0 + t_0);
}
return tmp;
}
function code(alpha, beta, i) t_0 = Float64(alpha + fma(i, 2.0, beta)) tmp = 0.0 if (beta <= 6.2e+154) tmp = 0.0625; else tmp = Float64(Float64(Float64(i * i) / Float64(1.0 + t_0)) / Float64(-1.0 + t_0)); end return tmp end
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(alpha + N[(i * 2.0 + beta), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[beta, 6.2e+154], 0.0625, N[(N[(N[(i * i), $MachinePrecision] / N[(1.0 + t$95$0), $MachinePrecision]), $MachinePrecision] / N[(-1.0 + t$95$0), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \alpha + \mathsf{fma}\left(i, 2, \beta\right)\\
\mathbf{if}\;\beta \leq 6.2 \cdot 10^{+154}:\\
\;\;\;\;0.0625\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{i \cdot i}{1 + t\_0}}{-1 + t\_0}\\
\end{array}
\end{array}
if beta < 6.2000000000000003e154Initial program 22.6%
Applied egg-rr50.1%
lift-+.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-*.f64N/A
associate-/l*N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
Applied egg-rr50.1%
Taylor expanded in i around -inf
Simplified79.9%
Taylor expanded in i around inf
Simplified80.2%
if 6.2000000000000003e154 < beta Initial program 0.0%
Taylor expanded in alpha around inf
*-commutativeN/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
unpow2N/A
lower-*.f646.2
Simplified6.2%
Taylor expanded in alpha around inf
lower-*.f64N/A
lower-+.f648.9
Simplified8.9%
Applied egg-rr3.7%
Taylor expanded in i around inf
unpow2N/A
lower-*.f6438.6
Simplified38.6%
Final simplification73.2%
(FPCore (alpha beta i) :precision binary64 (let* ((t_0 (+ alpha (fma i 2.0 beta)))) (if (<= beta 2.8e+274) 0.0625 (* i (/ (+ i beta) (fma t_0 t_0 -1.0))))))
double code(double alpha, double beta, double i) {
double t_0 = alpha + fma(i, 2.0, beta);
double tmp;
if (beta <= 2.8e+274) {
tmp = 0.0625;
} else {
tmp = i * ((i + beta) / fma(t_0, t_0, -1.0));
}
return tmp;
}
function code(alpha, beta, i) t_0 = Float64(alpha + fma(i, 2.0, beta)) tmp = 0.0 if (beta <= 2.8e+274) tmp = 0.0625; else tmp = Float64(i * Float64(Float64(i + beta) / fma(t_0, t_0, -1.0))); end return tmp end
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(alpha + N[(i * 2.0 + beta), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[beta, 2.8e+274], 0.0625, N[(i * N[(N[(i + beta), $MachinePrecision] / N[(t$95$0 * t$95$0 + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \alpha + \mathsf{fma}\left(i, 2, \beta\right)\\
\mathbf{if}\;\beta \leq 2.8 \cdot 10^{+274}:\\
\;\;\;\;0.0625\\
\mathbf{else}:\\
\;\;\;\;i \cdot \frac{i + \beta}{\mathsf{fma}\left(t\_0, t\_0, -1\right)}\\
\end{array}
\end{array}
if beta < 2.80000000000000009e274Initial program 19.3%
Applied egg-rr46.2%
lift-+.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-*.f64N/A
associate-/l*N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
Applied egg-rr46.2%
Taylor expanded in i around -inf
Simplified73.1%
Taylor expanded in i around inf
Simplified73.2%
if 2.80000000000000009e274 < beta Initial program 0.0%
Taylor expanded in alpha around inf
*-commutativeN/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
unpow2N/A
lower-*.f6416.7
Simplified16.7%
Taylor expanded in alpha around inf
lower-*.f64N/A
lower-+.f6416.7
Simplified16.7%
lift-+.f64N/A
lift-*.f64N/A
lift-+.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-+.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift--.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
Applied egg-rr68.6%
Final simplification73.1%
(FPCore (alpha beta i) :precision binary64 0.0625)
double code(double alpha, double beta, double i) {
return 0.0625;
}
real(8) function code(alpha, beta, i)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8), intent (in) :: i
code = 0.0625d0
end function
public static double code(double alpha, double beta, double i) {
return 0.0625;
}
def code(alpha, beta, i): return 0.0625
function code(alpha, beta, i) return 0.0625 end
function tmp = code(alpha, beta, i) tmp = 0.0625; end
code[alpha_, beta_, i_] := 0.0625
\begin{array}{l}
\\
0.0625
\end{array}
Initial program 18.8%
Applied egg-rr45.5%
lift-+.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
lift-+.f64N/A
lift-*.f64N/A
associate-/l*N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
Applied egg-rr45.5%
Taylor expanded in i around -inf
Simplified71.5%
Taylor expanded in i around inf
Simplified71.5%
(FPCore (alpha beta i) :precision binary64 0.0009765625)
double code(double alpha, double beta, double i) {
return 0.0009765625;
}
real(8) function code(alpha, beta, i)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8), intent (in) :: i
code = 0.0009765625d0
end function
public static double code(double alpha, double beta, double i) {
return 0.0009765625;
}
def code(alpha, beta, i): return 0.0009765625
function code(alpha, beta, i) return 0.0009765625 end
function tmp = code(alpha, beta, i) tmp = 0.0009765625; end
code[alpha_, beta_, i_] := 0.0009765625
\begin{array}{l}
\\
0.0009765625
\end{array}
Initial program 18.8%
Applied egg-rr45.5%
Taylor expanded in i around inf
Simplified12.0%
herbie shell --seed 2024214
(FPCore (alpha beta i)
:name "Octave 3.8, jcobi/4"
:precision binary64
:pre (and (and (> alpha -1.0) (> beta -1.0)) (> i 1.0))
(/ (/ (* (* i (+ (+ alpha beta) i)) (+ (* beta alpha) (* i (+ (+ alpha beta) i)))) (* (+ (+ alpha beta) (* 2.0 i)) (+ (+ alpha beta) (* 2.0 i)))) (- (* (+ (+ alpha beta) (* 2.0 i)) (+ (+ alpha beta) (* 2.0 i))) 1.0)))