0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\begin{array}{l}
\mathbf{if}\;im \le -9.439166578523512274653878650896323414939 \cdot 10^{-151}:\\
\;\;\;\;0.5 \cdot \sqrt{\frac{2 \cdot \left(im \cdot im\right)}{\sqrt{im \cdot im + re \cdot re} - re}}\\
\mathbf{elif}\;im \le -4.032427712052753832724847291903676224469 \cdot 10^{-269}:\\
\;\;\;\;0.5 \cdot \sqrt{4 \cdot re}\\
\mathbf{elif}\;im \le 3.878426650942859959181735975108696171678 \cdot 10^{-204}:\\
\;\;\;\;0\\
\mathbf{elif}\;im \le 1.718871584992604186570063234119900444233 \cdot 10^{-165}:\\
\;\;\;\;0.5 \cdot \sqrt{4 \cdot re}\\
\mathbf{elif}\;im \le 1.372553746184739962861800392089830190296 \cdot 10^{91}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(\left(\sqrt{\sqrt{\sqrt{im \cdot im + re \cdot re}}} \cdot \sqrt{\sqrt{\sqrt{im \cdot im + re \cdot re}}}\right) \cdot \left(\sqrt{\sqrt{\sqrt{im \cdot im + re \cdot re}}} \cdot \sqrt{\sqrt{\sqrt{im \cdot im + re \cdot re}}}\right) + re\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\left(im + re\right) \cdot 2} \cdot 0.5\\
\end{array}double f(double re, double im) {
double r8857231 = 0.5;
double r8857232 = 2.0;
double r8857233 = re;
double r8857234 = r8857233 * r8857233;
double r8857235 = im;
double r8857236 = r8857235 * r8857235;
double r8857237 = r8857234 + r8857236;
double r8857238 = sqrt(r8857237);
double r8857239 = r8857238 + r8857233;
double r8857240 = r8857232 * r8857239;
double r8857241 = sqrt(r8857240);
double r8857242 = r8857231 * r8857241;
return r8857242;
}
double f(double re, double im) {
double r8857243 = im;
double r8857244 = -9.439166578523512e-151;
bool r8857245 = r8857243 <= r8857244;
double r8857246 = 0.5;
double r8857247 = 2.0;
double r8857248 = r8857243 * r8857243;
double r8857249 = r8857247 * r8857248;
double r8857250 = re;
double r8857251 = r8857250 * r8857250;
double r8857252 = r8857248 + r8857251;
double r8857253 = sqrt(r8857252);
double r8857254 = r8857253 - r8857250;
double r8857255 = r8857249 / r8857254;
double r8857256 = sqrt(r8857255);
double r8857257 = r8857246 * r8857256;
double r8857258 = -4.032427712052754e-269;
bool r8857259 = r8857243 <= r8857258;
double r8857260 = 4.0;
double r8857261 = r8857260 * r8857250;
double r8857262 = sqrt(r8857261);
double r8857263 = r8857246 * r8857262;
double r8857264 = 3.87842665094286e-204;
bool r8857265 = r8857243 <= r8857264;
double r8857266 = 0.0;
double r8857267 = 1.7188715849926042e-165;
bool r8857268 = r8857243 <= r8857267;
double r8857269 = 1.37255374618474e+91;
bool r8857270 = r8857243 <= r8857269;
double r8857271 = sqrt(r8857253);
double r8857272 = sqrt(r8857271);
double r8857273 = r8857272 * r8857272;
double r8857274 = r8857273 * r8857273;
double r8857275 = r8857274 + r8857250;
double r8857276 = r8857247 * r8857275;
double r8857277 = sqrt(r8857276);
double r8857278 = r8857246 * r8857277;
double r8857279 = r8857243 + r8857250;
double r8857280 = r8857279 * r8857247;
double r8857281 = sqrt(r8857280);
double r8857282 = r8857281 * r8857246;
double r8857283 = r8857270 ? r8857278 : r8857282;
double r8857284 = r8857268 ? r8857263 : r8857283;
double r8857285 = r8857265 ? r8857266 : r8857284;
double r8857286 = r8857259 ? r8857263 : r8857285;
double r8857287 = r8857245 ? r8857257 : r8857286;
return r8857287;
}




Bits error versus re




Bits error versus im
Results
| Original | 37.9 |
|---|---|
| Target | 32.7 |
| Herbie | 31.1 |
if im < -9.439166578523512e-151Initial program 36.2
rmApplied flip-+41.5
Applied associate-*r/41.5
Simplified36.5
if -9.439166578523512e-151 < im < -4.032427712052754e-269 or 3.87842665094286e-204 < im < 1.7188715849926042e-165Initial program 41.8
Taylor expanded around inf 36.5
if -4.032427712052754e-269 < im < 3.87842665094286e-204Initial program 42.8
Taylor expanded around -inf 49.2
if 1.7188715849926042e-165 < im < 1.37255374618474e+91Initial program 25.6
rmApplied add-sqr-sqrt25.6
Applied sqrt-prod25.7
rmApplied add-sqr-sqrt25.7
Applied sqrt-prod25.7
Applied sqrt-prod25.8
Applied add-sqr-sqrt25.8
Applied sqrt-prod25.8
Applied sqrt-prod26.0
Applied swap-sqr26.0
if 1.37255374618474e+91 < im Initial program 49.8
Taylor expanded around 0 10.2
Final simplification31.1
herbie shell --seed 2019172
(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)))))