\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 r1197820 = re;
double r1197821 = r1197820 * r1197820;
double r1197822 = im;
double r1197823 = r1197822 * r1197822;
double r1197824 = r1197821 + r1197823;
double r1197825 = sqrt(r1197824);
double r1197826 = log(r1197825);
double r1197827 = 10.0;
double r1197828 = log(r1197827);
double r1197829 = r1197826 / r1197828;
return r1197829;
}
double f(double re, double im) {
double r1197830 = 1.0;
double r1197831 = 10.0;
double r1197832 = log(r1197831);
double r1197833 = sqrt(r1197832);
double r1197834 = r1197830 / r1197833;
double r1197835 = re;
double r1197836 = im;
double r1197837 = hypot(r1197835, r1197836);
double r1197838 = log(r1197837);
double r1197839 = r1197834 * r1197838;
double r1197840 = r1197834 * r1197839;
return r1197840;
}



Bits error versus re



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