\frac{\log \left(\sqrt{re \cdot re + im \cdot im}\right)}{\log 10}\begin{array}{l}
\mathbf{if}\;re \le -2.8015950926867568 \cdot 10^{144}:\\
\;\;\;\;\frac{1}{\sqrt{\log 10}} \cdot \log \left({\left(\frac{-1}{re}\right)}^{\left(-\sqrt{\frac{1}{\log 10}}\right)}\right)\\
\mathbf{elif}\;re \le -2.603232334857776 \cdot 10^{-212}:\\
\;\;\;\;\frac{1}{\sqrt{\log 10}} \cdot \log \left({\left(\sqrt{re \cdot re + im \cdot im}\right)}^{\left(\frac{1}{\sqrt{\log 10}}\right)}\right)\\
\mathbf{elif}\;re \le -6.08456462896641645 \cdot 10^{-228}:\\
\;\;\;\;-\frac{\log \left(\frac{-1}{re}\right)}{\log 10}\\
\mathbf{elif}\;re \le 4.4853367152010175 \cdot 10^{105}:\\
\;\;\;\;\frac{1}{\sqrt{\log 10}} \cdot \log \left({\left(\sqrt{re \cdot re + im \cdot im}\right)}^{\left(\frac{1}{\sqrt{\log 10}}\right)}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\sqrt{\log 10}} \cdot \log \left({re}^{\left(\frac{1}{\sqrt{\log 10}}\right)}\right)\\
\end{array}double f(double re, double im) {
double r46886 = re;
double r46887 = r46886 * r46886;
double r46888 = im;
double r46889 = r46888 * r46888;
double r46890 = r46887 + r46889;
double r46891 = sqrt(r46890);
double r46892 = log(r46891);
double r46893 = 10.0;
double r46894 = log(r46893);
double r46895 = r46892 / r46894;
return r46895;
}
double f(double re, double im) {
double r46896 = re;
double r46897 = -2.8015950926867568e+144;
bool r46898 = r46896 <= r46897;
double r46899 = 1.0;
double r46900 = 10.0;
double r46901 = log(r46900);
double r46902 = sqrt(r46901);
double r46903 = r46899 / r46902;
double r46904 = -1.0;
double r46905 = r46904 / r46896;
double r46906 = r46899 / r46901;
double r46907 = sqrt(r46906);
double r46908 = -r46907;
double r46909 = pow(r46905, r46908);
double r46910 = log(r46909);
double r46911 = r46903 * r46910;
double r46912 = -2.6032323348577763e-212;
bool r46913 = r46896 <= r46912;
double r46914 = r46896 * r46896;
double r46915 = im;
double r46916 = r46915 * r46915;
double r46917 = r46914 + r46916;
double r46918 = sqrt(r46917);
double r46919 = pow(r46918, r46903);
double r46920 = log(r46919);
double r46921 = r46903 * r46920;
double r46922 = -6.084564628966416e-228;
bool r46923 = r46896 <= r46922;
double r46924 = log(r46905);
double r46925 = r46924 / r46901;
double r46926 = -r46925;
double r46927 = 4.4853367152010175e+105;
bool r46928 = r46896 <= r46927;
double r46929 = pow(r46896, r46903);
double r46930 = log(r46929);
double r46931 = r46903 * r46930;
double r46932 = r46928 ? r46921 : r46931;
double r46933 = r46923 ? r46926 : r46932;
double r46934 = r46913 ? r46921 : r46933;
double r46935 = r46898 ? r46911 : r46934;
return r46935;
}



Bits error versus re



Bits error versus im
Results
if re < -2.8015950926867568e+144Initial program 60.9
rmApplied add-sqr-sqrt60.9
Applied pow160.9
Applied log-pow60.9
Applied times-frac60.9
rmApplied div-inv60.9
rmApplied add-log-exp60.9
Simplified60.9
Taylor expanded around -inf 7.0
Simplified6.9
if -2.8015950926867568e+144 < re < -2.6032323348577763e-212 or -6.084564628966416e-228 < re < 4.4853367152010175e+105Initial program 21.3
rmApplied add-sqr-sqrt21.3
Applied pow121.3
Applied log-pow21.3
Applied times-frac21.3
rmApplied div-inv21.1
rmApplied add-log-exp21.1
Simplified21.1
rmApplied pow121.1
if -2.6032323348577763e-212 < re < -6.084564628966416e-228Initial program 31.4
rmApplied add-sqr-sqrt31.4
Applied pow131.4
Applied log-pow31.4
Applied times-frac31.5
rmApplied div-inv31.4
Taylor expanded around -inf 49.3
Simplified49.3
if 4.4853367152010175e+105 < re Initial program 51.3
rmApplied add-sqr-sqrt51.3
Applied pow151.3
Applied log-pow51.3
Applied times-frac51.3
rmApplied div-inv51.3
rmApplied add-log-exp51.3
Simplified51.3
Taylor expanded around inf 8.2
Final simplification17.6
herbie shell --seed 2020045
(FPCore (re im)
:name "math.log10 on complex, real part"
:precision binary64
(/ (log (sqrt (+ (* re re) (* im im)))) (log 10)))