\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2}\begin{array}{l}
\mathbf{if}\;\frac{\beta - \alpha}{\left(\beta + \alpha\right) + 2} \leq -0.999999743168425:\\
\;\;\;\;\frac{\left(2 \cdot \frac{\beta}{\alpha} + \frac{2}{\alpha}\right) - \left(6 \cdot \frac{\beta}{\alpha \cdot \alpha} + \left(\frac{4}{\alpha \cdot \alpha} + 2 \cdot \left(\frac{\beta}{\alpha} \cdot \frac{\beta}{\alpha}\right)\right)\right)}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{e^{\log \log \left(e^{1 + \frac{\beta - \alpha}{\alpha + \left(\beta + 2\right)}}\right)}}{2}\\
\end{array}(FPCore (alpha beta) :precision binary64 (/ (+ (/ (- beta alpha) (+ (+ alpha beta) 2.0)) 1.0) 2.0))
(FPCore (alpha beta)
:precision binary64
(if (<= (/ (- beta alpha) (+ (+ beta alpha) 2.0)) -0.999999743168425)
(/
(-
(+ (* 2.0 (/ beta alpha)) (/ 2.0 alpha))
(+
(* 6.0 (/ beta (* alpha alpha)))
(+ (/ 4.0 (* alpha alpha)) (* 2.0 (* (/ beta alpha) (/ beta alpha))))))
2.0)
(/
(exp (log (log (exp (+ 1.0 (/ (- beta alpha) (+ alpha (+ beta 2.0))))))))
2.0)))double code(double alpha, double beta) {
return (((beta - alpha) / ((alpha + beta) + 2.0)) + 1.0) / 2.0;
}
double code(double alpha, double beta) {
double tmp;
if (((beta - alpha) / ((beta + alpha) + 2.0)) <= -0.999999743168425) {
tmp = (((2.0 * (beta / alpha)) + (2.0 / alpha)) - ((6.0 * (beta / (alpha * alpha))) + ((4.0 / (alpha * alpha)) + (2.0 * ((beta / alpha) * (beta / alpha)))))) / 2.0;
} else {
tmp = exp(log(log(exp(1.0 + ((beta - alpha) / (alpha + (beta + 2.0))))))) / 2.0;
}
return tmp;
}



Bits error versus alpha



Bits error versus beta
Results
if (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) 2)) < -0.999999743168424993Initial program 59.8
Taylor expanded around inf 3.4
Simplified0.1
if -0.999999743168424993 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) 2)) Initial program 0.1
rmApplied add-log-exp_binary640.1
Applied add-log-exp_binary640.1
Applied sum-log_binary640.1
Simplified0.1
rmApplied add-exp-log_binary640.1
Final simplification0.1
herbie shell --seed 2021139
(FPCore (alpha beta)
:name "Octave 3.8, jcobi/1"
:precision binary64
:pre (and (> alpha -1.0) (> beta -1.0))
(/ (+ (/ (- beta alpha) (+ (+ alpha beta) 2.0)) 1.0) 2.0))