logq (problem 3.4.3)

Average Error: 58.6 → 0.0

Time: 5.5s

Precision: binary64

Cost: 13312

Math

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

↓

\[\mathsf{log1p}\left(\varepsilon \cdot \left(-\varepsilon\right)\right) + -2 \cdot \mathsf{log1p}\left(\varepsilon\right) \]

FPCore

(FPCore (eps) :precision binary64 (log (/ (- 1.0 eps) (+ 1.0 eps))))

↓

(FPCore (eps)
 :precision binary64
 (+ (log1p (* eps (- eps))) (* -2.0 (log1p eps))))

C

double code(double eps) {
	return log(((1.0 - eps) / (1.0 + eps)));
}

↓

double code(double eps) {
	return log1p((eps * -eps)) + (-2.0 * log1p(eps));
}

Java

public static double code(double eps) {
	return Math.log(((1.0 - eps) / (1.0 + eps)));
}

↓

public static double code(double eps) {
	return Math.log1p((eps * -eps)) + (-2.0 * Math.log1p(eps));
}

Python

def code(eps):
	return math.log(((1.0 - eps) / (1.0 + eps)))

↓

def code(eps):
	return math.log1p((eps * -eps)) + (-2.0 * math.log1p(eps))

Julia

function code(eps)
	return log(Float64(Float64(1.0 - eps) / Float64(1.0 + eps)))
end

↓

function code(eps)
	return Float64(log1p(Float64(eps * Float64(-eps))) + Float64(-2.0 * log1p(eps)))
end

Wolfram

code[eps_] := N[Log[N[(N[(1.0 - eps), $MachinePrecision] / N[(1.0 + eps), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]

↓

code[eps_] := N[(N[Log[1 + N[(eps * (-eps)), $MachinePrecision]], $MachinePrecision] + N[(-2.0 * N[Log[1 + eps], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]

Target

Original	58.6
Target	0.3
Herbie	0.0

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

Derivation

1. Initial program 58.6

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

2. Applied egg-rr 0.5

   \[\leadsto \color{blue}{\log \left(1 - \varepsilon \cdot \varepsilon\right) - \left(\mathsf{log1p}\left(\varepsilon\right) + \mathsf{log1p}\left(\varepsilon\right)\right)} \]

3. Simplified 0.0

   \[\leadsto \color{blue}{\mathsf{log1p}\left(\varepsilon \cdot \left(-\varepsilon\right)\right) + -2 \cdot \mathsf{log1p}\left(\varepsilon\right)} \]
   Proof
   (+.f64 (log1p.f64 (*.f64 eps (neg.f64 eps))) (*.f64 -2 (log1p.f64 eps))): 0 points increase in error, 0 points decrease in error
   (+.f64 (log1p.f64 (Rewrite<= distribute-rgt-neg-in_binary64 (neg.f64 (*.f64 eps eps)))) (*.f64 -2 (log1p.f64 eps))): 0 points increase in error, 0 points decrease in error
   (+.f64 (Rewrite<= log1p-def_binary64 (log.f64 (+.f64 1 (neg.f64 (*.f64 eps eps))))) (*.f64 -2 (log1p.f64 eps))): 0 points increase in error, 0 points decrease in error
   (+.f64 (log.f64 (Rewrite<= sub-neg_binary64 (-.f64 1 (*.f64 eps eps)))) (*.f64 -2 (log1p.f64 eps))): 0 points increase in error, 0 points decrease in error
   (+.f64 (log.f64 (-.f64 1 (*.f64 eps eps))) (*.f64 (Rewrite<= metadata-eval (neg.f64 2)) (log1p.f64 eps))): 0 points increase in error, 0 points decrease in error
   (Rewrite<= cancel-sign-sub-inv_binary64 (-.f64 (log.f64 (-.f64 1 (*.f64 eps eps))) (*.f64 2 (log1p.f64 eps)))): 0 points increase in error, 0 points decrease in error
   (-.f64 (log.f64 (-.f64 1 (*.f64 eps eps))) (Rewrite<= count-2_binary64 (+.f64 (log1p.f64 eps) (log1p.f64 eps)))): 0 points increase in error, 0 points decrease in error

4. Final simplification 0.0

   \[\leadsto \mathsf{log1p}\left(\varepsilon \cdot \left(-\varepsilon\right)\right) + -2 \cdot \mathsf{log1p}\left(\varepsilon\right) \]

Alternatives

Alternative 1
Error	0.0
Cost	13056

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

Alternative 2
Error	0.4
Cost	6912

\[\varepsilon \cdot -2 + -0.6666666666666666 \cdot {\varepsilon}^{3} \]

Alternative 3
Error	0.7
Cost	192

\[\varepsilon \cdot -2 \]

Reproduce

herbie shell --seed 2022343 
(FPCore (eps)
  :name "logq (problem 3.4.3)"
  :precision binary64

  :herbie-target
  (* -2.0 (+ (+ eps (/ (pow eps 3.0) 3.0)) (/ (pow eps 5.0) 5.0)))

  (log (/ (- 1.0 eps) (+ 1.0 eps))))