\frac{\log \left(\sqrt{re \cdot re + im \cdot im}\right) \cdot \log base + \tan^{-1}_* \frac{im}{re} \cdot 0.0}{\log base \cdot \log base + 0.0 \cdot 0.0}\left(\frac{\frac{\mathsf{fma}\left(\log \left(\mathsf{hypot}\left(re, im\right)\right), \log base, \tan^{-1}_* \frac{im}{re} \cdot 0.0\right)}{2}}{\mathsf{fma}\left(-{0.0}^{3}, 0.0, {\left(\log base\right)}^{4}\right)} \cdot 2\right) \cdot \left(\log base \cdot \log base - 0.0 \cdot 0.0\right)double code(double re, double im, double base) {
return (((log(sqrt(((re * re) + (im * im)))) * log(base)) + (atan2(im, re) * 0.0)) / ((log(base) * log(base)) + (0.0 * 0.0)));
}
double code(double re, double im, double base) {
return ((((fma(log(hypot(re, im)), log(base), (atan2(im, re) * 0.0)) / 2.0) / fma(-pow(0.0, 3.0), 0.0, pow(log(base), 4.0))) * 2.0) * ((log(base) * log(base)) - (0.0 * 0.0)));
}



Bits error versus re



Bits error versus im



Bits error versus base
Results
Initial program 31.5
rmApplied hypot-def0.5
rmApplied flip-+0.5
Applied associate-/r/0.6
Simplified0.6
Final simplification0.6
herbie shell --seed 2020106 +o rules:numerics
(FPCore (re im base)
:name "math.log/2 on complex, real part"
:precision binary64
(/ (+ (* (log (sqrt (+ (* re re) (* im im)))) (log base)) (* (atan2 im re) 0.0)) (+ (* (log base) (log base)) (* 0.0 0.0))))