double code(double wj, double x) {
return ((double) (wj - ((double) (((double) (((double) (wj * ((double) exp(wj)))) - x)) / ((double) (((double) exp(wj)) + ((double) (wj * ((double) exp(wj))))))))));
}
double code(double wj, double x) {
double VAR;
if ((wj <= -6.027656327867643e-09)) {
VAR = ((double) (((double) cbrt(((double) (wj - ((double) (((double) (wj - ((double) (x / ((double) exp(wj)))))) / ((double) (wj + 1.0)))))))) * ((double) (((double) cbrt(((double) (wj - ((double) (((double) (wj - ((double) (x / ((double) exp(wj)))))) / ((double) (wj + 1.0)))))))) * ((double) cbrt(((double) (wj - ((double) (((double) (wj - ((double) (x / ((double) exp(wj)))))) / ((double) (wj + 1.0))))))))))));
} else {
VAR = ((double) (x + ((double) (wj * ((double) (wj - ((double) (x * 2.0))))))));
}
return VAR;
}




Bits error versus wj




Bits error versus x
Results
| Original | 13.5 |
|---|---|
| Target | 13.0 |
| Herbie | 1.4 |
if wj < -6.0276563278676428e-9Initial program 5.6
Simplified5.6
rmApplied add-cube-cbrt6.2
if -6.0276563278676428e-9 < wj Initial program 13.6
Simplified13.2
Taylor expanded around 0 1.3
Simplified1.3
Final simplification1.4
herbie shell --seed 2020179
(FPCore (wj x)
:name "Jmat.Real.lambertw, newton loop step"
:precision binary64
:herbie-target
(- wj (- (/ wj (+ wj 1.0)) (/ x (+ (exp wj) (* wj (exp wj))))))
(- wj (/ (- (* wj (exp wj)) x) (+ (exp wj) (* wj (exp wj))))))