double code(double alpha, double beta) {
return ((double) (((double) (((double) (((double) (beta - alpha)) / ((double) (((double) (alpha + beta)) + 2.0)))) + 1.0)) / 2.0));
}
double code(double alpha, double beta) {
double VAR;
if ((alpha <= 2.7147893205897957e+69)) {
VAR = ((double) (((double) (((double) (beta / ((double) (((double) (alpha + beta)) + 2.0)))) - ((double) log(((double) exp(((double) (((double) (alpha / ((double) (alpha + ((double) (beta + 2.0)))))) - 1.0)))))))) / 2.0));
} else {
VAR = ((double) (((double) (((double) (((double) cbrt(((double) (beta / ((double) (alpha + ((double) (beta + 2.0)))))))) * ((double) (((double) cbrt(((double) (beta / ((double) (alpha + ((double) (beta + 2.0)))))))) * ((double) cbrt(((double) (beta / ((double) (alpha + ((double) (beta + 2.0)))))))))))) - ((double) (((double) (4.0 / ((double) (alpha * alpha)))) - ((double) (((double) (2.0 / alpha)) + ((double) (8.0 / ((double) pow(alpha, 3.0)))))))))) / 2.0));
}
return VAR;
}



Bits error versus alpha



Bits error versus beta
Results
if alpha < 2.71478932058979567e69Initial program 3.6
rmApplied div-sub3.6
Applied associate-+l-3.6
Simplified3.6
rmApplied add-log-exp3.6
Applied add-log-exp3.6
Applied diff-log3.6
Simplified3.6
if 2.71478932058979567e69 < alpha Initial program 52.0
rmApplied div-sub52.0
Applied associate-+l-50.1
Simplified50.1
rmApplied add-cube-cbrt50.1
Simplified50.1
Simplified50.1
Taylor expanded around inf 18.2
Simplified18.2
Final simplification7.5
herbie shell --seed 2020181
(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))