\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 -1:\\
\;\;\;\;\frac{\frac{\beta}{\left(\beta + \alpha\right) + 2} - \left(\frac{4}{\alpha \cdot \alpha} - \left(\frac{2}{\alpha} + \frac{8}{{\alpha}^{3}}\right)\right)}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\beta}{\left(\beta + \alpha\right) + 2} - \log \left(e^{-1 + \frac{\alpha}{\left(\beta + \alpha\right) + 2}}\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)) -1.0)
(/
(-
(/ beta (+ (+ beta alpha) 2.0))
(- (/ 4.0 (* alpha alpha)) (+ (/ 2.0 alpha) (/ 8.0 (pow alpha 3.0)))))
2.0)
(/
(-
(/ beta (+ (+ beta alpha) 2.0))
(log (exp (+ -1.0 (/ alpha (+ (+ beta alpha) 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)) <= -1.0) {
tmp = ((beta / ((beta + alpha) + 2.0)) - ((4.0 / (alpha * alpha)) - ((2.0 / alpha) + (8.0 / pow(alpha, 3.0))))) / 2.0;
} else {
tmp = ((beta / ((beta + alpha) + 2.0)) - log(exp(-1.0 + (alpha / ((beta + alpha) + 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)) < -1Initial program 60.6
rmApplied div-sub_binary64_247060.6
Applied associate-+l-_binary64_240058.6
Simplified58.6
Taylor expanded around inf 11.5
Simplified11.5
if -1 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) 2)) Initial program 0.5
rmApplied div-sub_binary64_24700.5
Applied associate-+l-_binary64_24000.5
Simplified0.5
rmApplied add-log-exp_binary64_25040.5
Applied add-log-exp_binary64_25040.5
Applied diff-log_binary64_25570.5
Simplified0.5
Final simplification3.4
herbie shell --seed 2020346
(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))