\frac{\tan^{-1}_* \frac{im}{re} \cdot \log base - \log \left(\sqrt{re \cdot re + im \cdot im}\right) \cdot 0.0}{\log base \cdot \log base + 0.0 \cdot 0.0}\frac{-\frac{\tan^{-1}_* \frac{im}{re}}{\log \left(\sqrt[3]{base}\right)}}{-\left(2 + 1\right)}double f(double re, double im, double base) {
double r47687 = im;
double r47688 = re;
double r47689 = atan2(r47687, r47688);
double r47690 = base;
double r47691 = log(r47690);
double r47692 = r47689 * r47691;
double r47693 = r47688 * r47688;
double r47694 = r47687 * r47687;
double r47695 = r47693 + r47694;
double r47696 = sqrt(r47695);
double r47697 = log(r47696);
double r47698 = 0.0;
double r47699 = r47697 * r47698;
double r47700 = r47692 - r47699;
double r47701 = r47691 * r47691;
double r47702 = r47698 * r47698;
double r47703 = r47701 + r47702;
double r47704 = r47700 / r47703;
return r47704;
}
double f(double re, double im, double base) {
double r47705 = im;
double r47706 = re;
double r47707 = atan2(r47705, r47706);
double r47708 = base;
double r47709 = cbrt(r47708);
double r47710 = log(r47709);
double r47711 = r47707 / r47710;
double r47712 = -r47711;
double r47713 = 2.0;
double r47714 = 1.0;
double r47715 = r47713 + r47714;
double r47716 = -r47715;
double r47717 = r47712 / r47716;
return r47717;
}



Bits error versus re



Bits error versus im



Bits error versus base
Results
Initial program 31.9
Taylor expanded around inf 0.3
rmApplied add-cube-cbrt0.3
Applied add-cube-cbrt0.3
Applied times-frac0.3
Applied log-prod0.4
Simplified0.4
Simplified0.4
rmApplied pow10.4
Applied pow-flip0.4
Applied log-pow0.4
Applied distribute-rgt-out0.4
Applied associate-/r*0.4
Final simplification0.4
herbie shell --seed 2020033
(FPCore (re im base)
:name "math.log/2 on complex, imaginary part"
:precision binary64
(/ (- (* (atan2 im re) (log base)) (* (log (sqrt (+ (* re re) (* im im)))) 0.0)) (+ (* (log base) (log base)) (* 0.0 0.0))))