\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}\;\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} \le -0.99998172913822192:\\
\;\;\;\;\frac{\left(2 \cdot \frac{1}{\alpha} + 8 \cdot \frac{1}{{\alpha}^{3}}\right) - 4 \cdot \frac{1}{{\alpha}^{2}}}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\log \left(e^{\left(\alpha + \beta\right) \cdot \frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2 \cdot i}}{\left(\left(\alpha + \beta\right) + 2 \cdot i\right) + 2} + 1}\right)}{2}\\
\end{array}double f(double alpha, double beta, double i) {
double r155112 = alpha;
double r155113 = beta;
double r155114 = r155112 + r155113;
double r155115 = r155113 - r155112;
double r155116 = r155114 * r155115;
double r155117 = 2.0;
double r155118 = i;
double r155119 = r155117 * r155118;
double r155120 = r155114 + r155119;
double r155121 = r155116 / r155120;
double r155122 = r155120 + r155117;
double r155123 = r155121 / r155122;
double r155124 = 1.0;
double r155125 = r155123 + r155124;
double r155126 = r155125 / r155117;
return r155126;
}
double f(double alpha, double beta, double i) {
double r155127 = alpha;
double r155128 = beta;
double r155129 = r155127 + r155128;
double r155130 = r155128 - r155127;
double r155131 = r155129 * r155130;
double r155132 = 2.0;
double r155133 = i;
double r155134 = r155132 * r155133;
double r155135 = r155129 + r155134;
double r155136 = r155131 / r155135;
double r155137 = r155135 + r155132;
double r155138 = r155136 / r155137;
double r155139 = -0.9999817291382219;
bool r155140 = r155138 <= r155139;
double r155141 = 1.0;
double r155142 = r155141 / r155127;
double r155143 = r155132 * r155142;
double r155144 = 8.0;
double r155145 = 3.0;
double r155146 = pow(r155127, r155145);
double r155147 = r155141 / r155146;
double r155148 = r155144 * r155147;
double r155149 = r155143 + r155148;
double r155150 = 4.0;
double r155151 = 2.0;
double r155152 = pow(r155127, r155151);
double r155153 = r155141 / r155152;
double r155154 = r155150 * r155153;
double r155155 = r155149 - r155154;
double r155156 = r155155 / r155132;
double r155157 = r155130 / r155135;
double r155158 = r155157 / r155137;
double r155159 = r155129 * r155158;
double r155160 = 1.0;
double r155161 = r155159 + r155160;
double r155162 = exp(r155161);
double r155163 = log(r155162);
double r155164 = r155163 / r155132;
double r155165 = r155140 ? r155156 : r155164;
return r155165;
}



Bits error versus alpha



Bits error versus beta



Bits error versus i
Results
if (/ (/ (* (+ alpha beta) (- beta alpha)) (+ (+ alpha beta) (* 2.0 i))) (+ (+ (+ alpha beta) (* 2.0 i)) 2.0)) < -0.9999817291382219Initial program 62.3
Taylor expanded around inf 32.2
if -0.9999817291382219 < (/ (/ (* (+ alpha beta) (- beta alpha)) (+ (+ alpha beta) (* 2.0 i))) (+ (+ (+ alpha beta) (* 2.0 i)) 2.0)) Initial program 12.4
rmApplied *-un-lft-identity12.4
Applied *-un-lft-identity12.4
Applied times-frac0.0
Applied times-frac0.0
Simplified0.0
rmApplied add-log-exp0.0
Applied add-log-exp0.0
Applied sum-log0.0
Simplified0.0
Final simplification7.2
herbie shell --seed 2020083
(FPCore (alpha beta i)
:name "Octave 3.8, jcobi/2"
:precision binary64
:pre (and (> alpha -1) (> beta -1) (> i 0.0))
(/ (+ (/ (/ (* (+ alpha beta) (- beta alpha)) (+ (+ alpha beta) (* 2 i))) (+ (+ (+ alpha beta) (* 2 i)) 2)) 1) 2))