\frac{\log \left(\sqrt{re \cdot re + im \cdot im}\right)}{\log 10}\frac{1}{\sqrt{\log 10}} \cdot \left(\frac{1}{\sqrt{\log 10}} \cdot \log \left(\mathsf{hypot}\left(re, im\right)\right)\right)double f(double re, double im) {
double r1285016 = re;
double r1285017 = r1285016 * r1285016;
double r1285018 = im;
double r1285019 = r1285018 * r1285018;
double r1285020 = r1285017 + r1285019;
double r1285021 = sqrt(r1285020);
double r1285022 = log(r1285021);
double r1285023 = 10.0;
double r1285024 = log(r1285023);
double r1285025 = r1285022 / r1285024;
return r1285025;
}
double f(double re, double im) {
double r1285026 = 1.0;
double r1285027 = 10.0;
double r1285028 = log(r1285027);
double r1285029 = sqrt(r1285028);
double r1285030 = r1285026 / r1285029;
double r1285031 = re;
double r1285032 = im;
double r1285033 = hypot(r1285031, r1285032);
double r1285034 = log(r1285033);
double r1285035 = r1285030 * r1285034;
double r1285036 = r1285030 * r1285035;
return r1285036;
}



Bits error versus re



Bits error versus im
Results
Initial program 31.9
Simplified0.6
rmApplied add-sqr-sqrt0.6
Applied pow10.6
Applied log-pow0.6
Applied times-frac0.5
rmApplied div-inv0.4
Final simplification0.4
herbie shell --seed 2019179 +o rules:numerics
(FPCore (re im)
:name "math.log10 on complex, real part"
(/ (log (sqrt (+ (* re re) (* im im)))) (log 10.0)))