
(FPCore (alpha beta) :precision binary64 (let* ((t_0 (+ (+ alpha beta) (* 2.0 1.0)))) (/ (/ (/ (+ (+ (+ alpha beta) (* beta alpha)) 1.0) t_0) t_0) (+ t_0 1.0))))
double code(double alpha, double beta) {
double t_0 = (alpha + beta) + (2.0 * 1.0);
return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
}
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8) :: t_0
t_0 = (alpha + beta) + (2.0d0 * 1.0d0)
code = (((((alpha + beta) + (beta * alpha)) + 1.0d0) / t_0) / t_0) / (t_0 + 1.0d0)
end function
public static double code(double alpha, double beta) {
double t_0 = (alpha + beta) + (2.0 * 1.0);
return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
}
def code(alpha, beta): t_0 = (alpha + beta) + (2.0 * 1.0) return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0)
function code(alpha, beta) t_0 = Float64(Float64(alpha + beta) + Float64(2.0 * 1.0)) return Float64(Float64(Float64(Float64(Float64(Float64(alpha + beta) + Float64(beta * alpha)) + 1.0) / t_0) / t_0) / Float64(t_0 + 1.0)) end
function tmp = code(alpha, beta) t_0 = (alpha + beta) + (2.0 * 1.0); tmp = (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0); end
code[alpha_, beta_] := Block[{t$95$0 = N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * 1.0), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[(N[(N[(N[(alpha + beta), $MachinePrecision] + N[(beta * alpha), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / t$95$0), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 + 1.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\alpha + \beta\right) + 2 \cdot 1\\
\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{t_0}}{t_0}}{t_0 + 1}
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 16 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (alpha beta) :precision binary64 (let* ((t_0 (+ (+ alpha beta) (* 2.0 1.0)))) (/ (/ (/ (+ (+ (+ alpha beta) (* beta alpha)) 1.0) t_0) t_0) (+ t_0 1.0))))
double code(double alpha, double beta) {
double t_0 = (alpha + beta) + (2.0 * 1.0);
return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
}
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8) :: t_0
t_0 = (alpha + beta) + (2.0d0 * 1.0d0)
code = (((((alpha + beta) + (beta * alpha)) + 1.0d0) / t_0) / t_0) / (t_0 + 1.0d0)
end function
public static double code(double alpha, double beta) {
double t_0 = (alpha + beta) + (2.0 * 1.0);
return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
}
def code(alpha, beta): t_0 = (alpha + beta) + (2.0 * 1.0) return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0)
function code(alpha, beta) t_0 = Float64(Float64(alpha + beta) + Float64(2.0 * 1.0)) return Float64(Float64(Float64(Float64(Float64(Float64(alpha + beta) + Float64(beta * alpha)) + 1.0) / t_0) / t_0) / Float64(t_0 + 1.0)) end
function tmp = code(alpha, beta) t_0 = (alpha + beta) + (2.0 * 1.0); tmp = (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0); end
code[alpha_, beta_] := Block[{t$95$0 = N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * 1.0), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[(N[(N[(N[(alpha + beta), $MachinePrecision] + N[(beta * alpha), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / t$95$0), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 + 1.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\alpha + \beta\right) + 2 \cdot 1\\
\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{t_0}}{t_0}}{t_0 + 1}
\end{array}
\end{array}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
(FPCore (alpha beta)
:precision binary64
(let* ((t_0 (+ alpha (+ beta 2.0))) (t_1 (/ (+ alpha 1.0) t_0)))
(if (<= beta 1e+130)
(* t_1 (/ (+ 1.0 beta) (* t_0 (+ alpha (+ beta 3.0)))))
(* t_1 (/ 1.0 (+ 4.0 (+ beta (* alpha 2.0))))))))assert(alpha < beta);
double code(double alpha, double beta) {
double t_0 = alpha + (beta + 2.0);
double t_1 = (alpha + 1.0) / t_0;
double tmp;
if (beta <= 1e+130) {
tmp = t_1 * ((1.0 + beta) / (t_0 * (alpha + (beta + 3.0))));
} else {
tmp = t_1 * (1.0 / (4.0 + (beta + (alpha * 2.0))));
}
return tmp;
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = alpha + (beta + 2.0d0)
t_1 = (alpha + 1.0d0) / t_0
if (beta <= 1d+130) then
tmp = t_1 * ((1.0d0 + beta) / (t_0 * (alpha + (beta + 3.0d0))))
else
tmp = t_1 * (1.0d0 / (4.0d0 + (beta + (alpha * 2.0d0))))
end if
code = tmp
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
double t_0 = alpha + (beta + 2.0);
double t_1 = (alpha + 1.0) / t_0;
double tmp;
if (beta <= 1e+130) {
tmp = t_1 * ((1.0 + beta) / (t_0 * (alpha + (beta + 3.0))));
} else {
tmp = t_1 * (1.0 / (4.0 + (beta + (alpha * 2.0))));
}
return tmp;
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): t_0 = alpha + (beta + 2.0) t_1 = (alpha + 1.0) / t_0 tmp = 0 if beta <= 1e+130: tmp = t_1 * ((1.0 + beta) / (t_0 * (alpha + (beta + 3.0)))) else: tmp = t_1 * (1.0 / (4.0 + (beta + (alpha * 2.0)))) return tmp
alpha, beta = sort([alpha, beta]) function code(alpha, beta) t_0 = Float64(alpha + Float64(beta + 2.0)) t_1 = Float64(Float64(alpha + 1.0) / t_0) tmp = 0.0 if (beta <= 1e+130) tmp = Float64(t_1 * Float64(Float64(1.0 + beta) / Float64(t_0 * Float64(alpha + Float64(beta + 3.0))))); else tmp = Float64(t_1 * Float64(1.0 / Float64(4.0 + Float64(beta + Float64(alpha * 2.0))))); end return tmp end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp_2 = code(alpha, beta)
t_0 = alpha + (beta + 2.0);
t_1 = (alpha + 1.0) / t_0;
tmp = 0.0;
if (beta <= 1e+130)
tmp = t_1 * ((1.0 + beta) / (t_0 * (alpha + (beta + 3.0))));
else
tmp = t_1 * (1.0 / (4.0 + (beta + (alpha * 2.0))));
end
tmp_2 = tmp;
end
NOTE: alpha and beta should be sorted in increasing order before calling this function.
code[alpha_, beta_] := Block[{t$95$0 = N[(alpha + N[(beta + 2.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(alpha + 1.0), $MachinePrecision] / t$95$0), $MachinePrecision]}, If[LessEqual[beta, 1e+130], N[(t$95$1 * N[(N[(1.0 + beta), $MachinePrecision] / N[(t$95$0 * N[(alpha + N[(beta + 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(t$95$1 * N[(1.0 / N[(4.0 + N[(beta + N[(alpha * 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
t_0 := \alpha + \left(\beta + 2\right)\\
t_1 := \frac{\alpha + 1}{t_0}\\
\mathbf{if}\;\beta \leq 10^{+130}:\\
\;\;\;\;t_1 \cdot \frac{1 + \beta}{t_0 \cdot \left(\alpha + \left(\beta + 3\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;t_1 \cdot \frac{1}{4 + \left(\beta + \alpha \cdot 2\right)}\\
\end{array}
\end{array}
if beta < 1.0000000000000001e130Initial program 98.9%
Simplified98.0%
if 1.0000000000000001e130 < beta Initial program 80.3%
Simplified89.7%
clear-num89.7%
inv-pow89.7%
Applied egg-rr89.7%
unpow-189.7%
associate-/l*98.7%
+-commutative98.7%
+-commutative98.7%
+-commutative98.7%
Simplified98.7%
Taylor expanded in beta around inf 93.7%
*-commutative93.7%
Simplified93.7%
Final simplification97.3%
NOTE: alpha and beta should be sorted in increasing order before calling this function.
(FPCore (alpha beta)
:precision binary64
(*
(/ (+ alpha 1.0) (+ alpha (+ beta 2.0)))
(/
1.0
(*
(+ 2.0 (+ alpha beta))
(* (/ 1.0 (+ 1.0 beta)) (+ (+ alpha beta) 3.0))))))assert(alpha < beta);
double code(double alpha, double beta) {
return ((alpha + 1.0) / (alpha + (beta + 2.0))) * (1.0 / ((2.0 + (alpha + beta)) * ((1.0 / (1.0 + beta)) * ((alpha + beta) + 3.0))));
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
code = ((alpha + 1.0d0) / (alpha + (beta + 2.0d0))) * (1.0d0 / ((2.0d0 + (alpha + beta)) * ((1.0d0 / (1.0d0 + beta)) * ((alpha + beta) + 3.0d0))))
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
return ((alpha + 1.0) / (alpha + (beta + 2.0))) * (1.0 / ((2.0 + (alpha + beta)) * ((1.0 / (1.0 + beta)) * ((alpha + beta) + 3.0))));
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): return ((alpha + 1.0) / (alpha + (beta + 2.0))) * (1.0 / ((2.0 + (alpha + beta)) * ((1.0 / (1.0 + beta)) * ((alpha + beta) + 3.0))))
alpha, beta = sort([alpha, beta]) function code(alpha, beta) return Float64(Float64(Float64(alpha + 1.0) / Float64(alpha + Float64(beta + 2.0))) * Float64(1.0 / Float64(Float64(2.0 + Float64(alpha + beta)) * Float64(Float64(1.0 / Float64(1.0 + beta)) * Float64(Float64(alpha + beta) + 3.0))))) end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp = code(alpha, beta)
tmp = ((alpha + 1.0) / (alpha + (beta + 2.0))) * (1.0 / ((2.0 + (alpha + beta)) * ((1.0 / (1.0 + beta)) * ((alpha + beta) + 3.0))));
end
NOTE: alpha and beta should be sorted in increasing order before calling this function. code[alpha_, beta_] := N[(N[(N[(alpha + 1.0), $MachinePrecision] / N[(alpha + N[(beta + 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[(N[(2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision] * N[(N[(1.0 / N[(1.0 + beta), $MachinePrecision]), $MachinePrecision] * N[(N[(alpha + beta), $MachinePrecision] + 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\frac{\alpha + 1}{\alpha + \left(\beta + 2\right)} \cdot \frac{1}{\left(2 + \left(\alpha + \beta\right)\right) \cdot \left(\frac{1}{1 + \beta} \cdot \left(\left(\alpha + \beta\right) + 3\right)\right)}
\end{array}
Initial program 95.6%
Simplified96.6%
clear-num96.5%
inv-pow96.5%
Applied egg-rr96.5%
unpow-196.5%
associate-/l*99.6%
+-commutative99.6%
+-commutative99.6%
+-commutative99.6%
Simplified99.6%
div-inv99.5%
+-commutative99.5%
+-commutative99.5%
associate-+l+99.5%
+-commutative99.5%
+-commutative99.5%
Applied egg-rr99.5%
associate-+r+99.5%
associate-/r/99.5%
+-commutative99.5%
Simplified99.5%
Final simplification99.5%
NOTE: alpha and beta should be sorted in increasing order before calling this function.
(FPCore (alpha beta)
:precision binary64
(let* ((t_0 (+ alpha (+ beta 2.0))))
(if (<= alpha 1.75e-28)
(/ (/ (+ 1.0 (+ alpha beta)) t_0) (* t_0 (+ (+ alpha beta) 3.0)))
(* (/ (+ alpha 1.0) t_0) (/ 1.0 (+ 4.0 (+ beta (* alpha 2.0))))))))assert(alpha < beta);
double code(double alpha, double beta) {
double t_0 = alpha + (beta + 2.0);
double tmp;
if (alpha <= 1.75e-28) {
tmp = ((1.0 + (alpha + beta)) / t_0) / (t_0 * ((alpha + beta) + 3.0));
} else {
tmp = ((alpha + 1.0) / t_0) * (1.0 / (4.0 + (beta + (alpha * 2.0))));
}
return tmp;
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8) :: t_0
real(8) :: tmp
t_0 = alpha + (beta + 2.0d0)
if (alpha <= 1.75d-28) then
tmp = ((1.0d0 + (alpha + beta)) / t_0) / (t_0 * ((alpha + beta) + 3.0d0))
else
tmp = ((alpha + 1.0d0) / t_0) * (1.0d0 / (4.0d0 + (beta + (alpha * 2.0d0))))
end if
code = tmp
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
double t_0 = alpha + (beta + 2.0);
double tmp;
if (alpha <= 1.75e-28) {
tmp = ((1.0 + (alpha + beta)) / t_0) / (t_0 * ((alpha + beta) + 3.0));
} else {
tmp = ((alpha + 1.0) / t_0) * (1.0 / (4.0 + (beta + (alpha * 2.0))));
}
return tmp;
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): t_0 = alpha + (beta + 2.0) tmp = 0 if alpha <= 1.75e-28: tmp = ((1.0 + (alpha + beta)) / t_0) / (t_0 * ((alpha + beta) + 3.0)) else: tmp = ((alpha + 1.0) / t_0) * (1.0 / (4.0 + (beta + (alpha * 2.0)))) return tmp
alpha, beta = sort([alpha, beta]) function code(alpha, beta) t_0 = Float64(alpha + Float64(beta + 2.0)) tmp = 0.0 if (alpha <= 1.75e-28) tmp = Float64(Float64(Float64(1.0 + Float64(alpha + beta)) / t_0) / Float64(t_0 * Float64(Float64(alpha + beta) + 3.0))); else tmp = Float64(Float64(Float64(alpha + 1.0) / t_0) * Float64(1.0 / Float64(4.0 + Float64(beta + Float64(alpha * 2.0))))); end return tmp end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp_2 = code(alpha, beta)
t_0 = alpha + (beta + 2.0);
tmp = 0.0;
if (alpha <= 1.75e-28)
tmp = ((1.0 + (alpha + beta)) / t_0) / (t_0 * ((alpha + beta) + 3.0));
else
tmp = ((alpha + 1.0) / t_0) * (1.0 / (4.0 + (beta + (alpha * 2.0))));
end
tmp_2 = tmp;
end
NOTE: alpha and beta should be sorted in increasing order before calling this function.
code[alpha_, beta_] := Block[{t$95$0 = N[(alpha + N[(beta + 2.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[alpha, 1.75e-28], N[(N[(N[(1.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 * N[(N[(alpha + beta), $MachinePrecision] + 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(alpha + 1.0), $MachinePrecision] / t$95$0), $MachinePrecision] * N[(1.0 / N[(4.0 + N[(beta + N[(alpha * 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
t_0 := \alpha + \left(\beta + 2\right)\\
\mathbf{if}\;\alpha \leq 1.75 \cdot 10^{-28}:\\
\;\;\;\;\frac{\frac{1 + \left(\alpha + \beta\right)}{t_0}}{t_0 \cdot \left(\left(\alpha + \beta\right) + 3\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\alpha + 1}{t_0} \cdot \frac{1}{4 + \left(\beta + \alpha \cdot 2\right)}\\
\end{array}
\end{array}
if alpha < 1.75e-28Initial program 99.9%
associate-/l/99.7%
+-commutative99.7%
+-commutative99.7%
associate-+r+99.7%
*-commutative99.7%
metadata-eval99.7%
associate-+l+99.7%
metadata-eval99.7%
associate-+l+99.7%
metadata-eval99.7%
metadata-eval99.7%
associate-+l+99.7%
Simplified99.7%
Taylor expanded in beta around 0 99.7%
if 1.75e-28 < alpha Initial program 87.6%
Simplified90.8%
clear-num90.8%
inv-pow90.8%
Applied egg-rr90.8%
unpow-190.8%
associate-/l*99.1%
+-commutative99.1%
+-commutative99.1%
+-commutative99.1%
Simplified99.1%
Taylor expanded in beta around inf 24.0%
*-commutative24.0%
Simplified24.0%
Final simplification73.4%
NOTE: alpha and beta should be sorted in increasing order before calling this function. (FPCore (alpha beta) :precision binary64 (let* ((t_0 (+ alpha (+ beta 2.0)))) (* (/ (+ alpha 1.0) t_0) (/ (/ (+ 1.0 beta) t_0) (+ alpha (+ beta 3.0))))))
assert(alpha < beta);
double code(double alpha, double beta) {
double t_0 = alpha + (beta + 2.0);
return ((alpha + 1.0) / t_0) * (((1.0 + beta) / t_0) / (alpha + (beta + 3.0)));
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8) :: t_0
t_0 = alpha + (beta + 2.0d0)
code = ((alpha + 1.0d0) / t_0) * (((1.0d0 + beta) / t_0) / (alpha + (beta + 3.0d0)))
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
double t_0 = alpha + (beta + 2.0);
return ((alpha + 1.0) / t_0) * (((1.0 + beta) / t_0) / (alpha + (beta + 3.0)));
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): t_0 = alpha + (beta + 2.0) return ((alpha + 1.0) / t_0) * (((1.0 + beta) / t_0) / (alpha + (beta + 3.0)))
alpha, beta = sort([alpha, beta]) function code(alpha, beta) t_0 = Float64(alpha + Float64(beta + 2.0)) return Float64(Float64(Float64(alpha + 1.0) / t_0) * Float64(Float64(Float64(1.0 + beta) / t_0) / Float64(alpha + Float64(beta + 3.0)))) end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp = code(alpha, beta)
t_0 = alpha + (beta + 2.0);
tmp = ((alpha + 1.0) / t_0) * (((1.0 + beta) / t_0) / (alpha + (beta + 3.0)));
end
NOTE: alpha and beta should be sorted in increasing order before calling this function.
code[alpha_, beta_] := Block[{t$95$0 = N[(alpha + N[(beta + 2.0), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[(alpha + 1.0), $MachinePrecision] / t$95$0), $MachinePrecision] * N[(N[(N[(1.0 + beta), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(alpha + N[(beta + 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
t_0 := \alpha + \left(\beta + 2\right)\\
\frac{\alpha + 1}{t_0} \cdot \frac{\frac{1 + \beta}{t_0}}{\alpha + \left(\beta + 3\right)}
\end{array}
\end{array}
Initial program 95.6%
Simplified96.6%
clear-num96.6%
associate-+r+96.6%
*-commutative96.6%
frac-times92.6%
*-un-lft-identity92.6%
+-commutative92.6%
*-commutative92.6%
associate-+r+92.6%
Applied egg-rr92.6%
associate-/r*96.6%
associate-/l*93.8%
associate-*l/96.6%
*-commutative96.6%
times-frac99.8%
associate-/r*96.6%
*-commutative96.6%
associate-/r*99.8%
+-commutative99.8%
+-commutative99.8%
+-commutative99.8%
+-commutative99.8%
Simplified99.8%
Final simplification99.8%
NOTE: alpha and beta should be sorted in increasing order before calling this function.
(FPCore (alpha beta)
:precision binary64
(let* ((t_0 (+ alpha (+ beta 2.0))))
(if (<= beta 2.6)
(/ (/ (+ alpha 1.0) (* (+ alpha 2.0) (+ alpha 3.0))) t_0)
(* (/ (+ alpha 1.0) t_0) (/ 1.0 (+ 4.0 (+ beta (* alpha 2.0))))))))assert(alpha < beta);
double code(double alpha, double beta) {
double t_0 = alpha + (beta + 2.0);
double tmp;
if (beta <= 2.6) {
tmp = ((alpha + 1.0) / ((alpha + 2.0) * (alpha + 3.0))) / t_0;
} else {
tmp = ((alpha + 1.0) / t_0) * (1.0 / (4.0 + (beta + (alpha * 2.0))));
}
return tmp;
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8) :: t_0
real(8) :: tmp
t_0 = alpha + (beta + 2.0d0)
if (beta <= 2.6d0) then
tmp = ((alpha + 1.0d0) / ((alpha + 2.0d0) * (alpha + 3.0d0))) / t_0
else
tmp = ((alpha + 1.0d0) / t_0) * (1.0d0 / (4.0d0 + (beta + (alpha * 2.0d0))))
end if
code = tmp
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
double t_0 = alpha + (beta + 2.0);
double tmp;
if (beta <= 2.6) {
tmp = ((alpha + 1.0) / ((alpha + 2.0) * (alpha + 3.0))) / t_0;
} else {
tmp = ((alpha + 1.0) / t_0) * (1.0 / (4.0 + (beta + (alpha * 2.0))));
}
return tmp;
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): t_0 = alpha + (beta + 2.0) tmp = 0 if beta <= 2.6: tmp = ((alpha + 1.0) / ((alpha + 2.0) * (alpha + 3.0))) / t_0 else: tmp = ((alpha + 1.0) / t_0) * (1.0 / (4.0 + (beta + (alpha * 2.0)))) return tmp
alpha, beta = sort([alpha, beta]) function code(alpha, beta) t_0 = Float64(alpha + Float64(beta + 2.0)) tmp = 0.0 if (beta <= 2.6) tmp = Float64(Float64(Float64(alpha + 1.0) / Float64(Float64(alpha + 2.0) * Float64(alpha + 3.0))) / t_0); else tmp = Float64(Float64(Float64(alpha + 1.0) / t_0) * Float64(1.0 / Float64(4.0 + Float64(beta + Float64(alpha * 2.0))))); end return tmp end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp_2 = code(alpha, beta)
t_0 = alpha + (beta + 2.0);
tmp = 0.0;
if (beta <= 2.6)
tmp = ((alpha + 1.0) / ((alpha + 2.0) * (alpha + 3.0))) / t_0;
else
tmp = ((alpha + 1.0) / t_0) * (1.0 / (4.0 + (beta + (alpha * 2.0))));
end
tmp_2 = tmp;
end
NOTE: alpha and beta should be sorted in increasing order before calling this function.
code[alpha_, beta_] := Block[{t$95$0 = N[(alpha + N[(beta + 2.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[beta, 2.6], N[(N[(N[(alpha + 1.0), $MachinePrecision] / N[(N[(alpha + 2.0), $MachinePrecision] * N[(alpha + 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision], N[(N[(N[(alpha + 1.0), $MachinePrecision] / t$95$0), $MachinePrecision] * N[(1.0 / N[(4.0 + N[(beta + N[(alpha * 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
t_0 := \alpha + \left(\beta + 2\right)\\
\mathbf{if}\;\beta \leq 2.6:\\
\;\;\;\;\frac{\frac{\alpha + 1}{\left(\alpha + 2\right) \cdot \left(\alpha + 3\right)}}{t_0}\\
\mathbf{else}:\\
\;\;\;\;\frac{\alpha + 1}{t_0} \cdot \frac{1}{4 + \left(\beta + \alpha \cdot 2\right)}\\
\end{array}
\end{array}
if beta < 2.60000000000000009Initial program 99.8%
Simplified99.8%
Taylor expanded in beta around 0 97.9%
+-commutative97.9%
Simplified97.9%
associate-*l/97.9%
+-commutative97.9%
+-commutative97.9%
Applied egg-rr97.9%
associate-*r/97.9%
*-rgt-identity97.9%
+-commutative97.9%
+-commutative97.9%
+-commutative97.9%
+-commutative97.9%
+-commutative97.9%
Simplified97.9%
if 2.60000000000000009 < beta Initial program 87.0%
Simplified89.8%
clear-num89.8%
inv-pow89.8%
Applied egg-rr89.8%
unpow-189.8%
associate-/l*98.9%
+-commutative98.9%
+-commutative98.9%
+-commutative98.9%
Simplified98.9%
Taylor expanded in beta around inf 82.7%
*-commutative82.7%
Simplified82.7%
Final simplification92.9%
NOTE: alpha and beta should be sorted in increasing order before calling this function. (FPCore (alpha beta) :precision binary64 (if (<= beta 8.5e+15) (/ (+ 1.0 beta) (* (+ alpha (+ beta 2.0)) (* (+ beta 2.0) (+ beta 3.0)))) (/ (/ (+ alpha 1.0) beta) (+ 2.0 (+ alpha beta)))))
assert(alpha < beta);
double code(double alpha, double beta) {
double tmp;
if (beta <= 8.5e+15) {
tmp = (1.0 + beta) / ((alpha + (beta + 2.0)) * ((beta + 2.0) * (beta + 3.0)));
} else {
tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta));
}
return tmp;
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8) :: tmp
if (beta <= 8.5d+15) then
tmp = (1.0d0 + beta) / ((alpha + (beta + 2.0d0)) * ((beta + 2.0d0) * (beta + 3.0d0)))
else
tmp = ((alpha + 1.0d0) / beta) / (2.0d0 + (alpha + beta))
end if
code = tmp
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
double tmp;
if (beta <= 8.5e+15) {
tmp = (1.0 + beta) / ((alpha + (beta + 2.0)) * ((beta + 2.0) * (beta + 3.0)));
} else {
tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta));
}
return tmp;
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): tmp = 0 if beta <= 8.5e+15: tmp = (1.0 + beta) / ((alpha + (beta + 2.0)) * ((beta + 2.0) * (beta + 3.0))) else: tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta)) return tmp
alpha, beta = sort([alpha, beta]) function code(alpha, beta) tmp = 0.0 if (beta <= 8.5e+15) tmp = Float64(Float64(1.0 + beta) / Float64(Float64(alpha + Float64(beta + 2.0)) * Float64(Float64(beta + 2.0) * Float64(beta + 3.0)))); else tmp = Float64(Float64(Float64(alpha + 1.0) / beta) / Float64(2.0 + Float64(alpha + beta))); end return tmp end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp_2 = code(alpha, beta)
tmp = 0.0;
if (beta <= 8.5e+15)
tmp = (1.0 + beta) / ((alpha + (beta + 2.0)) * ((beta + 2.0) * (beta + 3.0)));
else
tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta));
end
tmp_2 = tmp;
end
NOTE: alpha and beta should be sorted in increasing order before calling this function. code[alpha_, beta_] := If[LessEqual[beta, 8.5e+15], N[(N[(1.0 + beta), $MachinePrecision] / N[(N[(alpha + N[(beta + 2.0), $MachinePrecision]), $MachinePrecision] * N[(N[(beta + 2.0), $MachinePrecision] * N[(beta + 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(alpha + 1.0), $MachinePrecision] / beta), $MachinePrecision] / N[(2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
\mathbf{if}\;\beta \leq 8.5 \cdot 10^{+15}:\\
\;\;\;\;\frac{1 + \beta}{\left(\alpha + \left(\beta + 2\right)\right) \cdot \left(\left(\beta + 2\right) \cdot \left(\beta + 3\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\alpha + 1}{\beta}}{2 + \left(\alpha + \beta\right)}\\
\end{array}
\end{array}
if beta < 8.5e15Initial program 99.8%
Simplified95.7%
Taylor expanded in alpha around 0 68.7%
Taylor expanded in alpha around 0 69.6%
if 8.5e15 < beta Initial program 86.7%
Simplified89.6%
Taylor expanded in beta around inf 81.3%
associate-*l/81.6%
+-commutative81.6%
Applied egg-rr81.6%
associate-*r/81.6%
*-rgt-identity81.6%
associate-+r+81.6%
Simplified81.6%
Final simplification73.4%
NOTE: alpha and beta should be sorted in increasing order before calling this function. (FPCore (alpha beta) :precision binary64 (if (<= beta 13.5) (/ (/ (+ alpha 1.0) (* (+ alpha 2.0) (+ alpha 3.0))) (+ alpha (+ beta 2.0))) (/ (/ (+ alpha 1.0) beta) (+ 2.0 (+ alpha beta)))))
assert(alpha < beta);
double code(double alpha, double beta) {
double tmp;
if (beta <= 13.5) {
tmp = ((alpha + 1.0) / ((alpha + 2.0) * (alpha + 3.0))) / (alpha + (beta + 2.0));
} else {
tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta));
}
return tmp;
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8) :: tmp
if (beta <= 13.5d0) then
tmp = ((alpha + 1.0d0) / ((alpha + 2.0d0) * (alpha + 3.0d0))) / (alpha + (beta + 2.0d0))
else
tmp = ((alpha + 1.0d0) / beta) / (2.0d0 + (alpha + beta))
end if
code = tmp
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
double tmp;
if (beta <= 13.5) {
tmp = ((alpha + 1.0) / ((alpha + 2.0) * (alpha + 3.0))) / (alpha + (beta + 2.0));
} else {
tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta));
}
return tmp;
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): tmp = 0 if beta <= 13.5: tmp = ((alpha + 1.0) / ((alpha + 2.0) * (alpha + 3.0))) / (alpha + (beta + 2.0)) else: tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta)) return tmp
alpha, beta = sort([alpha, beta]) function code(alpha, beta) tmp = 0.0 if (beta <= 13.5) tmp = Float64(Float64(Float64(alpha + 1.0) / Float64(Float64(alpha + 2.0) * Float64(alpha + 3.0))) / Float64(alpha + Float64(beta + 2.0))); else tmp = Float64(Float64(Float64(alpha + 1.0) / beta) / Float64(2.0 + Float64(alpha + beta))); end return tmp end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp_2 = code(alpha, beta)
tmp = 0.0;
if (beta <= 13.5)
tmp = ((alpha + 1.0) / ((alpha + 2.0) * (alpha + 3.0))) / (alpha + (beta + 2.0));
else
tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta));
end
tmp_2 = tmp;
end
NOTE: alpha and beta should be sorted in increasing order before calling this function. code[alpha_, beta_] := If[LessEqual[beta, 13.5], N[(N[(N[(alpha + 1.0), $MachinePrecision] / N[(N[(alpha + 2.0), $MachinePrecision] * N[(alpha + 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(alpha + N[(beta + 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(alpha + 1.0), $MachinePrecision] / beta), $MachinePrecision] / N[(2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
\mathbf{if}\;\beta \leq 13.5:\\
\;\;\;\;\frac{\frac{\alpha + 1}{\left(\alpha + 2\right) \cdot \left(\alpha + 3\right)}}{\alpha + \left(\beta + 2\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\alpha + 1}{\beta}}{2 + \left(\alpha + \beta\right)}\\
\end{array}
\end{array}
if beta < 13.5Initial program 99.8%
Simplified99.8%
Taylor expanded in beta around 0 97.9%
+-commutative97.9%
Simplified97.9%
associate-*l/97.9%
+-commutative97.9%
+-commutative97.9%
Applied egg-rr97.9%
associate-*r/97.9%
*-rgt-identity97.9%
+-commutative97.9%
+-commutative97.9%
+-commutative97.9%
+-commutative97.9%
+-commutative97.9%
Simplified97.9%
if 13.5 < beta Initial program 87.0%
Simplified89.8%
Taylor expanded in beta around inf 80.5%
associate-*l/80.8%
+-commutative80.8%
Applied egg-rr80.8%
associate-*r/80.8%
*-rgt-identity80.8%
associate-+r+80.8%
Simplified80.8%
Final simplification92.2%
NOTE: alpha and beta should be sorted in increasing order before calling this function.
(FPCore (alpha beta)
:precision binary64
(if (<= beta 5.2)
(*
(/ (+ alpha 1.0) (+ alpha (+ beta 2.0)))
(+ 0.16666666666666666 (* alpha -0.1388888888888889)))
(/ (/ (+ alpha 1.0) beta) (+ 2.0 (+ alpha beta)))))assert(alpha < beta);
double code(double alpha, double beta) {
double tmp;
if (beta <= 5.2) {
tmp = ((alpha + 1.0) / (alpha + (beta + 2.0))) * (0.16666666666666666 + (alpha * -0.1388888888888889));
} else {
tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta));
}
return tmp;
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8) :: tmp
if (beta <= 5.2d0) then
tmp = ((alpha + 1.0d0) / (alpha + (beta + 2.0d0))) * (0.16666666666666666d0 + (alpha * (-0.1388888888888889d0)))
else
tmp = ((alpha + 1.0d0) / beta) / (2.0d0 + (alpha + beta))
end if
code = tmp
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
double tmp;
if (beta <= 5.2) {
tmp = ((alpha + 1.0) / (alpha + (beta + 2.0))) * (0.16666666666666666 + (alpha * -0.1388888888888889));
} else {
tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta));
}
return tmp;
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): tmp = 0 if beta <= 5.2: tmp = ((alpha + 1.0) / (alpha + (beta + 2.0))) * (0.16666666666666666 + (alpha * -0.1388888888888889)) else: tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta)) return tmp
alpha, beta = sort([alpha, beta]) function code(alpha, beta) tmp = 0.0 if (beta <= 5.2) tmp = Float64(Float64(Float64(alpha + 1.0) / Float64(alpha + Float64(beta + 2.0))) * Float64(0.16666666666666666 + Float64(alpha * -0.1388888888888889))); else tmp = Float64(Float64(Float64(alpha + 1.0) / beta) / Float64(2.0 + Float64(alpha + beta))); end return tmp end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp_2 = code(alpha, beta)
tmp = 0.0;
if (beta <= 5.2)
tmp = ((alpha + 1.0) / (alpha + (beta + 2.0))) * (0.16666666666666666 + (alpha * -0.1388888888888889));
else
tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta));
end
tmp_2 = tmp;
end
NOTE: alpha and beta should be sorted in increasing order before calling this function. code[alpha_, beta_] := If[LessEqual[beta, 5.2], N[(N[(N[(alpha + 1.0), $MachinePrecision] / N[(alpha + N[(beta + 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(0.16666666666666666 + N[(alpha * -0.1388888888888889), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(alpha + 1.0), $MachinePrecision] / beta), $MachinePrecision] / N[(2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
\mathbf{if}\;\beta \leq 5.2:\\
\;\;\;\;\frac{\alpha + 1}{\alpha + \left(\beta + 2\right)} \cdot \left(0.16666666666666666 + \alpha \cdot -0.1388888888888889\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\alpha + 1}{\beta}}{2 + \left(\alpha + \beta\right)}\\
\end{array}
\end{array}
if beta < 5.20000000000000018Initial program 99.8%
Simplified99.8%
Taylor expanded in beta around 0 97.9%
+-commutative97.9%
Simplified97.9%
Taylor expanded in alpha around 0 67.0%
*-commutative67.0%
Simplified67.0%
if 5.20000000000000018 < beta Initial program 87.0%
Simplified89.8%
Taylor expanded in beta around inf 80.5%
associate-*l/80.8%
+-commutative80.8%
Applied egg-rr80.8%
associate-*r/80.8%
*-rgt-identity80.8%
associate-+r+80.8%
Simplified80.8%
Final simplification71.5%
NOTE: alpha and beta should be sorted in increasing order before calling this function. (FPCore (alpha beta) :precision binary64 (if (<= beta 3.0) (/ (+ 1.0 beta) (+ 12.0 (* beta 16.0))) (/ (/ (+ alpha 1.0) beta) (+ 2.0 (+ alpha beta)))))
assert(alpha < beta);
double code(double alpha, double beta) {
double tmp;
if (beta <= 3.0) {
tmp = (1.0 + beta) / (12.0 + (beta * 16.0));
} else {
tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta));
}
return tmp;
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8) :: tmp
if (beta <= 3.0d0) then
tmp = (1.0d0 + beta) / (12.0d0 + (beta * 16.0d0))
else
tmp = ((alpha + 1.0d0) / beta) / (2.0d0 + (alpha + beta))
end if
code = tmp
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
double tmp;
if (beta <= 3.0) {
tmp = (1.0 + beta) / (12.0 + (beta * 16.0));
} else {
tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta));
}
return tmp;
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): tmp = 0 if beta <= 3.0: tmp = (1.0 + beta) / (12.0 + (beta * 16.0)) else: tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta)) return tmp
alpha, beta = sort([alpha, beta]) function code(alpha, beta) tmp = 0.0 if (beta <= 3.0) tmp = Float64(Float64(1.0 + beta) / Float64(12.0 + Float64(beta * 16.0))); else tmp = Float64(Float64(Float64(alpha + 1.0) / beta) / Float64(2.0 + Float64(alpha + beta))); end return tmp end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp_2 = code(alpha, beta)
tmp = 0.0;
if (beta <= 3.0)
tmp = (1.0 + beta) / (12.0 + (beta * 16.0));
else
tmp = ((alpha + 1.0) / beta) / (2.0 + (alpha + beta));
end
tmp_2 = tmp;
end
NOTE: alpha and beta should be sorted in increasing order before calling this function. code[alpha_, beta_] := If[LessEqual[beta, 3.0], N[(N[(1.0 + beta), $MachinePrecision] / N[(12.0 + N[(beta * 16.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(alpha + 1.0), $MachinePrecision] / beta), $MachinePrecision] / N[(2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
\mathbf{if}\;\beta \leq 3:\\
\;\;\;\;\frac{1 + \beta}{12 + \beta \cdot 16}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\alpha + 1}{\beta}}{2 + \left(\alpha + \beta\right)}\\
\end{array}
\end{array}
if beta < 3Initial program 99.8%
Simplified95.6%
Taylor expanded in alpha around 0 68.3%
Taylor expanded in beta around 0 67.7%
Taylor expanded in alpha around 0 67.8%
*-commutative67.8%
Simplified67.8%
if 3 < beta Initial program 87.0%
Simplified89.8%
Taylor expanded in beta around inf 80.5%
associate-*l/80.8%
+-commutative80.8%
Applied egg-rr80.8%
associate-*r/80.8%
*-rgt-identity80.8%
associate-+r+80.8%
Simplified80.8%
Final simplification72.0%
NOTE: alpha and beta should be sorted in increasing order before calling this function. (FPCore (alpha beta) :precision binary64 (if (<= beta 8.0) (/ 0.16666666666666666 (+ beta 2.0)) (* (/ (+ alpha 1.0) beta) (/ 1.0 beta))))
assert(alpha < beta);
double code(double alpha, double beta) {
double tmp;
if (beta <= 8.0) {
tmp = 0.16666666666666666 / (beta + 2.0);
} else {
tmp = ((alpha + 1.0) / beta) * (1.0 / beta);
}
return tmp;
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8) :: tmp
if (beta <= 8.0d0) then
tmp = 0.16666666666666666d0 / (beta + 2.0d0)
else
tmp = ((alpha + 1.0d0) / beta) * (1.0d0 / beta)
end if
code = tmp
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
double tmp;
if (beta <= 8.0) {
tmp = 0.16666666666666666 / (beta + 2.0);
} else {
tmp = ((alpha + 1.0) / beta) * (1.0 / beta);
}
return tmp;
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): tmp = 0 if beta <= 8.0: tmp = 0.16666666666666666 / (beta + 2.0) else: tmp = ((alpha + 1.0) / beta) * (1.0 / beta) return tmp
alpha, beta = sort([alpha, beta]) function code(alpha, beta) tmp = 0.0 if (beta <= 8.0) tmp = Float64(0.16666666666666666 / Float64(beta + 2.0)); else tmp = Float64(Float64(Float64(alpha + 1.0) / beta) * Float64(1.0 / beta)); end return tmp end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp_2 = code(alpha, beta)
tmp = 0.0;
if (beta <= 8.0)
tmp = 0.16666666666666666 / (beta + 2.0);
else
tmp = ((alpha + 1.0) / beta) * (1.0 / beta);
end
tmp_2 = tmp;
end
NOTE: alpha and beta should be sorted in increasing order before calling this function. code[alpha_, beta_] := If[LessEqual[beta, 8.0], N[(0.16666666666666666 / N[(beta + 2.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(alpha + 1.0), $MachinePrecision] / beta), $MachinePrecision] * N[(1.0 / beta), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
\mathbf{if}\;\beta \leq 8:\\
\;\;\;\;\frac{0.16666666666666666}{\beta + 2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\alpha + 1}{\beta} \cdot \frac{1}{\beta}\\
\end{array}
\end{array}
if beta < 8Initial program 99.8%
Simplified99.8%
Taylor expanded in beta around 0 97.9%
+-commutative97.9%
Simplified97.9%
Taylor expanded in alpha around 0 66.8%
+-commutative66.8%
Simplified66.8%
if 8 < beta Initial program 87.0%
Simplified89.8%
Taylor expanded in beta around inf 80.5%
Taylor expanded in beta around inf 80.3%
Final simplification71.2%
NOTE: alpha and beta should be sorted in increasing order before calling this function. (FPCore (alpha beta) :precision binary64 (if (<= beta 4.0) (/ (+ 1.0 beta) (+ 12.0 (* beta 16.0))) (* (/ (+ alpha 1.0) beta) (/ 1.0 beta))))
assert(alpha < beta);
double code(double alpha, double beta) {
double tmp;
if (beta <= 4.0) {
tmp = (1.0 + beta) / (12.0 + (beta * 16.0));
} else {
tmp = ((alpha + 1.0) / beta) * (1.0 / beta);
}
return tmp;
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8) :: tmp
if (beta <= 4.0d0) then
tmp = (1.0d0 + beta) / (12.0d0 + (beta * 16.0d0))
else
tmp = ((alpha + 1.0d0) / beta) * (1.0d0 / beta)
end if
code = tmp
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
double tmp;
if (beta <= 4.0) {
tmp = (1.0 + beta) / (12.0 + (beta * 16.0));
} else {
tmp = ((alpha + 1.0) / beta) * (1.0 / beta);
}
return tmp;
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): tmp = 0 if beta <= 4.0: tmp = (1.0 + beta) / (12.0 + (beta * 16.0)) else: tmp = ((alpha + 1.0) / beta) * (1.0 / beta) return tmp
alpha, beta = sort([alpha, beta]) function code(alpha, beta) tmp = 0.0 if (beta <= 4.0) tmp = Float64(Float64(1.0 + beta) / Float64(12.0 + Float64(beta * 16.0))); else tmp = Float64(Float64(Float64(alpha + 1.0) / beta) * Float64(1.0 / beta)); end return tmp end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp_2 = code(alpha, beta)
tmp = 0.0;
if (beta <= 4.0)
tmp = (1.0 + beta) / (12.0 + (beta * 16.0));
else
tmp = ((alpha + 1.0) / beta) * (1.0 / beta);
end
tmp_2 = tmp;
end
NOTE: alpha and beta should be sorted in increasing order before calling this function. code[alpha_, beta_] := If[LessEqual[beta, 4.0], N[(N[(1.0 + beta), $MachinePrecision] / N[(12.0 + N[(beta * 16.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(alpha + 1.0), $MachinePrecision] / beta), $MachinePrecision] * N[(1.0 / beta), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
\mathbf{if}\;\beta \leq 4:\\
\;\;\;\;\frac{1 + \beta}{12 + \beta \cdot 16}\\
\mathbf{else}:\\
\;\;\;\;\frac{\alpha + 1}{\beta} \cdot \frac{1}{\beta}\\
\end{array}
\end{array}
if beta < 4Initial program 99.8%
Simplified95.6%
Taylor expanded in alpha around 0 68.3%
Taylor expanded in beta around 0 67.7%
Taylor expanded in alpha around 0 67.8%
*-commutative67.8%
Simplified67.8%
if 4 < beta Initial program 87.0%
Simplified89.8%
Taylor expanded in beta around inf 80.5%
Taylor expanded in beta around inf 80.3%
Final simplification71.9%
NOTE: alpha and beta should be sorted in increasing order before calling this function. (FPCore (alpha beta) :precision binary64 (if (<= beta 6.0) (/ 0.16666666666666666 (+ beta 2.0)) (/ 1.0 (* beta (+ beta 2.0)))))
assert(alpha < beta);
double code(double alpha, double beta) {
double tmp;
if (beta <= 6.0) {
tmp = 0.16666666666666666 / (beta + 2.0);
} else {
tmp = 1.0 / (beta * (beta + 2.0));
}
return tmp;
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8) :: tmp
if (beta <= 6.0d0) then
tmp = 0.16666666666666666d0 / (beta + 2.0d0)
else
tmp = 1.0d0 / (beta * (beta + 2.0d0))
end if
code = tmp
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
double tmp;
if (beta <= 6.0) {
tmp = 0.16666666666666666 / (beta + 2.0);
} else {
tmp = 1.0 / (beta * (beta + 2.0));
}
return tmp;
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): tmp = 0 if beta <= 6.0: tmp = 0.16666666666666666 / (beta + 2.0) else: tmp = 1.0 / (beta * (beta + 2.0)) return tmp
alpha, beta = sort([alpha, beta]) function code(alpha, beta) tmp = 0.0 if (beta <= 6.0) tmp = Float64(0.16666666666666666 / Float64(beta + 2.0)); else tmp = Float64(1.0 / Float64(beta * Float64(beta + 2.0))); end return tmp end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp_2 = code(alpha, beta)
tmp = 0.0;
if (beta <= 6.0)
tmp = 0.16666666666666666 / (beta + 2.0);
else
tmp = 1.0 / (beta * (beta + 2.0));
end
tmp_2 = tmp;
end
NOTE: alpha and beta should be sorted in increasing order before calling this function. code[alpha_, beta_] := If[LessEqual[beta, 6.0], N[(0.16666666666666666 / N[(beta + 2.0), $MachinePrecision]), $MachinePrecision], N[(1.0 / N[(beta * N[(beta + 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
\mathbf{if}\;\beta \leq 6:\\
\;\;\;\;\frac{0.16666666666666666}{\beta + 2}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\beta \cdot \left(\beta + 2\right)}\\
\end{array}
\end{array}
if beta < 6Initial program 99.8%
Simplified99.8%
Taylor expanded in beta around 0 97.9%
+-commutative97.9%
Simplified97.9%
Taylor expanded in alpha around 0 66.8%
+-commutative66.8%
Simplified66.8%
if 6 < beta Initial program 87.0%
Simplified89.8%
Taylor expanded in beta around inf 80.5%
Taylor expanded in alpha around 0 75.3%
Final simplification69.6%
NOTE: alpha and beta should be sorted in increasing order before calling this function. (FPCore (alpha beta) :precision binary64 (if (<= beta 6.0) (/ 0.16666666666666666 (+ beta 2.0)) (/ (/ 1.0 beta) (+ beta 2.0))))
assert(alpha < beta);
double code(double alpha, double beta) {
double tmp;
if (beta <= 6.0) {
tmp = 0.16666666666666666 / (beta + 2.0);
} else {
tmp = (1.0 / beta) / (beta + 2.0);
}
return tmp;
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8) :: tmp
if (beta <= 6.0d0) then
tmp = 0.16666666666666666d0 / (beta + 2.0d0)
else
tmp = (1.0d0 / beta) / (beta + 2.0d0)
end if
code = tmp
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
double tmp;
if (beta <= 6.0) {
tmp = 0.16666666666666666 / (beta + 2.0);
} else {
tmp = (1.0 / beta) / (beta + 2.0);
}
return tmp;
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): tmp = 0 if beta <= 6.0: tmp = 0.16666666666666666 / (beta + 2.0) else: tmp = (1.0 / beta) / (beta + 2.0) return tmp
alpha, beta = sort([alpha, beta]) function code(alpha, beta) tmp = 0.0 if (beta <= 6.0) tmp = Float64(0.16666666666666666 / Float64(beta + 2.0)); else tmp = Float64(Float64(1.0 / beta) / Float64(beta + 2.0)); end return tmp end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp_2 = code(alpha, beta)
tmp = 0.0;
if (beta <= 6.0)
tmp = 0.16666666666666666 / (beta + 2.0);
else
tmp = (1.0 / beta) / (beta + 2.0);
end
tmp_2 = tmp;
end
NOTE: alpha and beta should be sorted in increasing order before calling this function. code[alpha_, beta_] := If[LessEqual[beta, 6.0], N[(0.16666666666666666 / N[(beta + 2.0), $MachinePrecision]), $MachinePrecision], N[(N[(1.0 / beta), $MachinePrecision] / N[(beta + 2.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
\mathbf{if}\;\beta \leq 6:\\
\;\;\;\;\frac{0.16666666666666666}{\beta + 2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{1}{\beta}}{\beta + 2}\\
\end{array}
\end{array}
if beta < 6Initial program 99.8%
Simplified99.8%
Taylor expanded in beta around 0 97.9%
+-commutative97.9%
Simplified97.9%
Taylor expanded in alpha around 0 66.8%
+-commutative66.8%
Simplified66.8%
if 6 < beta Initial program 87.0%
Simplified89.8%
Taylor expanded in beta around inf 80.5%
associate-*l/80.8%
+-commutative80.8%
Applied egg-rr80.8%
associate-*r/80.8%
*-rgt-identity80.8%
associate-+r+80.8%
Simplified80.8%
Taylor expanded in alpha around 0 75.3%
associate-/r*75.7%
+-commutative75.7%
Simplified75.7%
Final simplification69.7%
NOTE: alpha and beta should be sorted in increasing order before calling this function. (FPCore (alpha beta) :precision binary64 (/ 0.16666666666666666 (+ beta 2.0)))
assert(alpha < beta);
double code(double alpha, double beta) {
return 0.16666666666666666 / (beta + 2.0);
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
code = 0.16666666666666666d0 / (beta + 2.0d0)
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
return 0.16666666666666666 / (beta + 2.0);
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): return 0.16666666666666666 / (beta + 2.0)
alpha, beta = sort([alpha, beta]) function code(alpha, beta) return Float64(0.16666666666666666 / Float64(beta + 2.0)) end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp = code(alpha, beta)
tmp = 0.16666666666666666 / (beta + 2.0);
end
NOTE: alpha and beta should be sorted in increasing order before calling this function. code[alpha_, beta_] := N[(0.16666666666666666 / N[(beta + 2.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\frac{0.16666666666666666}{\beta + 2}
\end{array}
Initial program 95.6%
Simplified96.6%
Taylor expanded in beta around 0 71.1%
+-commutative71.1%
Simplified71.1%
Taylor expanded in alpha around 0 47.1%
+-commutative47.1%
Simplified47.1%
Final simplification47.1%
NOTE: alpha and beta should be sorted in increasing order before calling this function. (FPCore (alpha beta) :precision binary64 (/ 1.0 alpha))
assert(alpha < beta);
double code(double alpha, double beta) {
return 1.0 / alpha;
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
code = 1.0d0 / alpha
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
return 1.0 / alpha;
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): return 1.0 / alpha
alpha, beta = sort([alpha, beta]) function code(alpha, beta) return Float64(1.0 / alpha) end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp = code(alpha, beta)
tmp = 1.0 / alpha;
end
NOTE: alpha and beta should be sorted in increasing order before calling this function. code[alpha_, beta_] := N[(1.0 / alpha), $MachinePrecision]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\frac{1}{\alpha}
\end{array}
Initial program 95.6%
associate-/l/93.8%
+-commutative93.8%
+-commutative93.8%
associate-+r+93.8%
*-commutative93.8%
metadata-eval93.8%
associate-+l+93.8%
metadata-eval93.8%
associate-+l+93.8%
metadata-eval93.8%
metadata-eval93.8%
associate-+l+93.8%
Simplified93.8%
Taylor expanded in beta around -inf 46.7%
Taylor expanded in alpha around inf 3.9%
Final simplification3.9%
NOTE: alpha and beta should be sorted in increasing order before calling this function. (FPCore (alpha beta) :precision binary64 (/ 1.0 beta))
assert(alpha < beta);
double code(double alpha, double beta) {
return 1.0 / beta;
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
real(8) function code(alpha, beta)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
code = 1.0d0 / beta
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
return 1.0 / beta;
}
[alpha, beta] = sort([alpha, beta]) def code(alpha, beta): return 1.0 / beta
alpha, beta = sort([alpha, beta]) function code(alpha, beta) return Float64(1.0 / beta) end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp = code(alpha, beta)
tmp = 1.0 / beta;
end
NOTE: alpha and beta should be sorted in increasing order before calling this function. code[alpha_, beta_] := N[(1.0 / beta), $MachinePrecision]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\frac{1}{\beta}
\end{array}
Initial program 95.6%
Simplified96.6%
Taylor expanded in beta around inf 28.4%
associate-*l/28.4%
+-commutative28.4%
Applied egg-rr28.4%
associate-*r/28.4%
*-rgt-identity28.4%
associate-+r+28.4%
Simplified28.4%
Taylor expanded in alpha around inf 4.2%
Final simplification4.2%
herbie shell --seed 2023339
(FPCore (alpha beta)
:name "Octave 3.8, jcobi/3"
:precision binary64
:pre (and (> alpha -1.0) (> beta -1.0))
(/ (/ (/ (+ (+ (+ alpha beta) (* beta alpha)) 1.0) (+ (+ alpha beta) (* 2.0 1.0))) (+ (+ alpha beta) (* 2.0 1.0))) (+ (+ (+ alpha beta) (* 2.0 1.0)) 1.0)))