\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 \le 3.96716655991070271 \cdot 10^{139}:\\
\;\;\;\;\frac{\log \left(e^{\frac{\alpha + \beta}{\sqrt{\left(\left(\alpha + \beta\right) + 2 \cdot i\right) + 2}} \cdot \frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2 \cdot i}}{\sqrt{\left(\left(\alpha + \beta\right) + 2 \cdot i\right) + 2}}}\right) + 1}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(2 \cdot \frac{1}{\alpha} + 8 \cdot \frac{1}{{\alpha}^{3}}\right) - 4 \cdot \frac{1}{{\alpha}^{2}}}{2}\\
\end{array}double f(double alpha, double beta, double i) {
double r125155 = alpha;
double r125156 = beta;
double r125157 = r125155 + r125156;
double r125158 = r125156 - r125155;
double r125159 = r125157 * r125158;
double r125160 = 2.0;
double r125161 = i;
double r125162 = r125160 * r125161;
double r125163 = r125157 + r125162;
double r125164 = r125159 / r125163;
double r125165 = r125163 + r125160;
double r125166 = r125164 / r125165;
double r125167 = 1.0;
double r125168 = r125166 + r125167;
double r125169 = r125168 / r125160;
return r125169;
}
double f(double alpha, double beta, double i) {
double r125170 = alpha;
double r125171 = 3.9671665599107027e+139;
bool r125172 = r125170 <= r125171;
double r125173 = beta;
double r125174 = r125170 + r125173;
double r125175 = 2.0;
double r125176 = i;
double r125177 = r125175 * r125176;
double r125178 = r125174 + r125177;
double r125179 = r125178 + r125175;
double r125180 = sqrt(r125179);
double r125181 = r125174 / r125180;
double r125182 = r125173 - r125170;
double r125183 = r125182 / r125178;
double r125184 = r125183 / r125180;
double r125185 = r125181 * r125184;
double r125186 = exp(r125185);
double r125187 = log(r125186);
double r125188 = 1.0;
double r125189 = r125187 + r125188;
double r125190 = r125189 / r125175;
double r125191 = 1.0;
double r125192 = r125191 / r125170;
double r125193 = r125175 * r125192;
double r125194 = 8.0;
double r125195 = 3.0;
double r125196 = pow(r125170, r125195);
double r125197 = r125191 / r125196;
double r125198 = r125194 * r125197;
double r125199 = r125193 + r125198;
double r125200 = 4.0;
double r125201 = 2.0;
double r125202 = pow(r125170, r125201);
double r125203 = r125191 / r125202;
double r125204 = r125200 * r125203;
double r125205 = r125199 - r125204;
double r125206 = r125205 / r125175;
double r125207 = r125172 ? r125190 : r125206;
return r125207;
}



Bits error versus alpha



Bits error versus beta



Bits error versus i
Results
if alpha < 3.9671665599107027e+139Initial program 15.6
rmApplied add-sqr-sqrt15.6
Applied *-un-lft-identity15.6
Applied times-frac4.8
Applied times-frac4.8
Simplified4.8
rmApplied add-log-exp4.8
if 3.9671665599107027e+139 < alpha Initial program 62.2
Taylor expanded around inf 40.7
Final simplification11.4
herbie shell --seed 2020024
(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))