\frac{\frac{\frac{\left(\alpha + \beta\right) \cdot \left(\beta - \alpha\right)}{\left(\alpha + \beta\right) + 2 \cdot i}}{\left(\left(\alpha + \beta\right) + 2 \cdot i\right) + 2} + 1}{2}\begin{array}{l}
\mathbf{if}\;\alpha \leq 7.479662422107554 \cdot 10^{+100}:\\
\;\;\;\;\frac{\frac{\alpha + \beta}{\beta + \left(\alpha + 2 \cdot i\right)} \cdot \frac{\frac{\frac{\beta - \alpha}{\sqrt{\sqrt{\beta + \left(\alpha + \left(2 + 2 \cdot i\right)\right)}}}}{\sqrt{\sqrt{\beta + \left(\alpha + \left(2 + 2 \cdot i\right)\right)}}}}{\sqrt{\alpha + \left(\beta + \left(2 + 2 \cdot i\right)\right)}} + 1}{2}\\
\mathbf{elif}\;\alpha \leq 4.275223394131328 \cdot 10^{+142}:\\
\;\;\;\;\frac{\frac{2}{\alpha} + \left(\frac{8}{{\alpha}^{3}} - \frac{4}{\alpha \cdot \alpha}\right)}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{1 + \frac{\alpha + \beta}{\beta + \left(\alpha + 2 \cdot i\right)} \cdot \frac{\frac{\frac{\beta - \alpha}{\left|\sqrt[3]{\beta + \left(\alpha + \left(2 + 2 \cdot i\right)\right)}\right|}}{\sqrt{\sqrt[3]{\beta + \left(\alpha + \left(2 + 2 \cdot i\right)\right)}}}}{\sqrt{\alpha + \left(\beta + \left(2 + 2 \cdot i\right)\right)}}}{2}\\
\end{array}(FPCore (alpha beta i)
:precision binary64
(/
(+
(/
(/ (* (+ alpha beta) (- beta alpha)) (+ (+ alpha beta) (* 2.0 i)))
(+ (+ (+ alpha beta) (* 2.0 i)) 2.0))
1.0)
2.0))(FPCore (alpha beta i)
:precision binary64
(if (<= alpha 7.479662422107554e+100)
(/
(+
(*
(/ (+ alpha beta) (+ beta (+ alpha (* 2.0 i))))
(/
(/
(/ (- beta alpha) (sqrt (sqrt (+ beta (+ alpha (+ 2.0 (* 2.0 i)))))))
(sqrt (sqrt (+ beta (+ alpha (+ 2.0 (* 2.0 i)))))))
(sqrt (+ alpha (+ beta (+ 2.0 (* 2.0 i)))))))
1.0)
2.0)
(if (<= alpha 4.275223394131328e+142)
(/
(+ (/ 2.0 alpha) (- (/ 8.0 (pow alpha 3.0)) (/ 4.0 (* alpha alpha))))
2.0)
(/
(+
1.0
(*
(/ (+ alpha beta) (+ beta (+ alpha (* 2.0 i))))
(/
(/
(/ (- beta alpha) (fabs (cbrt (+ beta (+ alpha (+ 2.0 (* 2.0 i)))))))
(sqrt (cbrt (+ beta (+ alpha (+ 2.0 (* 2.0 i)))))))
(sqrt (+ alpha (+ beta (+ 2.0 (* 2.0 i))))))))
2.0))))double code(double alpha, double beta, double i) {
return (((double) (((((double) (((double) (alpha + beta)) * ((double) (beta - alpha)))) / ((double) (((double) (alpha + beta)) + ((double) (2.0 * i))))) / ((double) (((double) (((double) (alpha + beta)) + ((double) (2.0 * i)))) + 2.0))) + 1.0)) / 2.0);
}
double code(double alpha, double beta, double i) {
double tmp;
if ((alpha <= 7.479662422107554e+100)) {
tmp = (((double) (((double) ((((double) (alpha + beta)) / ((double) (beta + ((double) (alpha + ((double) (2.0 * i))))))) * (((((double) (beta - alpha)) / ((double) sqrt(((double) sqrt(((double) (beta + ((double) (alpha + ((double) (2.0 + ((double) (2.0 * i))))))))))))) / ((double) sqrt(((double) sqrt(((double) (beta + ((double) (alpha + ((double) (2.0 + ((double) (2.0 * i))))))))))))) / ((double) sqrt(((double) (alpha + ((double) (beta + ((double) (2.0 + ((double) (2.0 * i))))))))))))) + 1.0)) / 2.0);
} else {
double tmp_1;
if ((alpha <= 4.275223394131328e+142)) {
tmp_1 = (((double) ((2.0 / alpha) + ((double) ((8.0 / ((double) pow(alpha, 3.0))) - (4.0 / ((double) (alpha * alpha))))))) / 2.0);
} else {
tmp_1 = (((double) (1.0 + ((double) ((((double) (alpha + beta)) / ((double) (beta + ((double) (alpha + ((double) (2.0 * i))))))) * (((((double) (beta - alpha)) / ((double) fabs(((double) cbrt(((double) (beta + ((double) (alpha + ((double) (2.0 + ((double) (2.0 * i))))))))))))) / ((double) sqrt(((double) cbrt(((double) (beta + ((double) (alpha + ((double) (2.0 + ((double) (2.0 * i))))))))))))) / ((double) sqrt(((double) (alpha + ((double) (beta + ((double) (2.0 + ((double) (2.0 * i))))))))))))))) / 2.0);
}
tmp = tmp_1;
}
return tmp;
}



Bits error versus alpha



Bits error versus beta



Bits error versus i
Results
if alpha < 7.4796624221075541e100Initial program Error: 13.8 bits
SimplifiedError: 10.7 bits
rmApplied *-un-lft-identityError: 10.7 bits
Applied times-fracError: 3.2 bits
Applied associate-*r*Error: 3.2 bits
SimplifiedError: 3.2 bits
rmApplied add-sqr-sqrtError: 3.2 bits
Applied associate-/r*Error: 3.3 bits
SimplifiedError: 3.3 bits
rmApplied add-sqr-sqrtError: 3.3 bits
Applied sqrt-prodError: 3.3 bits
Applied associate-/r*Error: 3.3 bits
if 7.4796624221075541e100 < alpha < 4.2752233941313279e142Initial program Error: 45.6 bits
SimplifiedError: 42.2 bits
Taylor expanded around inf Error: 41.5 bits
SimplifiedError: 41.5 bits
if 4.2752233941313279e142 < alpha Initial program Error: 62.7 bits
SimplifiedError: 52.8 bits
rmApplied *-un-lft-identityError: 52.8 bits
Applied times-fracError: 46.0 bits
Applied associate-*r*Error: 46.0 bits
SimplifiedError: 46.0 bits
rmApplied add-sqr-sqrtError: 46.4 bits
Applied associate-/r*Error: 46.4 bits
SimplifiedError: 46.4 bits
rmApplied add-cube-cbrtError: 46.5 bits
Applied sqrt-prodError: 46.5 bits
Applied associate-/r*Error: 46.5 bits
SimplifiedError: 46.5 bits
Final simplificationError: 12.5 bits
herbie shell --seed 2020204
(FPCore (alpha beta i)
:name "Octave 3.8, jcobi/2"
:precision binary64
:pre (and (> alpha -1.0) (> beta -1.0) (> i 0.0))
(/ (+ (/ (/ (* (+ alpha beta) (- beta alpha)) (+ (+ alpha beta) (* 2.0 i))) (+ (+ (+ alpha beta) (* 2.0 i)) 2.0)) 1.0) 2.0))