\frac{2.30753 + x \cdot 0.27061}{1 + x \cdot \left(0.99229 + x \cdot 0.04481\right)} - x
\begin{array}{l}
t_0 := \sqrt{\mathsf{fma}\left(x, \mathsf{fma}\left(x, 0.04481, 0.99229\right), 1\right)}\\
\frac{\frac{\mathsf{fma}\left(x, 0.27061, 2.30753\right)}{t_0}}{t_0} - x
\end{array}
(FPCore (x) :precision binary64 (- (/ (+ 2.30753 (* x 0.27061)) (+ 1.0 (* x (+ 0.99229 (* x 0.04481))))) x))
(FPCore (x) :precision binary64 (let* ((t_0 (sqrt (fma x (fma x 0.04481 0.99229) 1.0)))) (- (/ (/ (fma x 0.27061 2.30753) t_0) t_0) x)))
double code(double x) {
return ((2.30753 + (x * 0.27061)) / (1.0 + (x * (0.99229 + (x * 0.04481))))) - x;
}
double code(double x) {
double t_0 = sqrt(fma(x, fma(x, 0.04481, 0.99229), 1.0));
return ((fma(x, 0.27061, 2.30753) / t_0) / t_0) - x;
}



Bits error versus x
Initial program 0.0
Simplified0.0
Applied expm1-log1p-u_binary6416.2
Applied add-sqr-sqrt_binary6416.3
Applied associate-/r*_binary6416.3
Simplified0.1
Final simplification0.1
herbie shell --seed 2022068
(FPCore (x)
:name "Numeric.SpecFunctions:invIncompleteGamma from math-functions-0.1.5.2, C"
:precision binary64
(- (/ (+ 2.30753 (* x 0.27061)) (+ 1.0 (* x (+ 0.99229 (* x 0.04481))))) x))