\frac{\log \left(\sqrt{re \cdot re + im \cdot im}\right)}{\log 10}\frac{1}{\sqrt{\log 10}} \cdot \left(\log \left(\mathsf{hypot}\left(re, im\right)\right) \cdot \frac{1}{\sqrt{\log 10}}\right)double f(double re, double im) {
double r39788 = re;
double r39789 = r39788 * r39788;
double r39790 = im;
double r39791 = r39790 * r39790;
double r39792 = r39789 + r39791;
double r39793 = sqrt(r39792);
double r39794 = log(r39793);
double r39795 = 10.0;
double r39796 = log(r39795);
double r39797 = r39794 / r39796;
return r39797;
}
double f(double re, double im) {
double r39798 = 1.0;
double r39799 = 10.0;
double r39800 = log(r39799);
double r39801 = sqrt(r39800);
double r39802 = r39798 / r39801;
double r39803 = re;
double r39804 = im;
double r39805 = hypot(r39803, r39804);
double r39806 = log(r39805);
double r39807 = r39806 * r39802;
double r39808 = r39802 * r39807;
return r39808;
}



Bits error versus re



Bits error versus im
Results
Initial program 31.8
rmApplied hypot-def0.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 2020059 +o rules:numerics
(FPCore (re im)
:name "math.log10 on complex, real part"
:precision binary64
(/ (log (sqrt (+ (* re re) (* im im)))) (log 10)))