\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2}\begin{array}{l}
\mathbf{if}\;\alpha \leq 4.470683226004296 \cdot 10^{+18}:\\
\;\;\;\;e^{\sqrt[3]{{\log \left(\frac{\frac{\beta}{\left(\alpha + \beta\right) + 2} - \left(\frac{\alpha}{\left(\alpha + \beta\right) + 2} - 1\right)}{2}\right)}^{3}}}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\beta}{\left(\alpha + \beta\right) + 2} - \left(\frac{4}{\alpha \cdot \alpha} - \left(\frac{2}{\alpha} + \frac{8}{{\alpha}^{3}}\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 (<= alpha 4.470683226004296e+18)
(exp
(cbrt
(pow
(log
(/
(-
(/ beta (+ (+ alpha beta) 2.0))
(- (/ alpha (+ (+ alpha beta) 2.0)) 1.0))
2.0))
3.0)))
(/
(-
(/ beta (+ (+ alpha beta) 2.0))
(- (/ 4.0 (* alpha alpha)) (+ (/ 2.0 alpha) (/ 8.0 (pow alpha 3.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 (alpha <= 4.470683226004296e+18) {
tmp = exp(cbrt(pow(log(((beta / ((alpha + beta) + 2.0)) - ((alpha / ((alpha + beta) + 2.0)) - 1.0)) / 2.0), 3.0)));
} else {
tmp = ((beta / ((alpha + beta) + 2.0)) - ((4.0 / (alpha * alpha)) - ((2.0 / alpha) + (8.0 / pow(alpha, 3.0))))) / 2.0;
}
return tmp;
}



Bits error versus alpha



Bits error versus beta
Results
if alpha < 4470683226004296190Initial program 0.6
rmApplied div-sub_binary64_17670.6
Applied associate-+l-_binary64_16990.6
Simplified0.6
rmApplied add-exp-log_binary64_17970.6
Applied add-exp-log_binary64_17970.6
Applied div-exp_binary64_18100.6
Simplified0.6
rmApplied add-cbrt-cube_binary64_17950.6
Simplified0.6
if 4470683226004296190 < alpha Initial program 50.9
rmApplied div-sub_binary64_176750.9
Applied associate-+l-_binary64_169949.4
Simplified49.4
Taylor expanded around inf 17.3
Simplified17.3
Final simplification5.7
herbie shell --seed 2020281
(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))