\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 r673606 = re;
double r673607 = r673606 * r673606;
double r673608 = im;
double r673609 = r673608 * r673608;
double r673610 = r673607 + r673609;
double r673611 = sqrt(r673610);
double r673612 = log(r673611);
double r673613 = 10.0;
double r673614 = log(r673613);
double r673615 = r673612 / r673614;
return r673615;
}
double f(double re, double im) {
double r673616 = 1.0;
double r673617 = 10.0;
double r673618 = log(r673617);
double r673619 = sqrt(r673618);
double r673620 = r673616 / r673619;
double r673621 = re;
double r673622 = im;
double r673623 = hypot(r673621, r673622);
double r673624 = log(r673623);
double r673625 = r673620 * r673624;
double r673626 = r673620 * r673625;
return r673626;
}



Bits error versus re



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