0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\begin{array}{l}
\mathbf{if}\;re \le -3.5187168670293087 \cdot 10^{168}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \frac{{im}^{2}}{-2 \cdot re}}\\
\mathbf{elif}\;re \le 4.41651637794876776 \cdot 10^{-304}:\\
\;\;\;\;0.5 \cdot \left(\sqrt{2} \cdot \left|\frac{\left|im\right|}{\sqrt{\sqrt{re \cdot re + im \cdot im} - re}}\right|\right)\\
\mathbf{elif}\;re \le 2.7618747866440439 \cdot 10^{122}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(\sqrt{\sqrt{re \cdot re + im \cdot im} \cdot \sqrt{re \cdot re + im \cdot im}} + re\right)}\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(2 \cdot re\right)}\\
\end{array}double f(double re, double im) {
double r320032 = 0.5;
double r320033 = 2.0;
double r320034 = re;
double r320035 = r320034 * r320034;
double r320036 = im;
double r320037 = r320036 * r320036;
double r320038 = r320035 + r320037;
double r320039 = sqrt(r320038);
double r320040 = r320039 + r320034;
double r320041 = r320033 * r320040;
double r320042 = sqrt(r320041);
double r320043 = r320032 * r320042;
return r320043;
}
double f(double re, double im) {
double r320044 = re;
double r320045 = -3.5187168670293087e+168;
bool r320046 = r320044 <= r320045;
double r320047 = 0.5;
double r320048 = 2.0;
double r320049 = im;
double r320050 = 2.0;
double r320051 = pow(r320049, r320050);
double r320052 = -2.0;
double r320053 = r320052 * r320044;
double r320054 = r320051 / r320053;
double r320055 = r320048 * r320054;
double r320056 = sqrt(r320055);
double r320057 = r320047 * r320056;
double r320058 = 4.416516377948768e-304;
bool r320059 = r320044 <= r320058;
double r320060 = sqrt(r320048);
double r320061 = fabs(r320049);
double r320062 = r320044 * r320044;
double r320063 = r320049 * r320049;
double r320064 = r320062 + r320063;
double r320065 = sqrt(r320064);
double r320066 = r320065 - r320044;
double r320067 = sqrt(r320066);
double r320068 = r320061 / r320067;
double r320069 = fabs(r320068);
double r320070 = r320060 * r320069;
double r320071 = r320047 * r320070;
double r320072 = 2.761874786644044e+122;
bool r320073 = r320044 <= r320072;
double r320074 = r320065 * r320065;
double r320075 = sqrt(r320074);
double r320076 = r320075 + r320044;
double r320077 = r320048 * r320076;
double r320078 = sqrt(r320077);
double r320079 = r320047 * r320078;
double r320080 = r320050 * r320044;
double r320081 = r320048 * r320080;
double r320082 = sqrt(r320081);
double r320083 = r320047 * r320082;
double r320084 = r320073 ? r320079 : r320083;
double r320085 = r320059 ? r320071 : r320084;
double r320086 = r320046 ? r320057 : r320085;
return r320086;
}




Bits error versus re




Bits error versus im
Results
| Original | 38.6 |
|---|---|
| Target | 33.1 |
| Herbie | 20.1 |
if re < -3.5187168670293087e+168Initial program 64.0
rmApplied flip-+64.0
Simplified49.8
Taylor expanded around -inf 30.8
if -3.5187168670293087e+168 < re < 4.416516377948768e-304Initial program 40.6
rmApplied flip-+40.4
Simplified30.4
rmApplied add-sqr-sqrt30.5
Applied add-sqr-sqrt30.5
Applied times-frac30.6
Simplified30.5
Simplified28.6
rmApplied sqrt-prod28.7
Simplified20.6
if 4.416516377948768e-304 < re < 2.761874786644044e+122Initial program 20.4
rmApplied add-sqr-sqrt20.4
if 2.761874786644044e+122 < re Initial program 57.1
rmApplied flip-+63.7
Simplified62.7
Taylor expanded around 0 9.6
Final simplification20.1
herbie shell --seed 2020065
(FPCore (re im)
:name "math.sqrt on complex, real part"
:precision binary64
:herbie-target
(if (< re 0.0) (* 0.5 (* (sqrt 2) (sqrt (/ (* im im) (- (sqrt (+ (* re re) (* im im))) re))))) (* 0.5 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))))
(* 0.5 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))))