math.log10 on complex, real part

Average Error: 32.3 → 0.3

Time: 4.9s

Precision: 64

Math

\[\frac{\log \left(\sqrt{re \cdot re + im \cdot im}\right)}{\log 10}\]

↓

\[\frac{1}{\sqrt{\log 10}} \cdot \log \left({\left(\mathsf{hypot}\left(re, im\right)\right)}^{\left(\frac{1}{\sqrt{\log 10}}\right)}\right)\]

C

double f(double re, double im) {
        double r100486 = re;
        double r100487 = r100486 * r100486;
        double r100488 = im;
        double r100489 = r100488 * r100488;
        double r100490 = r100487 + r100489;
        double r100491 = sqrt(r100490);
        double r100492 = log(r100491);
        double r100493 = 10.0;
        double r100494 = log(r100493);
        double r100495 = r100492 / r100494;
        return r100495;
}

↓

double f(double re, double im) {
        double r100496 = 1.0;
        double r100497 = 10.0;
        double r100498 = log(r100497);
        double r100499 = sqrt(r100498);
        double r100500 = r100496 / r100499;
        double r100501 = re;
        double r100502 = im;
        double r100503 = hypot(r100501, r100502);
        double r100504 = pow(r100503, r100500);
        double r100505 = log(r100504);
        double r100506 = r100500 * r100505;
        return r100506;
}

Error

Bits error versus re

Bits error versus im

Derivation

1. Initial program 32.3

   \[\frac{\log \left(\sqrt{re \cdot re + im \cdot im}\right)}{\log 10}\]
2. Using strategy rm

3. Applied *-un-lft-identity 32.3

   \[\leadsto \frac{\log \left(\sqrt{\color{blue}{1 \cdot \left(re \cdot re + im \cdot im\right)}}\right)}{\log 10}\]

4. Applied sqrt-prod 32.3

   \[\leadsto \frac{\log \color{blue}{\left(\sqrt{1} \cdot \sqrt{re \cdot re + im \cdot im}\right)}}{\log 10}\]

5. Simplified 32.3

   \[\leadsto \frac{\log \left(\color{blue}{1} \cdot \sqrt{re \cdot re + im \cdot im}\right)}{\log 10}\]

6. Simplified 0.6

   \[\leadsto \frac{\log \left(1 \cdot \color{blue}{\mathsf{hypot}\left(re, im\right)}\right)}{\log 10}\]
7. Using strategy rm

8. Applied add-sqr-sqrt 0.6

   \[\leadsto \frac{\log \left(1 \cdot \mathsf{hypot}\left(re, im\right)\right)}{\color{blue}{\sqrt{\log 10} \cdot \sqrt{\log 10}}}\]

9. Applied pow1 0.6

   \[\leadsto \frac{\log \left(1 \cdot \color{blue}{{\left(\mathsf{hypot}\left(re, im\right)\right)}^{1}}\right)}{\sqrt{\log 10} \cdot \sqrt{\log 10}}\]

10. Applied pow1 0.6

    \[\leadsto \frac{\log \left(\color{blue}{{1}^{1}} \cdot {\left(\mathsf{hypot}\left(re, im\right)\right)}^{1}\right)}{\sqrt{\log 10} \cdot \sqrt{\log 10}}\]

11. Applied pow-prod-down 0.6

    \[\leadsto \frac{\log \color{blue}{\left({\left(1 \cdot \mathsf{hypot}\left(re, im\right)\right)}^{1}\right)}}{\sqrt{\log 10} \cdot \sqrt{\log 10}}\]

12. Applied log-pow 0.6

    \[\leadsto \frac{\color{blue}{1 \cdot \log \left(1 \cdot \mathsf{hypot}\left(re, im\right)\right)}}{\sqrt{\log 10} \cdot \sqrt{\log 10}}\]

13. Applied times-frac 0.5

    \[\leadsto \color{blue}{\frac{1}{\sqrt{\log 10}} \cdot \frac{\log \left(1 \cdot \mathsf{hypot}\left(re, im\right)\right)}{\sqrt{\log 10}}}\]
14. Using strategy rm

15. Applied add-log-exp 0.5

    \[\leadsto \frac{1}{\sqrt{\log 10}} \cdot \color{blue}{\log \left(e^{\frac{\log \left(1 \cdot \mathsf{hypot}\left(re, im\right)\right)}{\sqrt{\log 10}}}\right)}\]

16. Simplified 0.3

    \[\leadsto \frac{1}{\sqrt{\log 10}} \cdot \log \color{blue}{\left({\left(\mathsf{hypot}\left(re, im\right)\right)}^{\left(\frac{1}{\sqrt{\log 10}}\right)}\right)}\]

17. Final simplification 0.3

    \[\leadsto \frac{1}{\sqrt{\log 10}} \cdot \log \left({\left(\mathsf{hypot}\left(re, im\right)\right)}^{\left(\frac{1}{\sqrt{\log 10}}\right)}\right)\]

Reproduce

herbie shell --seed 2020056 +o rules:numerics
(FPCore (re im)
  :name "math.log10 on complex, real part"
  :precision binary64
  (/ (log (sqrt (+ (* re re) (* im im)))) (log 10)))