0.5 \cdot \sqrt{2.0 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\begin{array}{l}
\mathbf{if}\;re \le -3.2601941440528353 \cdot 10^{+122}:\\
\;\;\;\;\frac{\left|im\right| \cdot \sqrt{2.0}}{\sqrt{-2 \cdot re}} \cdot 0.5\\
\mathbf{elif}\;re \le -3.1198242249434154 \cdot 10^{-257}:\\
\;\;\;\;0.5 \cdot \left(\frac{1}{\sqrt{\sqrt{re \cdot re + im \cdot im} - re}} \cdot \left(\sqrt{\sqrt{2.0}} \cdot \left(\left|im\right| \cdot \sqrt{\sqrt{2.0}}\right)\right)\right)\\
\mathbf{elif}\;re \le 9.299865300702547 \cdot 10^{+104}:\\
\;\;\;\;0.5 \cdot \sqrt{2.0 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \sqrt{\left(re + re\right) \cdot 2.0}\\
\end{array}double f(double re, double im) {
double r5013183 = 0.5;
double r5013184 = 2.0;
double r5013185 = re;
double r5013186 = r5013185 * r5013185;
double r5013187 = im;
double r5013188 = r5013187 * r5013187;
double r5013189 = r5013186 + r5013188;
double r5013190 = sqrt(r5013189);
double r5013191 = r5013190 + r5013185;
double r5013192 = r5013184 * r5013191;
double r5013193 = sqrt(r5013192);
double r5013194 = r5013183 * r5013193;
return r5013194;
}
double f(double re, double im) {
double r5013195 = re;
double r5013196 = -3.2601941440528353e+122;
bool r5013197 = r5013195 <= r5013196;
double r5013198 = im;
double r5013199 = fabs(r5013198);
double r5013200 = 2.0;
double r5013201 = sqrt(r5013200);
double r5013202 = r5013199 * r5013201;
double r5013203 = -2.0;
double r5013204 = r5013203 * r5013195;
double r5013205 = sqrt(r5013204);
double r5013206 = r5013202 / r5013205;
double r5013207 = 0.5;
double r5013208 = r5013206 * r5013207;
double r5013209 = -3.1198242249434154e-257;
bool r5013210 = r5013195 <= r5013209;
double r5013211 = 1.0;
double r5013212 = r5013195 * r5013195;
double r5013213 = r5013198 * r5013198;
double r5013214 = r5013212 + r5013213;
double r5013215 = sqrt(r5013214);
double r5013216 = r5013215 - r5013195;
double r5013217 = sqrt(r5013216);
double r5013218 = r5013211 / r5013217;
double r5013219 = sqrt(r5013201);
double r5013220 = r5013199 * r5013219;
double r5013221 = r5013219 * r5013220;
double r5013222 = r5013218 * r5013221;
double r5013223 = r5013207 * r5013222;
double r5013224 = 9.299865300702547e+104;
bool r5013225 = r5013195 <= r5013224;
double r5013226 = r5013215 + r5013195;
double r5013227 = r5013200 * r5013226;
double r5013228 = sqrt(r5013227);
double r5013229 = r5013207 * r5013228;
double r5013230 = r5013195 + r5013195;
double r5013231 = r5013230 * r5013200;
double r5013232 = sqrt(r5013231);
double r5013233 = r5013207 * r5013232;
double r5013234 = r5013225 ? r5013229 : r5013233;
double r5013235 = r5013210 ? r5013223 : r5013234;
double r5013236 = r5013197 ? r5013208 : r5013235;
return r5013236;
}




Bits error versus re




Bits error versus im
Results
| Original | 37.5 |
|---|---|
| Target | 32.4 |
| Herbie | 16.5 |
if re < -3.2601941440528353e+122Initial program 61.2
rmApplied flip-+61.2
Applied associate-*r/61.2
Applied sqrt-div61.2
Simplified45.3
rmApplied sqrt-prod45.4
Simplified44.2
Taylor expanded around -inf 8.8
if -3.2601941440528353e+122 < re < -3.1198242249434154e-257Initial program 39.1
rmApplied flip-+39.1
Applied associate-*r/39.1
Applied sqrt-div39.2
Simplified28.7
rmApplied sqrt-prod28.8
Simplified18.9
rmApplied add-sqr-sqrt18.9
Applied sqrt-prod19.0
Applied associate-*l*18.9
rmApplied div-inv19.0
if -3.1198242249434154e-257 < re < 9.299865300702547e+104Initial program 20.4
if 9.299865300702547e+104 < re Initial program 51.4
Taylor expanded around inf 9.7
Final simplification16.5
herbie shell --seed 2019152
(FPCore (re im)
:name "math.sqrt on complex, real part"
:herbie-target
(if (< re 0) (* 0.5 (* (sqrt 2) (sqrt (/ (* im im) (- (sqrt (+ (* re re) (* im im))) re))))) (* 0.5 (sqrt (* 2.0 (+ (sqrt (+ (* re re) (* im im))) re)))))
(* 0.5 (sqrt (* 2.0 (+ (sqrt (+ (* re re) (* im im))) re)))))