(FPCore (x) :precision binary64 (- 1.0 (* x (+ 0.253 (* x 0.12)))))
(FPCore (x) :precision binary64 (- 1.0 (+ (* x (* x 0.12)) (* x 0.253))))
double code(double x) {
return 1.0 - (x * (0.253 + (x * 0.12)));
}
double code(double x) {
return 1.0 - ((x * (x * 0.12)) + (x * 0.253));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 1.0d0 - (x * (0.253d0 + (x * 0.12d0)))
end function
real(8) function code(x)
real(8), intent (in) :: x
code = 1.0d0 - ((x * (x * 0.12d0)) + (x * 0.253d0))
end function
public static double code(double x) {
return 1.0 - (x * (0.253 + (x * 0.12)));
}
public static double code(double x) {
return 1.0 - ((x * (x * 0.12)) + (x * 0.253));
}
def code(x): return 1.0 - (x * (0.253 + (x * 0.12)))
def code(x): return 1.0 - ((x * (x * 0.12)) + (x * 0.253))
function code(x) return Float64(1.0 - Float64(x * Float64(0.253 + Float64(x * 0.12)))) end
function code(x) return Float64(1.0 - Float64(Float64(x * Float64(x * 0.12)) + Float64(x * 0.253))) end
function tmp = code(x) tmp = 1.0 - (x * (0.253 + (x * 0.12))); end
function tmp = code(x) tmp = 1.0 - ((x * (x * 0.12)) + (x * 0.253)); end
code[x_] := N[(1.0 - N[(x * N[(0.253 + N[(x * 0.12), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[x_] := N[(1.0 - N[(N[(x * N[(x * 0.12), $MachinePrecision]), $MachinePrecision] + N[(x * 0.253), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
1 - x \cdot \left(0.253 + x \cdot 0.12\right)
1 - \left(x \cdot \left(x \cdot 0.12\right) + x \cdot 0.253\right)



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