\frac{6 \cdot \left(x - 1\right)}{\left(x + 1\right) + 4 \cdot \sqrt{x}}\mathsf{log1p}\left(\mathsf{expm1}\left(\frac{x - 1}{\mathsf{fma}\left(\sqrt{x}, 4, x + 1\right)}\right)\right) \cdot 6double f(double x) {
double r888773 = 6.0;
double r888774 = x;
double r888775 = 1.0;
double r888776 = r888774 - r888775;
double r888777 = r888773 * r888776;
double r888778 = r888774 + r888775;
double r888779 = 4.0;
double r888780 = sqrt(r888774);
double r888781 = r888779 * r888780;
double r888782 = r888778 + r888781;
double r888783 = r888777 / r888782;
return r888783;
}
double f(double x) {
double r888784 = x;
double r888785 = 1.0;
double r888786 = r888784 - r888785;
double r888787 = sqrt(r888784);
double r888788 = 4.0;
double r888789 = r888784 + r888785;
double r888790 = fma(r888787, r888788, r888789);
double r888791 = r888786 / r888790;
double r888792 = expm1(r888791);
double r888793 = log1p(r888792);
double r888794 = 6.0;
double r888795 = r888793 * r888794;
return r888795;
}




Bits error versus x
| Original | 0.2 |
|---|---|
| Target | 0.0 |
| Herbie | 0.1 |
Initial program 0.2
Simplified0.0
rmApplied associate-/r/0.0
rmApplied log1p-expm1-u0.1
Final simplification0.1
herbie shell --seed 2020057 +o rules:numerics
(FPCore (x)
:name "Data.Approximate.Numerics:blog from approximate-0.2.2.1"
:precision binary64
:herbie-target
(/ 6 (/ (+ (+ x 1) (* 4 (sqrt x))) (- x 1)))
(/ (* 6 (- x 1)) (+ (+ x 1) (* 4 (sqrt x)))))