qlog (example 3.10)

Average Error: 60.9 → 0.0

Time: 20.8s

Precision: 64

\[-1 \lt x \land x \lt 1\]

Math

\[\frac{\log \left(1 - x\right)}{\log \left(1 + x\right)}\]

↓

\[\frac{\mathsf{log1p}\left(-x\right)}{\mathsf{log1p}\left(x\right)}\]

C

double f(double x) {
        double r3371047 = 1.0;
        double r3371048 = x;
        double r3371049 = r3371047 - r3371048;
        double r3371050 = log(r3371049);
        double r3371051 = r3371047 + r3371048;
        double r3371052 = log(r3371051);
        double r3371053 = r3371050 / r3371052;
        return r3371053;
}

↓

double f(double x) {
        double r3371054 = x;
        double r3371055 = -r3371054;
        double r3371056 = log1p(r3371055);
        double r3371057 = log1p(r3371054);
        double r3371058 = r3371056 / r3371057;
        return r3371058;
}

Error

Bits error versus x

Target

Original	60.9
Target	0.3
Herbie	0.0

\[-\left(\left(\left(1 + x\right) + \frac{x \cdot x}{2}\right) + \frac{5}{12} \cdot {x}^{3}\right)\]

Derivation

1. Initial program 60.9

   \[\frac{\log \left(1 - x\right)}{\log \left(1 + x\right)}\]

2. Simplified 59.9

   \[\leadsto \color{blue}{\frac{\log \left(1 - x\right)}{\mathsf{log1p}\left(x\right)}}\]
3. Using strategy rm

4. Applied log1p-expm1-u 59.9

   \[\leadsto \frac{\color{blue}{\mathsf{log1p}\left(\mathsf{expm1}\left(\log \left(1 - x\right)\right)\right)}}{\mathsf{log1p}\left(x\right)}\]

5. Simplified 0.0

   \[\leadsto \frac{\mathsf{log1p}\left(\color{blue}{-x}\right)}{\mathsf{log1p}\left(x\right)}\]

6. Final simplification 0.0

   \[\leadsto \frac{\mathsf{log1p}\left(-x\right)}{\mathsf{log1p}\left(x\right)}\]

Reproduce

herbie shell --seed 2019158 +o rules:numerics
(FPCore (x)
  :name "qlog (example 3.10)"
  :pre (and (< -1 x) (< x 1))

  :herbie-target
  (- (+ (+ (+ 1 x) (/ (* x x) 2)) (* 5/12 (pow x 3))))

  (/ (log (- 1 x)) (log (+ 1 x))))