\frac{x}{x} - \frac{1}{x} \cdot \sqrt{x \cdot x}\mathsf{log1p}\left(\mathsf{expm1}\left(1 \cdot \left(-\frac{\left|x\right|}{x}\right)\right)\right) + 1double f(double x) {
double r149519 = x;
double r149520 = r149519 / r149519;
double r149521 = 1.0;
double r149522 = r149521 / r149519;
double r149523 = r149519 * r149519;
double r149524 = sqrt(r149523);
double r149525 = r149522 * r149524;
double r149526 = r149520 - r149525;
return r149526;
}
double f(double x) {
double r149527 = 1.0;
double r149528 = x;
double r149529 = fabs(r149528);
double r149530 = r149529 / r149528;
double r149531 = -r149530;
double r149532 = r149527 * r149531;
double r149533 = expm1(r149532);
double r149534 = log1p(r149533);
double r149535 = 1.0;
double r149536 = r149534 + r149535;
return r149536;
}




Bits error versus x
Results
| Original | 32.4 |
|---|---|
| Target | 0 |
| Herbie | 0 |
Initial program 32.4
Simplified30.5
rmApplied fma-udef4.8
rmApplied log1p-expm1-u0.0
Simplified0
Final simplification0
herbie shell --seed 2019195 +o rules:numerics
(FPCore (x)
:name "sqrt sqr"
:herbie-target
(if (< x 0.0) 2.0 0.0)
(- (/ x x) (* (/ 1.0 x) (sqrt (* x x)))))