\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1}\begin{array}{l}
\mathbf{if}\;\alpha \le 1.8928873429509171 \cdot 10^{165}:\\
\;\;\;\;\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1} \cdot \frac{1}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\frac{2}{{\alpha}^{2}} + \left(1 - \frac{1}{\alpha}\right)}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1}\\
\end{array}double code(double alpha, double beta) {
return (((((double) (((double) (((double) (alpha + beta)) + ((double) (beta * alpha)))) + 1.0)) / ((double) (((double) (alpha + beta)) + ((double) (2.0 * 1.0))))) / ((double) (((double) (alpha + beta)) + ((double) (2.0 * 1.0))))) / ((double) (((double) (((double) (alpha + beta)) + ((double) (2.0 * 1.0)))) + 1.0)));
}
double code(double alpha, double beta) {
double VAR;
if ((alpha <= 1.892887342950917e+165)) {
VAR = ((double) (((((double) (((double) (((double) (alpha + beta)) + ((double) (beta * alpha)))) + 1.0)) / ((double) (((double) (alpha + beta)) + ((double) (2.0 * 1.0))))) / ((double) (((double) (alpha + beta)) + ((double) (2.0 * 1.0))))) * (1.0 / ((double) (((double) (((double) (alpha + beta)) + ((double) (2.0 * 1.0)))) + 1.0)))));
} else {
VAR = ((((double) ((2.0 / ((double) pow(alpha, 2.0))) + ((double) (1.0 - (1.0 / alpha))))) / ((double) (((double) (alpha + beta)) + ((double) (2.0 * 1.0))))) / ((double) (((double) (((double) (alpha + beta)) + ((double) (2.0 * 1.0)))) + 1.0)));
}
return VAR;
}



Bits error versus alpha



Bits error versus beta
Results
if alpha < 1.8928873429509171e165Initial program 1.5
rmApplied div-inv1.5
if 1.8928873429509171e165 < alpha Initial program 15.0
rmApplied *-un-lft-identity15.0
Applied add-sqr-sqrt15.0
Applied times-frac15.0
Simplified15.0
Taylor expanded around inf 6.7
Simplified6.7
Final simplification2.3
herbie shell --seed 2020182
(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)))