1 - x \cdot \left(0.253 + x \cdot 0.12\right)
1 - \left(\sqrt{\sqrt{0.12}} \cdot \left(x \cdot \left(x \cdot {\left(\sqrt{0.12}\right)}^{1.5}\right)\right) + x \cdot 0.253\right)
(FPCore (x) :precision binary64 (- 1.0 (* x (+ 0.253 (* x 0.12)))))
(FPCore (x) :precision binary64 (- 1.0 (+ (* (sqrt (sqrt 0.12)) (* x (* x (pow (sqrt 0.12) 1.5)))) (* x 0.253))))
double code(double x) {
return 1.0 - (x * (0.253 + (x * 0.12)));
}
double code(double x) {
return 1.0 - ((sqrt(sqrt(0.12)) * (x * (x * pow(sqrt(0.12), 1.5)))) + (x * 0.253));
}



Bits error versus x
Results
Initial program 0.1
Simplified0.1
Taylor expanded in x around 0 0.1
Applied add-sqr-sqrt_binary640.1
Applied associate-*l*_binary640.1
Applied add-sqr-sqrt_binary640.3
Applied associate-*l*_binary640.3
Simplified0.1
Final simplification0.1
herbie shell --seed 2022088
(FPCore (x)
:name "Numeric.SpecFunctions:invIncompleteGamma from math-functions-0.1.5.2, A"
:precision binary64
(- 1.0 (* x (+ 0.253 (* x 0.12)))))