(FPCore (x)
:precision binary64
(-
1.0
(*
(*
(/ 1.0 (+ 1.0 (* 0.3275911 (fabs x))))
(+
0.254829592
(*
(/ 1.0 (+ 1.0 (* 0.3275911 (fabs x))))
(+
-0.284496736
(*
(/ 1.0 (+ 1.0 (* 0.3275911 (fabs x))))
(+
1.421413741
(*
(/ 1.0 (+ 1.0 (* 0.3275911 (fabs x))))
(+
-1.453152027
(* (/ 1.0 (+ 1.0 (* 0.3275911 (fabs x)))) 1.061405429)))))))))
(exp (- (* (fabs x) (fabs x)))))))(FPCore (x)
:precision binary64
(let* ((t_0 (+ 1.0 (* 0.3275911 (fabs x))))
(t_1
(/
(+
0.254829592
(/
(+
-0.284496736
(/
(+ 1.421413741 (/ (+ -1.453152027 (/ 1.061405429 t_0)) t_0))
t_0))
t_0))
t_0))
(t_2 (exp (* x (- x))))
(t_3 (* t_1 t_2)))
(/
(-
1.0
(*
(sqrt
(pow
(*
(/
(+
0.254829592
(/
(+
-0.284496736
(/
(+
1.421413741
(/
(+ (/ 1.061405429 (fma 0.3275911 (fabs x) 1.0)) -1.453152027)
t_0))
t_0))
t_0))
t_0)
t_2)
3.0))
(sqrt (* (pow t_1 3.0) (pow (pow (exp x) (- x)) 3.0)))))
(+ 1.0 (+ t_3 (* t_3 t_3))))))double code(double x) {
return 1.0 - (((1.0 / (1.0 + (0.3275911 * fabs(x)))) * (0.254829592 + ((1.0 / (1.0 + (0.3275911 * fabs(x)))) * (-0.284496736 + ((1.0 / (1.0 + (0.3275911 * fabs(x)))) * (1.421413741 + ((1.0 / (1.0 + (0.3275911 * fabs(x)))) * (-1.453152027 + ((1.0 / (1.0 + (0.3275911 * fabs(x)))) * 1.061405429))))))))) * exp(-(fabs(x) * fabs(x))));
}
double code(double x) {
double t_0 = 1.0 + (0.3275911 * fabs(x));
double t_1 = (0.254829592 + ((-0.284496736 + ((1.421413741 + ((-1.453152027 + (1.061405429 / t_0)) / t_0)) / t_0)) / t_0)) / t_0;
double t_2 = exp((x * -x));
double t_3 = t_1 * t_2;
return (1.0 - (sqrt(pow((((0.254829592 + ((-0.284496736 + ((1.421413741 + (((1.061405429 / fma(0.3275911, fabs(x), 1.0)) + -1.453152027) / t_0)) / t_0)) / t_0)) / t_0) * t_2), 3.0)) * sqrt((pow(t_1, 3.0) * pow(pow(exp(x), -x), 3.0))))) / (1.0 + (t_3 + (t_3 * t_3)));
}
function code(x) return Float64(1.0 - Float64(Float64(Float64(1.0 / Float64(1.0 + Float64(0.3275911 * abs(x)))) * Float64(0.254829592 + Float64(Float64(1.0 / Float64(1.0 + Float64(0.3275911 * abs(x)))) * Float64(-0.284496736 + Float64(Float64(1.0 / Float64(1.0 + Float64(0.3275911 * abs(x)))) * Float64(1.421413741 + Float64(Float64(1.0 / Float64(1.0 + Float64(0.3275911 * abs(x)))) * Float64(-1.453152027 + Float64(Float64(1.0 / Float64(1.0 + Float64(0.3275911 * abs(x)))) * 1.061405429))))))))) * exp(Float64(-Float64(abs(x) * abs(x)))))) end
function code(x) t_0 = Float64(1.0 + Float64(0.3275911 * abs(x))) t_1 = Float64(Float64(0.254829592 + Float64(Float64(-0.284496736 + Float64(Float64(1.421413741 + Float64(Float64(-1.453152027 + Float64(1.061405429 / t_0)) / t_0)) / t_0)) / t_0)) / t_0) t_2 = exp(Float64(x * Float64(-x))) t_3 = Float64(t_1 * t_2) return Float64(Float64(1.0 - Float64(sqrt((Float64(Float64(Float64(0.254829592 + Float64(Float64(-0.284496736 + Float64(Float64(1.421413741 + Float64(Float64(Float64(1.061405429 / fma(0.3275911, abs(x), 1.0)) + -1.453152027) / t_0)) / t_0)) / t_0)) / t_0) * t_2) ^ 3.0)) * sqrt(Float64((t_1 ^ 3.0) * ((exp(x) ^ Float64(-x)) ^ 3.0))))) / Float64(1.0 + Float64(t_3 + Float64(t_3 * t_3)))) end
code[x_] := N[(1.0 - N[(N[(N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(0.254829592 + N[(N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(-0.284496736 + N[(N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.421413741 + N[(N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(-1.453152027 + N[(N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * 1.061405429), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[Exp[(-N[(N[Abs[x], $MachinePrecision] * N[Abs[x], $MachinePrecision]), $MachinePrecision])], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[x_] := Block[{t$95$0 = N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(0.254829592 + N[(N[(-0.284496736 + N[(N[(1.421413741 + N[(N[(-1.453152027 + N[(1.061405429 / t$95$0), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision]}, Block[{t$95$2 = N[Exp[N[(x * (-x)), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$3 = N[(t$95$1 * t$95$2), $MachinePrecision]}, N[(N[(1.0 - N[(N[Sqrt[N[Power[N[(N[(N[(0.254829592 + N[(N[(-0.284496736 + N[(N[(1.421413741 + N[(N[(N[(1.061405429 / N[(0.3275911 * N[Abs[x], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] + -1.453152027), $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision] * t$95$2), $MachinePrecision], 3.0], $MachinePrecision]], $MachinePrecision] * N[Sqrt[N[(N[Power[t$95$1, 3.0], $MachinePrecision] * N[Power[N[Power[N[Exp[x], $MachinePrecision], (-x)], $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(1.0 + N[(t$95$3 + N[(t$95$3 * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
1 - \left(\frac{1}{1 + 0.3275911 \cdot \left|x\right|} \cdot \left(0.254829592 + \frac{1}{1 + 0.3275911 \cdot \left|x\right|} \cdot \left(-0.284496736 + \frac{1}{1 + 0.3275911 \cdot \left|x\right|} \cdot \left(1.421413741 + \frac{1}{1 + 0.3275911 \cdot \left|x\right|} \cdot \left(-1.453152027 + \frac{1}{1 + 0.3275911 \cdot \left|x\right|} \cdot 1.061405429\right)\right)\right)\right)\right) \cdot e^{-\left|x\right| \cdot \left|x\right|}
\begin{array}{l}
t_0 := 1 + 0.3275911 \cdot \left|x\right|\\
t_1 := \frac{0.254829592 + \frac{-0.284496736 + \frac{1.421413741 + \frac{-1.453152027 + \frac{1.061405429}{t_0}}{t_0}}{t_0}}{t_0}}{t_0}\\
t_2 := e^{x \cdot \left(-x\right)}\\
t_3 := t_1 \cdot t_2\\
\frac{1 - \sqrt{{\left(\frac{0.254829592 + \frac{-0.284496736 + \frac{1.421413741 + \frac{\frac{1.061405429}{\mathsf{fma}\left(0.3275911, \left|x\right|, 1\right)} + -1.453152027}{t_0}}{t_0}}{t_0}}{t_0} \cdot t_2\right)}^{3}} \cdot \sqrt{{t_1}^{3} \cdot {\left({\left(e^{x}\right)}^{\left(-x\right)}\right)}^{3}}}{1 + \left(t_3 + t_3 \cdot t_3\right)}
\end{array}



Bits error versus x
Initial program 13.3
Applied egg-rr13.2
Applied egg-rr12.5
Applied egg-rr12.5
Taylor expanded in x around 0 12.5
Simplified12.5
Final simplification12.5
herbie shell --seed 2022162
(FPCore (x)
:name "Jmat.Real.erf"
:precision binary64
(- 1.0 (* (* (/ 1.0 (+ 1.0 (* 0.3275911 (fabs x)))) (+ 0.254829592 (* (/ 1.0 (+ 1.0 (* 0.3275911 (fabs x)))) (+ -0.284496736 (* (/ 1.0 (+ 1.0 (* 0.3275911 (fabs x)))) (+ 1.421413741 (* (/ 1.0 (+ 1.0 (* 0.3275911 (fabs x)))) (+ -1.453152027 (* (/ 1.0 (+ 1.0 (* 0.3275911 (fabs x)))) 1.061405429))))))))) (exp (- (* (fabs x) (fabs x)))))))