0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\begin{array}{l}
\mathbf{if}\;im \le -3.115043688932172505718341038177959053028 \cdot 10^{78}:\\
\;\;\;\;\sqrt{\left(re - im\right) \cdot 2} \cdot 0.5\\
\mathbf{elif}\;im \le -6.768391877498059401608789761099910841632 \cdot 10^{-68}:\\
\;\;\;\;0.5 \cdot \sqrt{\left(\sqrt{re \cdot re + im \cdot im} + re\right) \cdot 2}\\
\mathbf{elif}\;im \le 1.14568583642485665409875286099617082253 \cdot 10^{-118}:\\
\;\;\;\;0.5 \cdot \sqrt{\left(2 \cdot re\right) \cdot 2}\\
\mathbf{elif}\;im \le 1.605778950101427917412655110579574821614 \cdot 10^{60}:\\
\;\;\;\;0.5 \cdot \sqrt{\frac{{im}^{2}}{\sqrt{{im}^{2} + re \cdot re} - re} \cdot 2}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{2 \cdot \left(re + im\right)} \cdot 0.5\\
\end{array}double f(double re, double im) {
double r241224 = 0.5;
double r241225 = 2.0;
double r241226 = re;
double r241227 = r241226 * r241226;
double r241228 = im;
double r241229 = r241228 * r241228;
double r241230 = r241227 + r241229;
double r241231 = sqrt(r241230);
double r241232 = r241231 + r241226;
double r241233 = r241225 * r241232;
double r241234 = sqrt(r241233);
double r241235 = r241224 * r241234;
return r241235;
}
double f(double re, double im) {
double r241236 = im;
double r241237 = -3.1150436889321725e+78;
bool r241238 = r241236 <= r241237;
double r241239 = re;
double r241240 = r241239 - r241236;
double r241241 = 2.0;
double r241242 = r241240 * r241241;
double r241243 = sqrt(r241242);
double r241244 = 0.5;
double r241245 = r241243 * r241244;
double r241246 = -6.768391877498059e-68;
bool r241247 = r241236 <= r241246;
double r241248 = r241239 * r241239;
double r241249 = r241236 * r241236;
double r241250 = r241248 + r241249;
double r241251 = sqrt(r241250);
double r241252 = r241251 + r241239;
double r241253 = r241252 * r241241;
double r241254 = sqrt(r241253);
double r241255 = r241244 * r241254;
double r241256 = 1.1456858364248567e-118;
bool r241257 = r241236 <= r241256;
double r241258 = 2.0;
double r241259 = r241258 * r241239;
double r241260 = r241259 * r241241;
double r241261 = sqrt(r241260);
double r241262 = r241244 * r241261;
double r241263 = 1.605778950101428e+60;
bool r241264 = r241236 <= r241263;
double r241265 = pow(r241236, r241258);
double r241266 = r241265 + r241248;
double r241267 = sqrt(r241266);
double r241268 = r241267 - r241239;
double r241269 = r241265 / r241268;
double r241270 = r241269 * r241241;
double r241271 = sqrt(r241270);
double r241272 = r241244 * r241271;
double r241273 = r241239 + r241236;
double r241274 = r241241 * r241273;
double r241275 = sqrt(r241274);
double r241276 = r241275 * r241244;
double r241277 = r241264 ? r241272 : r241276;
double r241278 = r241257 ? r241262 : r241277;
double r241279 = r241247 ? r241255 : r241278;
double r241280 = r241238 ? r241245 : r241279;
return r241280;
}




Bits error versus re




Bits error versus im
Results
| Original | 38.4 |
|---|---|
| Target | 33.3 |
| Herbie | 23.5 |
if im < -3.1150436889321725e+78Initial program 48.9
rmApplied add-sqr-sqrt48.9
Applied sqrt-prod49.0
Simplified49.0
Simplified49.0
Taylor expanded around -inf 11.8
if -3.1150436889321725e+78 < im < -6.768391877498059e-68Initial program 22.5
if -6.768391877498059e-68 < im < 1.1456858364248567e-118Initial program 39.1
rmApplied add-sqr-sqrt39.1
Applied sqrt-prod40.0
Simplified40.0
Simplified40.0
Taylor expanded around 0 36.9
Simplified36.9
if 1.1456858364248567e-118 < im < 1.605778950101428e+60Initial program 24.4
rmApplied flip-+33.4
Simplified24.6
Simplified24.6
if 1.605778950101428e+60 < im Initial program 47.1
rmApplied add-sqr-sqrt47.1
Applied sqrt-prod47.1
Simplified47.1
Simplified47.1
Taylor expanded around inf 11.1
Final simplification23.5
herbie shell --seed 2019179
(FPCore (re im)
:name "math.sqrt on complex, real part"
:herbie-target
(if (< re 0.0) (* 0.5 (* (sqrt 2.0) (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)))))