Average Error: 58.4 → 0.3
Time: 4.2s
Precision: binary64
\[\frac{1}{2} \cdot \log \left(\frac{1 + x}{1 - x}\right)\]
↓
\[0.5 \cdot \left(\left(0.6666666666666666 \cdot {x}^{3} + 0.4 \cdot {x}^{5}\right) + \left(x + x\right)\right)\]
\frac{1}{2} \cdot \log \left(\frac{1 + x}{1 - x}\right)
↓
0.5 \cdot \left(\left(0.6666666666666666 \cdot {x}^{3} + 0.4 \cdot {x}^{5}\right) + \left(x + x\right)\right)
(FPCore (x) :precision binary64 (* (/ 1.0 2.0) (log (/ (+ 1.0 x) (- 1.0 x)))))
↓
(FPCore (x)
 :precision binary64
 (*
  0.5
  (+ (+ (* 0.6666666666666666 (pow x 3.0)) (* 0.4 (pow x 5.0))) (+ x x))))
double code(double x) {
	return (1.0 / 2.0) * log((1.0 + x) / (1.0 - x));
}
↓
double code(double x) {
	return 0.5 * (((0.6666666666666666 * pow(x, 3.0)) + (0.4 * pow(x, 5.0))) + (x + x));
}

Error

Bits error versus x

Try it out

Your Program's Arguments

Results

Enter valid numbers for all inputs

Derivation

  1. Initial program 58.4

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

  2. Simplified58.4

    \[\leadsto \color{blue}{0.5 \cdot \log \left(\frac{1 + x}{1 - x}\right)}\]

  3. Taylor expanded around 0 0.3

    \[\leadsto 0.5 \cdot \color{blue}{\left(0.6666666666666666 \cdot {x}^{3} + \left(0.4 \cdot {x}^{5} + 2 \cdot x\right)\right)}\]

  4. Simplified0.3

    \[\leadsto 0.5 \cdot \color{blue}{\left({x}^{3} \cdot 0.6666666666666666 + \left(0.4 \cdot {x}^{5} + \left(x + x\right)\right)\right)}\]
  5. Using strategy rm

  6. Applied associate-+r+_binary640.3

    \[\leadsto 0.5 \cdot \color{blue}{\left(\left({x}^{3} \cdot 0.6666666666666666 + 0.4 \cdot {x}^{5}\right) + \left(x + x\right)\right)}\]

  7. Simplified0.3

    \[\leadsto 0.5 \cdot \left(\color{blue}{\left(0.6666666666666666 \cdot {x}^{3} + 0.4 \cdot {x}^{5}\right)} + \left(x + x\right)\right)\]

  8. Final simplification0.3

    \[\leadsto 0.5 \cdot \left(\left(0.6666666666666666 \cdot {x}^{3} + 0.4 \cdot {x}^{5}\right) + \left(x + x\right)\right)\]

Reproduce

herbie shell --seed 2020224 
(FPCore (x)
  :name "Hyperbolic arc-(co)tangent"
  :precision binary64
  (* (/ 1.0 2.0) (log (/ (+ 1.0 x) (- 1.0 x)))))