
(FPCore (alpha beta i) :precision binary64 (let* ((t_0 (+ (+ alpha beta) (* 2.0 i)))) (/ (+ (/ (/ (* (+ alpha beta) (- beta alpha)) t_0) (+ t_0 2.0)) 1.0) 2.0)))
double code(double alpha, double beta, double i) {
double t_0 = (alpha + beta) + (2.0 * i);
return (((((alpha + beta) * (beta - alpha)) / t_0) / (t_0 + 2.0)) + 1.0) / 2.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
t_0 = (alpha + beta) + (2.0d0 * i)
code = (((((alpha + beta) * (beta - alpha)) / t_0) / (t_0 + 2.0d0)) + 1.0d0) / 2.0d0
end function
public static double code(double alpha, double beta, double i) {
double t_0 = (alpha + beta) + (2.0 * i);
return (((((alpha + beta) * (beta - alpha)) / t_0) / (t_0 + 2.0)) + 1.0) / 2.0;
}
def code(alpha, beta, i): t_0 = (alpha + beta) + (2.0 * i) return (((((alpha + beta) * (beta - alpha)) / t_0) / (t_0 + 2.0)) + 1.0) / 2.0
function code(alpha, beta, i) t_0 = Float64(Float64(alpha + beta) + Float64(2.0 * i)) return Float64(Float64(Float64(Float64(Float64(Float64(alpha + beta) * Float64(beta - alpha)) / t_0) / Float64(t_0 + 2.0)) + 1.0) / 2.0) end
function tmp = code(alpha, beta, i) t_0 = (alpha + beta) + (2.0 * i); tmp = (((((alpha + beta) * (beta - alpha)) / t_0) / (t_0 + 2.0)) + 1.0) / 2.0; end
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[(N[(N[(N[(alpha + beta), $MachinePrecision] * N[(beta - alpha), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 + 2.0), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / 2.0), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\alpha + \beta\right) + 2 \cdot i\\
\frac{\frac{\frac{\left(\alpha + \beta\right) \cdot \left(\beta - \alpha\right)}{t_0}}{t_0 + 2} + 1}{2}
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 11 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (alpha beta i) :precision binary64 (let* ((t_0 (+ (+ alpha beta) (* 2.0 i)))) (/ (+ (/ (/ (* (+ alpha beta) (- beta alpha)) t_0) (+ t_0 2.0)) 1.0) 2.0)))
double code(double alpha, double beta, double i) {
double t_0 = (alpha + beta) + (2.0 * i);
return (((((alpha + beta) * (beta - alpha)) / t_0) / (t_0 + 2.0)) + 1.0) / 2.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
t_0 = (alpha + beta) + (2.0d0 * i)
code = (((((alpha + beta) * (beta - alpha)) / t_0) / (t_0 + 2.0d0)) + 1.0d0) / 2.0d0
end function
public static double code(double alpha, double beta, double i) {
double t_0 = (alpha + beta) + (2.0 * i);
return (((((alpha + beta) * (beta - alpha)) / t_0) / (t_0 + 2.0)) + 1.0) / 2.0;
}
def code(alpha, beta, i): t_0 = (alpha + beta) + (2.0 * i) return (((((alpha + beta) * (beta - alpha)) / t_0) / (t_0 + 2.0)) + 1.0) / 2.0
function code(alpha, beta, i) t_0 = Float64(Float64(alpha + beta) + Float64(2.0 * i)) return Float64(Float64(Float64(Float64(Float64(Float64(alpha + beta) * Float64(beta - alpha)) / t_0) / Float64(t_0 + 2.0)) + 1.0) / 2.0) end
function tmp = code(alpha, beta, i) t_0 = (alpha + beta) + (2.0 * i); tmp = (((((alpha + beta) * (beta - alpha)) / t_0) / (t_0 + 2.0)) + 1.0) / 2.0; end
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[(N[(N[(N[(alpha + beta), $MachinePrecision] * N[(beta - alpha), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 + 2.0), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / 2.0), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\alpha + \beta\right) + 2 \cdot i\\
\frac{\frac{\frac{\left(\alpha + \beta\right) \cdot \left(\beta - \alpha\right)}{t_0}}{t_0 + 2} + 1}{2}
\end{array}
\end{array}
(FPCore (alpha beta i)
:precision binary64
(let* ((t_0 (+ beta (* 2.0 i))) (t_1 (+ (+ alpha beta) (* 2.0 i))))
(if (<= (/ (/ (* (+ alpha beta) (- beta alpha)) t_1) (+ 2.0 t_1)) -0.96)
(/ (/ (+ t_0 (+ 2.0 t_0)) alpha) 2.0)
(/
(fma
(/ (+ alpha beta) (+ alpha (+ beta (fma 2.0 i 2.0))))
(/ 1.0 (/ (+ alpha (fma 2.0 i beta)) (- beta alpha)))
1.0)
2.0))))
double code(double alpha, double beta, double i) {
double t_0 = beta + (2.0 * i);
double t_1 = (alpha + beta) + (2.0 * i);
double tmp;
if (((((alpha + beta) * (beta - alpha)) / t_1) / (2.0 + t_1)) <= -0.96) {
tmp = ((t_0 + (2.0 + t_0)) / alpha) / 2.0;
} else {
tmp = fma(((alpha + beta) / (alpha + (beta + fma(2.0, i, 2.0)))), (1.0 / ((alpha + fma(2.0, i, beta)) / (beta - alpha))), 1.0) / 2.0;
}
return tmp;
}
function code(alpha, beta, i) t_0 = Float64(beta + Float64(2.0 * i)) t_1 = Float64(Float64(alpha + beta) + Float64(2.0 * i)) tmp = 0.0 if (Float64(Float64(Float64(Float64(alpha + beta) * Float64(beta - alpha)) / t_1) / Float64(2.0 + t_1)) <= -0.96) tmp = Float64(Float64(Float64(t_0 + Float64(2.0 + t_0)) / alpha) / 2.0); else tmp = Float64(fma(Float64(Float64(alpha + beta) / Float64(alpha + Float64(beta + fma(2.0, i, 2.0)))), Float64(1.0 / Float64(Float64(alpha + fma(2.0, i, beta)) / Float64(beta - alpha))), 1.0) / 2.0); end return tmp end
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(beta + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(N[(N[(N[(alpha + beta), $MachinePrecision] * N[(beta - alpha), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision] / N[(2.0 + t$95$1), $MachinePrecision]), $MachinePrecision], -0.96], N[(N[(N[(t$95$0 + N[(2.0 + t$95$0), $MachinePrecision]), $MachinePrecision] / alpha), $MachinePrecision] / 2.0), $MachinePrecision], N[(N[(N[(N[(alpha + beta), $MachinePrecision] / N[(alpha + N[(beta + N[(2.0 * i + 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[(N[(alpha + N[(2.0 * i + beta), $MachinePrecision]), $MachinePrecision] / N[(beta - alpha), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / 2.0), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \beta + 2 \cdot i\\
t_1 := \left(\alpha + \beta\right) + 2 \cdot i\\
\mathbf{if}\;\frac{\frac{\left(\alpha + \beta\right) \cdot \left(\beta - \alpha\right)}{t_1}}{2 + t_1} \leq -0.96:\\
\;\;\;\;\frac{\frac{t_0 + \left(2 + t_0\right)}{\alpha}}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\frac{\alpha + \beta}{\alpha + \left(\beta + \mathsf{fma}\left(2, i, 2\right)\right)}, \frac{1}{\frac{\alpha + \mathsf{fma}\left(2, i, \beta\right)}{\beta - \alpha}}, 1\right)}{2}\\
\end{array}
\end{array}
if (/.f64 (/.f64 (*.f64 (+.f64 alpha beta) (-.f64 beta alpha)) (+.f64 (+.f64 alpha beta) (*.f64 2 i))) (+.f64 (+.f64 (+.f64 alpha beta) (*.f64 2 i)) 2)) < -0.95999999999999996Initial program 2.8%
Simplified9.1%
Taylor expanded in alpha around inf 96.4%
if -0.95999999999999996 < (/.f64 (/.f64 (*.f64 (+.f64 alpha beta) (-.f64 beta alpha)) (+.f64 (+.f64 alpha beta) (*.f64 2 i))) (+.f64 (+.f64 (+.f64 alpha beta) (*.f64 2 i)) 2)) Initial program 80.4%
Simplified100.0%
clear-num100.0%
fma-udef100.0%
+-commutative100.0%
associate-+r+100.0%
inv-pow100.0%
associate-+r+100.0%
+-commutative100.0%
fma-udef100.0%
Applied egg-rr100.0%
unpow-1100.0%
+-commutative100.0%
Simplified100.0%
Final simplification99.3%
(FPCore (alpha beta i)
:precision binary64
(let* ((t_0 (+ beta (* 2.0 i)))
(t_1 (+ (+ alpha beta) (* 2.0 i)))
(t_2 (+ 2.0 t_1)))
(if (<= (/ (/ (* (+ alpha beta) (- beta alpha)) t_1) t_2) -0.96)
(/ (/ (+ t_0 (+ 2.0 t_0)) alpha) 2.0)
(/
(+
1.0
(/
(* (- beta alpha) (/ (+ alpha beta) (+ alpha (fma 2.0 i beta))))
t_2))
2.0))))
double code(double alpha, double beta, double i) {
double t_0 = beta + (2.0 * i);
double t_1 = (alpha + beta) + (2.0 * i);
double t_2 = 2.0 + t_1;
double tmp;
if (((((alpha + beta) * (beta - alpha)) / t_1) / t_2) <= -0.96) {
tmp = ((t_0 + (2.0 + t_0)) / alpha) / 2.0;
} else {
tmp = (1.0 + (((beta - alpha) * ((alpha + beta) / (alpha + fma(2.0, i, beta)))) / t_2)) / 2.0;
}
return tmp;
}
function code(alpha, beta, i) t_0 = Float64(beta + Float64(2.0 * i)) t_1 = Float64(Float64(alpha + beta) + Float64(2.0 * i)) t_2 = Float64(2.0 + t_1) tmp = 0.0 if (Float64(Float64(Float64(Float64(alpha + beta) * Float64(beta - alpha)) / t_1) / t_2) <= -0.96) tmp = Float64(Float64(Float64(t_0 + Float64(2.0 + t_0)) / alpha) / 2.0); else tmp = Float64(Float64(1.0 + Float64(Float64(Float64(beta - alpha) * Float64(Float64(alpha + beta) / Float64(alpha + fma(2.0, i, beta)))) / t_2)) / 2.0); end return tmp end
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(beta + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(2.0 + t$95$1), $MachinePrecision]}, If[LessEqual[N[(N[(N[(N[(alpha + beta), $MachinePrecision] * N[(beta - alpha), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision] / t$95$2), $MachinePrecision], -0.96], N[(N[(N[(t$95$0 + N[(2.0 + t$95$0), $MachinePrecision]), $MachinePrecision] / alpha), $MachinePrecision] / 2.0), $MachinePrecision], N[(N[(1.0 + N[(N[(N[(beta - alpha), $MachinePrecision] * N[(N[(alpha + beta), $MachinePrecision] / N[(alpha + N[(2.0 * i + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t$95$2), $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \beta + 2 \cdot i\\
t_1 := \left(\alpha + \beta\right) + 2 \cdot i\\
t_2 := 2 + t_1\\
\mathbf{if}\;\frac{\frac{\left(\alpha + \beta\right) \cdot \left(\beta - \alpha\right)}{t_1}}{t_2} \leq -0.96:\\
\;\;\;\;\frac{\frac{t_0 + \left(2 + t_0\right)}{\alpha}}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{1 + \frac{\left(\beta - \alpha\right) \cdot \frac{\alpha + \beta}{\alpha + \mathsf{fma}\left(2, i, \beta\right)}}{t_2}}{2}\\
\end{array}
\end{array}
if (/.f64 (/.f64 (*.f64 (+.f64 alpha beta) (-.f64 beta alpha)) (+.f64 (+.f64 alpha beta) (*.f64 2 i))) (+.f64 (+.f64 (+.f64 alpha beta) (*.f64 2 i)) 2)) < -0.95999999999999996Initial program 2.8%
Simplified9.1%
Taylor expanded in alpha around inf 96.4%
if -0.95999999999999996 < (/.f64 (/.f64 (*.f64 (+.f64 alpha beta) (-.f64 beta alpha)) (+.f64 (+.f64 alpha beta) (*.f64 2 i))) (+.f64 (+.f64 (+.f64 alpha beta) (*.f64 2 i)) 2)) Initial program 80.4%
*-commutative80.4%
*-un-lft-identity80.4%
times-frac100.0%
associate-+r+100.0%
+-commutative100.0%
fma-udef100.0%
Applied egg-rr100.0%
Final simplification99.3%
(FPCore (alpha beta i)
:precision binary64
(let* ((t_0 (+ beta (* 2.0 i)))
(t_1 (+ (+ alpha beta) (* 2.0 i)))
(t_2 (+ 2.0 t_1)))
(if (<= (/ (/ (* (+ alpha beta) (- beta alpha)) t_1) t_2) -0.5)
(/ (/ (+ t_0 (+ 2.0 t_0)) alpha) 2.0)
(/ (+ 1.0 (/ (* (- beta alpha) (/ beta t_0)) t_2)) 2.0))))
double code(double alpha, double beta, double i) {
double t_0 = beta + (2.0 * i);
double t_1 = (alpha + beta) + (2.0 * i);
double t_2 = 2.0 + t_1;
double tmp;
if (((((alpha + beta) * (beta - alpha)) / t_1) / t_2) <= -0.5) {
tmp = ((t_0 + (2.0 + t_0)) / alpha) / 2.0;
} else {
tmp = (1.0 + (((beta - alpha) * (beta / t_0)) / t_2)) / 2.0;
}
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) :: tmp
t_0 = beta + (2.0d0 * i)
t_1 = (alpha + beta) + (2.0d0 * i)
t_2 = 2.0d0 + t_1
if (((((alpha + beta) * (beta - alpha)) / t_1) / t_2) <= (-0.5d0)) then
tmp = ((t_0 + (2.0d0 + t_0)) / alpha) / 2.0d0
else
tmp = (1.0d0 + (((beta - alpha) * (beta / t_0)) / t_2)) / 2.0d0
end if
code = tmp
end function
public static double code(double alpha, double beta, double i) {
double t_0 = beta + (2.0 * i);
double t_1 = (alpha + beta) + (2.0 * i);
double t_2 = 2.0 + t_1;
double tmp;
if (((((alpha + beta) * (beta - alpha)) / t_1) / t_2) <= -0.5) {
tmp = ((t_0 + (2.0 + t_0)) / alpha) / 2.0;
} else {
tmp = (1.0 + (((beta - alpha) * (beta / t_0)) / t_2)) / 2.0;
}
return tmp;
}
def code(alpha, beta, i): t_0 = beta + (2.0 * i) t_1 = (alpha + beta) + (2.0 * i) t_2 = 2.0 + t_1 tmp = 0 if ((((alpha + beta) * (beta - alpha)) / t_1) / t_2) <= -0.5: tmp = ((t_0 + (2.0 + t_0)) / alpha) / 2.0 else: tmp = (1.0 + (((beta - alpha) * (beta / t_0)) / t_2)) / 2.0 return tmp
function code(alpha, beta, i) t_0 = Float64(beta + Float64(2.0 * i)) t_1 = Float64(Float64(alpha + beta) + Float64(2.0 * i)) t_2 = Float64(2.0 + t_1) tmp = 0.0 if (Float64(Float64(Float64(Float64(alpha + beta) * Float64(beta - alpha)) / t_1) / t_2) <= -0.5) tmp = Float64(Float64(Float64(t_0 + Float64(2.0 + t_0)) / alpha) / 2.0); else tmp = Float64(Float64(1.0 + Float64(Float64(Float64(beta - alpha) * Float64(beta / t_0)) / t_2)) / 2.0); end return tmp end
function tmp_2 = code(alpha, beta, i) t_0 = beta + (2.0 * i); t_1 = (alpha + beta) + (2.0 * i); t_2 = 2.0 + t_1; tmp = 0.0; if (((((alpha + beta) * (beta - alpha)) / t_1) / t_2) <= -0.5) tmp = ((t_0 + (2.0 + t_0)) / alpha) / 2.0; else tmp = (1.0 + (((beta - alpha) * (beta / t_0)) / t_2)) / 2.0; end tmp_2 = tmp; end
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(beta + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(2.0 + t$95$1), $MachinePrecision]}, If[LessEqual[N[(N[(N[(N[(alpha + beta), $MachinePrecision] * N[(beta - alpha), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision] / t$95$2), $MachinePrecision], -0.5], N[(N[(N[(t$95$0 + N[(2.0 + t$95$0), $MachinePrecision]), $MachinePrecision] / alpha), $MachinePrecision] / 2.0), $MachinePrecision], N[(N[(1.0 + N[(N[(N[(beta - alpha), $MachinePrecision] * N[(beta / t$95$0), $MachinePrecision]), $MachinePrecision] / t$95$2), $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \beta + 2 \cdot i\\
t_1 := \left(\alpha + \beta\right) + 2 \cdot i\\
t_2 := 2 + t_1\\
\mathbf{if}\;\frac{\frac{\left(\alpha + \beta\right) \cdot \left(\beta - \alpha\right)}{t_1}}{t_2} \leq -0.5:\\
\;\;\;\;\frac{\frac{t_0 + \left(2 + t_0\right)}{\alpha}}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{1 + \frac{\left(\beta - \alpha\right) \cdot \frac{\beta}{t_0}}{t_2}}{2}\\
\end{array}
\end{array}
if (/.f64 (/.f64 (*.f64 (+.f64 alpha beta) (-.f64 beta alpha)) (+.f64 (+.f64 alpha beta) (*.f64 2 i))) (+.f64 (+.f64 (+.f64 alpha beta) (*.f64 2 i)) 2)) < -0.5Initial program 4.5%
Simplified10.7%
Taylor expanded in alpha around inf 95.1%
if -0.5 < (/.f64 (/.f64 (*.f64 (+.f64 alpha beta) (-.f64 beta alpha)) (+.f64 (+.f64 alpha beta) (*.f64 2 i))) (+.f64 (+.f64 (+.f64 alpha beta) (*.f64 2 i)) 2)) Initial program 80.3%
*-commutative80.3%
*-un-lft-identity80.3%
times-frac100.0%
associate-+r+100.0%
+-commutative100.0%
fma-udef100.0%
Applied egg-rr100.0%
Taylor expanded in alpha around 0 99.7%
Final simplification98.8%
(FPCore (alpha beta i)
:precision binary64
(let* ((t_0 (+ beta (* 2.0 i))) (t_1 (+ 2.0 t_0)))
(if (<= alpha 6.4e+44)
(/ (+ 1.0 (/ (- beta alpha) (+ 2.0 (+ (+ alpha beta) (* 2.0 i))))) 2.0)
(if (or (<= alpha 1.25e+106) (not (<= alpha 1.7e+137)))
(/ (/ (+ t_0 t_1) alpha) 2.0)
(/ (+ 1.0 (/ beta t_1)) 2.0)))))
double code(double alpha, double beta, double i) {
double t_0 = beta + (2.0 * i);
double t_1 = 2.0 + t_0;
double tmp;
if (alpha <= 6.4e+44) {
tmp = (1.0 + ((beta - alpha) / (2.0 + ((alpha + beta) + (2.0 * i))))) / 2.0;
} else if ((alpha <= 1.25e+106) || !(alpha <= 1.7e+137)) {
tmp = ((t_0 + t_1) / alpha) / 2.0;
} else {
tmp = (1.0 + (beta / t_1)) / 2.0;
}
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) :: tmp
t_0 = beta + (2.0d0 * i)
t_1 = 2.0d0 + t_0
if (alpha <= 6.4d+44) then
tmp = (1.0d0 + ((beta - alpha) / (2.0d0 + ((alpha + beta) + (2.0d0 * i))))) / 2.0d0
else if ((alpha <= 1.25d+106) .or. (.not. (alpha <= 1.7d+137))) then
tmp = ((t_0 + t_1) / alpha) / 2.0d0
else
tmp = (1.0d0 + (beta / t_1)) / 2.0d0
end if
code = tmp
end function
public static double code(double alpha, double beta, double i) {
double t_0 = beta + (2.0 * i);
double t_1 = 2.0 + t_0;
double tmp;
if (alpha <= 6.4e+44) {
tmp = (1.0 + ((beta - alpha) / (2.0 + ((alpha + beta) + (2.0 * i))))) / 2.0;
} else if ((alpha <= 1.25e+106) || !(alpha <= 1.7e+137)) {
tmp = ((t_0 + t_1) / alpha) / 2.0;
} else {
tmp = (1.0 + (beta / t_1)) / 2.0;
}
return tmp;
}
def code(alpha, beta, i): t_0 = beta + (2.0 * i) t_1 = 2.0 + t_0 tmp = 0 if alpha <= 6.4e+44: tmp = (1.0 + ((beta - alpha) / (2.0 + ((alpha + beta) + (2.0 * i))))) / 2.0 elif (alpha <= 1.25e+106) or not (alpha <= 1.7e+137): tmp = ((t_0 + t_1) / alpha) / 2.0 else: tmp = (1.0 + (beta / t_1)) / 2.0 return tmp
function code(alpha, beta, i) t_0 = Float64(beta + Float64(2.0 * i)) t_1 = Float64(2.0 + t_0) tmp = 0.0 if (alpha <= 6.4e+44) tmp = Float64(Float64(1.0 + Float64(Float64(beta - alpha) / Float64(2.0 + Float64(Float64(alpha + beta) + Float64(2.0 * i))))) / 2.0); elseif ((alpha <= 1.25e+106) || !(alpha <= 1.7e+137)) tmp = Float64(Float64(Float64(t_0 + t_1) / alpha) / 2.0); else tmp = Float64(Float64(1.0 + Float64(beta / t_1)) / 2.0); end return tmp end
function tmp_2 = code(alpha, beta, i) t_0 = beta + (2.0 * i); t_1 = 2.0 + t_0; tmp = 0.0; if (alpha <= 6.4e+44) tmp = (1.0 + ((beta - alpha) / (2.0 + ((alpha + beta) + (2.0 * i))))) / 2.0; elseif ((alpha <= 1.25e+106) || ~((alpha <= 1.7e+137))) tmp = ((t_0 + t_1) / alpha) / 2.0; else tmp = (1.0 + (beta / t_1)) / 2.0; end tmp_2 = tmp; end
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(beta + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(2.0 + t$95$0), $MachinePrecision]}, If[LessEqual[alpha, 6.4e+44], N[(N[(1.0 + N[(N[(beta - alpha), $MachinePrecision] / N[(2.0 + N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision], If[Or[LessEqual[alpha, 1.25e+106], N[Not[LessEqual[alpha, 1.7e+137]], $MachinePrecision]], N[(N[(N[(t$95$0 + t$95$1), $MachinePrecision] / alpha), $MachinePrecision] / 2.0), $MachinePrecision], N[(N[(1.0 + N[(beta / t$95$1), $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \beta + 2 \cdot i\\
t_1 := 2 + t_0\\
\mathbf{if}\;\alpha \leq 6.4 \cdot 10^{+44}:\\
\;\;\;\;\frac{1 + \frac{\beta - \alpha}{2 + \left(\left(\alpha + \beta\right) + 2 \cdot i\right)}}{2}\\
\mathbf{elif}\;\alpha \leq 1.25 \cdot 10^{+106} \lor \neg \left(\alpha \leq 1.7 \cdot 10^{+137}\right):\\
\;\;\;\;\frac{\frac{t_0 + t_1}{\alpha}}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{1 + \frac{\beta}{t_1}}{2}\\
\end{array}
\end{array}
if alpha < 6.40000000000000009e44Initial program 80.8%
Taylor expanded in i around 0 96.9%
if 6.40000000000000009e44 < alpha < 1.25e106 or 1.69999999999999993e137 < alpha Initial program 12.7%
Simplified25.8%
Taylor expanded in alpha around inf 79.8%
if 1.25e106 < alpha < 1.69999999999999993e137Initial program 51.8%
*-commutative51.8%
*-un-lft-identity51.8%
times-frac76.0%
associate-+r+76.0%
+-commutative76.0%
fma-udef76.0%
Applied egg-rr76.0%
Taylor expanded in beta around inf 76.4%
Taylor expanded in alpha around 0 76.4%
Final simplification92.0%
(FPCore (alpha beta i) :precision binary64 (if (<= alpha 7.5e+148) (/ (+ 1.0 (/ (- beta alpha) (+ 2.0 (+ (+ alpha beta) (* 2.0 i))))) 2.0) (/ (/ (+ 2.0 (* beta 2.0)) alpha) 2.0)))
double code(double alpha, double beta, double i) {
double tmp;
if (alpha <= 7.5e+148) {
tmp = (1.0 + ((beta - alpha) / (2.0 + ((alpha + beta) + (2.0 * i))))) / 2.0;
} else {
tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0;
}
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) :: tmp
if (alpha <= 7.5d+148) then
tmp = (1.0d0 + ((beta - alpha) / (2.0d0 + ((alpha + beta) + (2.0d0 * i))))) / 2.0d0
else
tmp = ((2.0d0 + (beta * 2.0d0)) / alpha) / 2.0d0
end if
code = tmp
end function
public static double code(double alpha, double beta, double i) {
double tmp;
if (alpha <= 7.5e+148) {
tmp = (1.0 + ((beta - alpha) / (2.0 + ((alpha + beta) + (2.0 * i))))) / 2.0;
} else {
tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0;
}
return tmp;
}
def code(alpha, beta, i): tmp = 0 if alpha <= 7.5e+148: tmp = (1.0 + ((beta - alpha) / (2.0 + ((alpha + beta) + (2.0 * i))))) / 2.0 else: tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0 return tmp
function code(alpha, beta, i) tmp = 0.0 if (alpha <= 7.5e+148) tmp = Float64(Float64(1.0 + Float64(Float64(beta - alpha) / Float64(2.0 + Float64(Float64(alpha + beta) + Float64(2.0 * i))))) / 2.0); else tmp = Float64(Float64(Float64(2.0 + Float64(beta * 2.0)) / alpha) / 2.0); end return tmp end
function tmp_2 = code(alpha, beta, i) tmp = 0.0; if (alpha <= 7.5e+148) tmp = (1.0 + ((beta - alpha) / (2.0 + ((alpha + beta) + (2.0 * i))))) / 2.0; else tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0; end tmp_2 = tmp; end
code[alpha_, beta_, i_] := If[LessEqual[alpha, 7.5e+148], N[(N[(1.0 + N[(N[(beta - alpha), $MachinePrecision] / N[(2.0 + N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision], N[(N[(N[(2.0 + N[(beta * 2.0), $MachinePrecision]), $MachinePrecision] / alpha), $MachinePrecision] / 2.0), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\alpha \leq 7.5 \cdot 10^{+148}:\\
\;\;\;\;\frac{1 + \frac{\beta - \alpha}{2 + \left(\left(\alpha + \beta\right) + 2 \cdot i\right)}}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{2 + \beta \cdot 2}{\alpha}}{2}\\
\end{array}
\end{array}
if alpha < 7.50000000000000008e148Initial program 74.0%
Taylor expanded in i around 0 89.8%
if 7.50000000000000008e148 < alpha Initial program 1.3%
associate-/l/0.3%
associate-+l+0.3%
associate-+l+0.3%
Simplified0.3%
Taylor expanded in i around 0 0.3%
*-commutative0.3%
+-commutative0.3%
associate-+r+0.3%
Simplified0.3%
Taylor expanded in alpha around inf 59.6%
*-commutative59.6%
Simplified59.6%
Final simplification85.8%
(FPCore (alpha beta i)
:precision binary64
(if (<= alpha 1e+45)
(/ (+ 1.0 (/ beta (+ beta 2.0))) 2.0)
(if (<= alpha 2.3e+111)
(/ (/ 2.0 alpha) 2.0)
(if (<= alpha 4.8e+148) 0.5 (/ (/ (+ 2.0 (* beta 2.0)) alpha) 2.0)))))
double code(double alpha, double beta, double i) {
double tmp;
if (alpha <= 1e+45) {
tmp = (1.0 + (beta / (beta + 2.0))) / 2.0;
} else if (alpha <= 2.3e+111) {
tmp = (2.0 / alpha) / 2.0;
} else if (alpha <= 4.8e+148) {
tmp = 0.5;
} else {
tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0;
}
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) :: tmp
if (alpha <= 1d+45) then
tmp = (1.0d0 + (beta / (beta + 2.0d0))) / 2.0d0
else if (alpha <= 2.3d+111) then
tmp = (2.0d0 / alpha) / 2.0d0
else if (alpha <= 4.8d+148) then
tmp = 0.5d0
else
tmp = ((2.0d0 + (beta * 2.0d0)) / alpha) / 2.0d0
end if
code = tmp
end function
public static double code(double alpha, double beta, double i) {
double tmp;
if (alpha <= 1e+45) {
tmp = (1.0 + (beta / (beta + 2.0))) / 2.0;
} else if (alpha <= 2.3e+111) {
tmp = (2.0 / alpha) / 2.0;
} else if (alpha <= 4.8e+148) {
tmp = 0.5;
} else {
tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0;
}
return tmp;
}
def code(alpha, beta, i): tmp = 0 if alpha <= 1e+45: tmp = (1.0 + (beta / (beta + 2.0))) / 2.0 elif alpha <= 2.3e+111: tmp = (2.0 / alpha) / 2.0 elif alpha <= 4.8e+148: tmp = 0.5 else: tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0 return tmp
function code(alpha, beta, i) tmp = 0.0 if (alpha <= 1e+45) tmp = Float64(Float64(1.0 + Float64(beta / Float64(beta + 2.0))) / 2.0); elseif (alpha <= 2.3e+111) tmp = Float64(Float64(2.0 / alpha) / 2.0); elseif (alpha <= 4.8e+148) tmp = 0.5; else tmp = Float64(Float64(Float64(2.0 + Float64(beta * 2.0)) / alpha) / 2.0); end return tmp end
function tmp_2 = code(alpha, beta, i) tmp = 0.0; if (alpha <= 1e+45) tmp = (1.0 + (beta / (beta + 2.0))) / 2.0; elseif (alpha <= 2.3e+111) tmp = (2.0 / alpha) / 2.0; elseif (alpha <= 4.8e+148) tmp = 0.5; else tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0; end tmp_2 = tmp; end
code[alpha_, beta_, i_] := If[LessEqual[alpha, 1e+45], N[(N[(1.0 + N[(beta / N[(beta + 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision], If[LessEqual[alpha, 2.3e+111], N[(N[(2.0 / alpha), $MachinePrecision] / 2.0), $MachinePrecision], If[LessEqual[alpha, 4.8e+148], 0.5, N[(N[(N[(2.0 + N[(beta * 2.0), $MachinePrecision]), $MachinePrecision] / alpha), $MachinePrecision] / 2.0), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\alpha \leq 10^{+45}:\\
\;\;\;\;\frac{1 + \frac{\beta}{\beta + 2}}{2}\\
\mathbf{elif}\;\alpha \leq 2.3 \cdot 10^{+111}:\\
\;\;\;\;\frac{\frac{2}{\alpha}}{2}\\
\mathbf{elif}\;\alpha \leq 4.8 \cdot 10^{+148}:\\
\;\;\;\;0.5\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{2 + \beta \cdot 2}{\alpha}}{2}\\
\end{array}
\end{array}
if alpha < 9.9999999999999993e44Initial program 80.8%
associate-/l/80.2%
associate-+l+80.2%
associate-+l+80.2%
Simplified80.2%
Taylor expanded in i around 0 72.6%
*-commutative72.6%
+-commutative72.6%
associate-+r+72.6%
Simplified72.6%
Taylor expanded in alpha around 0 89.9%
+-commutative89.9%
Simplified89.9%
if 9.9999999999999993e44 < alpha < 2.30000000000000002e111Initial program 28.8%
associate-/l/28.4%
associate-+l+28.4%
associate-+l+28.4%
Simplified28.4%
Taylor expanded in i around 0 8.0%
*-commutative8.0%
+-commutative8.0%
associate-+r+8.0%
Simplified8.0%
Taylor expanded in alpha around inf 55.7%
*-commutative55.7%
Simplified55.7%
Taylor expanded in beta around 0 55.8%
if 2.30000000000000002e111 < alpha < 4.79999999999999989e148Initial program 51.9%
Simplified73.4%
clear-num73.4%
fma-udef73.4%
+-commutative73.4%
associate-+r+73.4%
inv-pow73.4%
associate-+r+73.4%
+-commutative73.4%
fma-udef73.4%
Applied egg-rr73.4%
unpow-173.4%
+-commutative73.4%
Simplified73.4%
Taylor expanded in i around inf 55.6%
if 4.79999999999999989e148 < alpha Initial program 1.3%
associate-/l/0.3%
associate-+l+0.3%
associate-+l+0.3%
Simplified0.3%
Taylor expanded in i around 0 0.3%
*-commutative0.3%
+-commutative0.3%
associate-+r+0.3%
Simplified0.3%
Taylor expanded in alpha around inf 59.6%
*-commutative59.6%
Simplified59.6%
Final simplification80.9%
(FPCore (alpha beta i)
:precision binary64
(if (<= alpha 1.05e+58)
(/ (+ 1.0 (/ beta (+ beta 2.0))) 2.0)
(if (<= alpha 1.32e+107)
(/ (/ (+ 2.0 (+ beta (* 2.0 i))) alpha) 2.0)
(if (<= alpha 4.8e+148) 0.5 (/ (/ (+ 2.0 (* beta 2.0)) alpha) 2.0)))))
double code(double alpha, double beta, double i) {
double tmp;
if (alpha <= 1.05e+58) {
tmp = (1.0 + (beta / (beta + 2.0))) / 2.0;
} else if (alpha <= 1.32e+107) {
tmp = ((2.0 + (beta + (2.0 * i))) / alpha) / 2.0;
} else if (alpha <= 4.8e+148) {
tmp = 0.5;
} else {
tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0;
}
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) :: tmp
if (alpha <= 1.05d+58) then
tmp = (1.0d0 + (beta / (beta + 2.0d0))) / 2.0d0
else if (alpha <= 1.32d+107) then
tmp = ((2.0d0 + (beta + (2.0d0 * i))) / alpha) / 2.0d0
else if (alpha <= 4.8d+148) then
tmp = 0.5d0
else
tmp = ((2.0d0 + (beta * 2.0d0)) / alpha) / 2.0d0
end if
code = tmp
end function
public static double code(double alpha, double beta, double i) {
double tmp;
if (alpha <= 1.05e+58) {
tmp = (1.0 + (beta / (beta + 2.0))) / 2.0;
} else if (alpha <= 1.32e+107) {
tmp = ((2.0 + (beta + (2.0 * i))) / alpha) / 2.0;
} else if (alpha <= 4.8e+148) {
tmp = 0.5;
} else {
tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0;
}
return tmp;
}
def code(alpha, beta, i): tmp = 0 if alpha <= 1.05e+58: tmp = (1.0 + (beta / (beta + 2.0))) / 2.0 elif alpha <= 1.32e+107: tmp = ((2.0 + (beta + (2.0 * i))) / alpha) / 2.0 elif alpha <= 4.8e+148: tmp = 0.5 else: tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0 return tmp
function code(alpha, beta, i) tmp = 0.0 if (alpha <= 1.05e+58) tmp = Float64(Float64(1.0 + Float64(beta / Float64(beta + 2.0))) / 2.0); elseif (alpha <= 1.32e+107) tmp = Float64(Float64(Float64(2.0 + Float64(beta + Float64(2.0 * i))) / alpha) / 2.0); elseif (alpha <= 4.8e+148) tmp = 0.5; else tmp = Float64(Float64(Float64(2.0 + Float64(beta * 2.0)) / alpha) / 2.0); end return tmp end
function tmp_2 = code(alpha, beta, i) tmp = 0.0; if (alpha <= 1.05e+58) tmp = (1.0 + (beta / (beta + 2.0))) / 2.0; elseif (alpha <= 1.32e+107) tmp = ((2.0 + (beta + (2.0 * i))) / alpha) / 2.0; elseif (alpha <= 4.8e+148) tmp = 0.5; else tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0; end tmp_2 = tmp; end
code[alpha_, beta_, i_] := If[LessEqual[alpha, 1.05e+58], N[(N[(1.0 + N[(beta / N[(beta + 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision], If[LessEqual[alpha, 1.32e+107], N[(N[(N[(2.0 + N[(beta + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / alpha), $MachinePrecision] / 2.0), $MachinePrecision], If[LessEqual[alpha, 4.8e+148], 0.5, N[(N[(N[(2.0 + N[(beta * 2.0), $MachinePrecision]), $MachinePrecision] / alpha), $MachinePrecision] / 2.0), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\alpha \leq 1.05 \cdot 10^{+58}:\\
\;\;\;\;\frac{1 + \frac{\beta}{\beta + 2}}{2}\\
\mathbf{elif}\;\alpha \leq 1.32 \cdot 10^{+107}:\\
\;\;\;\;\frac{\frac{2 + \left(\beta + 2 \cdot i\right)}{\alpha}}{2}\\
\mathbf{elif}\;\alpha \leq 4.8 \cdot 10^{+148}:\\
\;\;\;\;0.5\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{2 + \beta \cdot 2}{\alpha}}{2}\\
\end{array}
\end{array}
if alpha < 1.05000000000000006e58Initial program 80.2%
associate-/l/79.6%
associate-+l+79.6%
associate-+l+79.6%
Simplified79.6%
Taylor expanded in i around 0 71.6%
*-commutative71.6%
+-commutative71.6%
associate-+r+71.6%
Simplified71.6%
Taylor expanded in alpha around 0 89.1%
+-commutative89.1%
Simplified89.1%
if 1.05000000000000006e58 < alpha < 1.32000000000000003e107Initial program 18.2%
Taylor expanded in alpha around inf 23.2%
mul-1-neg23.2%
Simplified23.2%
Taylor expanded in alpha around inf 58.3%
if 1.32000000000000003e107 < alpha < 4.79999999999999989e148Initial program 51.9%
Simplified71.3%
clear-num71.3%
fma-udef71.3%
+-commutative71.3%
associate-+r+71.3%
inv-pow71.3%
associate-+r+71.3%
+-commutative71.3%
fma-udef71.3%
Applied egg-rr71.3%
unpow-171.3%
+-commutative71.3%
Simplified71.3%
Taylor expanded in i around inf 55.4%
if 4.79999999999999989e148 < alpha Initial program 1.3%
associate-/l/0.3%
associate-+l+0.3%
associate-+l+0.3%
Simplified0.3%
Taylor expanded in i around 0 0.3%
*-commutative0.3%
+-commutative0.3%
associate-+r+0.3%
Simplified0.3%
Taylor expanded in alpha around inf 59.6%
*-commutative59.6%
Simplified59.6%
Final simplification81.0%
(FPCore (alpha beta i) :precision binary64 (if (<= alpha 5.2e+150) (/ (+ 1.0 (/ beta (+ 2.0 (+ beta (* 2.0 i))))) 2.0) (/ (/ (+ 2.0 (* beta 2.0)) alpha) 2.0)))
double code(double alpha, double beta, double i) {
double tmp;
if (alpha <= 5.2e+150) {
tmp = (1.0 + (beta / (2.0 + (beta + (2.0 * i))))) / 2.0;
} else {
tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0;
}
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) :: tmp
if (alpha <= 5.2d+150) then
tmp = (1.0d0 + (beta / (2.0d0 + (beta + (2.0d0 * i))))) / 2.0d0
else
tmp = ((2.0d0 + (beta * 2.0d0)) / alpha) / 2.0d0
end if
code = tmp
end function
public static double code(double alpha, double beta, double i) {
double tmp;
if (alpha <= 5.2e+150) {
tmp = (1.0 + (beta / (2.0 + (beta + (2.0 * i))))) / 2.0;
} else {
tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0;
}
return tmp;
}
def code(alpha, beta, i): tmp = 0 if alpha <= 5.2e+150: tmp = (1.0 + (beta / (2.0 + (beta + (2.0 * i))))) / 2.0 else: tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0 return tmp
function code(alpha, beta, i) tmp = 0.0 if (alpha <= 5.2e+150) tmp = Float64(Float64(1.0 + Float64(beta / Float64(2.0 + Float64(beta + Float64(2.0 * i))))) / 2.0); else tmp = Float64(Float64(Float64(2.0 + Float64(beta * 2.0)) / alpha) / 2.0); end return tmp end
function tmp_2 = code(alpha, beta, i) tmp = 0.0; if (alpha <= 5.2e+150) tmp = (1.0 + (beta / (2.0 + (beta + (2.0 * i))))) / 2.0; else tmp = ((2.0 + (beta * 2.0)) / alpha) / 2.0; end tmp_2 = tmp; end
code[alpha_, beta_, i_] := If[LessEqual[alpha, 5.2e+150], N[(N[(1.0 + N[(beta / N[(2.0 + N[(beta + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision], N[(N[(N[(2.0 + N[(beta * 2.0), $MachinePrecision]), $MachinePrecision] / alpha), $MachinePrecision] / 2.0), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\alpha \leq 5.2 \cdot 10^{+150}:\\
\;\;\;\;\frac{1 + \frac{\beta}{2 + \left(\beta + 2 \cdot i\right)}}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{2 + \beta \cdot 2}{\alpha}}{2}\\
\end{array}
\end{array}
if alpha < 5.20000000000000012e150Initial program 74.0%
*-commutative74.0%
*-un-lft-identity74.0%
times-frac91.5%
associate-+r+91.5%
+-commutative91.5%
fma-udef91.5%
Applied egg-rr91.5%
Taylor expanded in beta around inf 89.0%
Taylor expanded in alpha around 0 89.0%
if 5.20000000000000012e150 < alpha Initial program 1.3%
associate-/l/0.3%
associate-+l+0.3%
associate-+l+0.3%
Simplified0.3%
Taylor expanded in i around 0 0.3%
*-commutative0.3%
+-commutative0.3%
associate-+r+0.3%
Simplified0.3%
Taylor expanded in alpha around inf 59.6%
*-commutative59.6%
Simplified59.6%
Final simplification85.1%
(FPCore (alpha beta i) :precision binary64 (if (<= i 7e+209) (/ (+ 1.0 (/ beta (+ beta 2.0))) 2.0) 0.5))
double code(double alpha, double beta, double i) {
double tmp;
if (i <= 7e+209) {
tmp = (1.0 + (beta / (beta + 2.0))) / 2.0;
} else {
tmp = 0.5;
}
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) :: tmp
if (i <= 7d+209) then
tmp = (1.0d0 + (beta / (beta + 2.0d0))) / 2.0d0
else
tmp = 0.5d0
end if
code = tmp
end function
public static double code(double alpha, double beta, double i) {
double tmp;
if (i <= 7e+209) {
tmp = (1.0 + (beta / (beta + 2.0))) / 2.0;
} else {
tmp = 0.5;
}
return tmp;
}
def code(alpha, beta, i): tmp = 0 if i <= 7e+209: tmp = (1.0 + (beta / (beta + 2.0))) / 2.0 else: tmp = 0.5 return tmp
function code(alpha, beta, i) tmp = 0.0 if (i <= 7e+209) tmp = Float64(Float64(1.0 + Float64(beta / Float64(beta + 2.0))) / 2.0); else tmp = 0.5; end return tmp end
function tmp_2 = code(alpha, beta, i) tmp = 0.0; if (i <= 7e+209) tmp = (1.0 + (beta / (beta + 2.0))) / 2.0; else tmp = 0.5; end tmp_2 = tmp; end
code[alpha_, beta_, i_] := If[LessEqual[i, 7e+209], N[(N[(1.0 + N[(beta / N[(beta + 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision], 0.5]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;i \leq 7 \cdot 10^{+209}:\\
\;\;\;\;\frac{1 + \frac{\beta}{\beta + 2}}{2}\\
\mathbf{else}:\\
\;\;\;\;0.5\\
\end{array}
\end{array}
if i < 7.0000000000000005e209Initial program 63.6%
associate-/l/63.0%
associate-+l+63.0%
associate-+l+63.0%
Simplified63.0%
Taylor expanded in i around 0 55.5%
*-commutative55.5%
+-commutative55.5%
associate-+r+55.5%
Simplified55.5%
Taylor expanded in alpha around 0 72.8%
+-commutative72.8%
Simplified72.8%
if 7.0000000000000005e209 < i Initial program 69.5%
Simplified97.0%
clear-num97.0%
fma-udef97.0%
+-commutative97.0%
associate-+r+97.0%
inv-pow97.0%
associate-+r+97.0%
+-commutative97.0%
fma-udef97.0%
Applied egg-rr97.0%
unpow-197.0%
+-commutative97.0%
Simplified97.0%
Taylor expanded in i around inf 89.5%
Final simplification74.9%
(FPCore (alpha beta i) :precision binary64 (if (<= beta 3.2e+15) 0.5 (if (<= beta 1.12e+76) 1.0 (if (<= beta 4.8e+106) 0.5 1.0))))
double code(double alpha, double beta, double i) {
double tmp;
if (beta <= 3.2e+15) {
tmp = 0.5;
} else if (beta <= 1.12e+76) {
tmp = 1.0;
} else if (beta <= 4.8e+106) {
tmp = 0.5;
} else {
tmp = 1.0;
}
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) :: tmp
if (beta <= 3.2d+15) then
tmp = 0.5d0
else if (beta <= 1.12d+76) then
tmp = 1.0d0
else if (beta <= 4.8d+106) then
tmp = 0.5d0
else
tmp = 1.0d0
end if
code = tmp
end function
public static double code(double alpha, double beta, double i) {
double tmp;
if (beta <= 3.2e+15) {
tmp = 0.5;
} else if (beta <= 1.12e+76) {
tmp = 1.0;
} else if (beta <= 4.8e+106) {
tmp = 0.5;
} else {
tmp = 1.0;
}
return tmp;
}
def code(alpha, beta, i): tmp = 0 if beta <= 3.2e+15: tmp = 0.5 elif beta <= 1.12e+76: tmp = 1.0 elif beta <= 4.8e+106: tmp = 0.5 else: tmp = 1.0 return tmp
function code(alpha, beta, i) tmp = 0.0 if (beta <= 3.2e+15) tmp = 0.5; elseif (beta <= 1.12e+76) tmp = 1.0; elseif (beta <= 4.8e+106) tmp = 0.5; else tmp = 1.0; end return tmp end
function tmp_2 = code(alpha, beta, i) tmp = 0.0; if (beta <= 3.2e+15) tmp = 0.5; elseif (beta <= 1.12e+76) tmp = 1.0; elseif (beta <= 4.8e+106) tmp = 0.5; else tmp = 1.0; end tmp_2 = tmp; end
code[alpha_, beta_, i_] := If[LessEqual[beta, 3.2e+15], 0.5, If[LessEqual[beta, 1.12e+76], 1.0, If[LessEqual[beta, 4.8e+106], 0.5, 1.0]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\beta \leq 3.2 \cdot 10^{+15}:\\
\;\;\;\;0.5\\
\mathbf{elif}\;\beta \leq 1.12 \cdot 10^{+76}:\\
\;\;\;\;1\\
\mathbf{elif}\;\beta \leq 4.8 \cdot 10^{+106}:\\
\;\;\;\;0.5\\
\mathbf{else}:\\
\;\;\;\;1\\
\end{array}
\end{array}
if beta < 3.2e15 or 1.12000000000000005e76 < beta < 4.8000000000000001e106Initial program 75.9%
Simplified77.6%
clear-num77.6%
fma-udef77.6%
+-commutative77.6%
associate-+r+77.6%
inv-pow77.6%
associate-+r+77.6%
+-commutative77.6%
fma-udef77.6%
Applied egg-rr77.6%
unpow-177.6%
+-commutative77.6%
Simplified77.6%
Taylor expanded in i around inf 73.8%
if 3.2e15 < beta < 1.12000000000000005e76 or 4.8000000000000001e106 < beta Initial program 36.5%
associate-/l/34.7%
associate-+l+34.7%
associate-+l+34.7%
Simplified34.7%
Taylor expanded in beta around inf 77.1%
Final simplification74.8%
(FPCore (alpha beta i) :precision binary64 0.5)
double code(double alpha, double beta, double i) {
return 0.5;
}
real(8) function code(alpha, beta, i)
real(8), intent (in) :: alpha
real(8), intent (in) :: beta
real(8), intent (in) :: i
code = 0.5d0
end function
public static double code(double alpha, double beta, double i) {
return 0.5;
}
def code(alpha, beta, i): return 0.5
function code(alpha, beta, i) return 0.5 end
function tmp = code(alpha, beta, i) tmp = 0.5; end
code[alpha_, beta_, i_] := 0.5
\begin{array}{l}
\\
0.5
\end{array}
Initial program 64.3%
Simplified81.1%
clear-num81.2%
fma-udef81.2%
+-commutative81.2%
associate-+r+81.2%
inv-pow81.2%
associate-+r+81.2%
+-commutative81.2%
fma-udef81.2%
Applied egg-rr81.2%
unpow-181.2%
+-commutative81.2%
Simplified81.2%
Taylor expanded in i around inf 60.5%
Final simplification60.5%
herbie shell --seed 2023318
(FPCore (alpha beta i)
:name "Octave 3.8, jcobi/2"
:precision binary64
:pre (and (and (> alpha -1.0) (> beta -1.0)) (> i 0.0))
(/ (+ (/ (/ (* (+ alpha beta) (- beta alpha)) (+ (+ alpha beta) (* 2.0 i))) (+ (+ (+ alpha beta) (* 2.0 i)) 2.0)) 1.0) 2.0))