\[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 := \mathsf{fma}\left(0.3275911, \left|x\right|, 1\right)\\
\mathbf{if}\;\left|x\right| \leq 4 \cdot 10^{-13}:\\
\;\;\;\;\frac{10^{-18} - \left(x \cdot x\right) \cdot 1.2732557730789702}{10^{-9} - x \cdot 1.128386358070218}\\
\mathbf{else}:\\
\;\;\;\;1 - \frac{e^{x \cdot \left(-x\right)}}{t_0} \cdot \left(0.254829592 + \left(\frac{1.421413741}{{t_0}^{2}} + \left(\left(\frac{-0.284496736}{t_0} + \frac{-1.453152027}{{t_0}^{3}}\right) + \frac{1.061405429}{{t_0}^{4}}\right)\right)\right)\\
\end{array}
\]
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 = fma(0.3275911, fabs(x), 1.0);
double tmp;
if (fabs(x) <= 4e-13) {
tmp = (1e-18 - ((x * x) * 1.2732557730789702)) / (1e-9 - (x * 1.128386358070218));
} else {
tmp = 1.0 - ((exp((x * -x)) / t_0) * (0.254829592 + ((1.421413741 / pow(t_0, 2.0)) + (((-0.284496736 / t_0) + (-1.453152027 / pow(t_0, 3.0))) + (1.061405429 / pow(t_0, 4.0))))));
}
return tmp;
}
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 = fma(0.3275911, abs(x), 1.0)
tmp = 0.0
if (abs(x) <= 4e-13)
tmp = Float64(Float64(1e-18 - Float64(Float64(x * x) * 1.2732557730789702)) / Float64(1e-9 - Float64(x * 1.128386358070218)));
else
tmp = Float64(1.0 - Float64(Float64(exp(Float64(x * Float64(-x))) / t_0) * Float64(0.254829592 + Float64(Float64(1.421413741 / (t_0 ^ 2.0)) + Float64(Float64(Float64(-0.284496736 / t_0) + Float64(-1.453152027 / (t_0 ^ 3.0))) + Float64(1.061405429 / (t_0 ^ 4.0)))))));
end
return tmp
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[(0.3275911 * N[Abs[x], $MachinePrecision] + 1.0), $MachinePrecision]}, If[LessEqual[N[Abs[x], $MachinePrecision], 4e-13], N[(N[(1e-18 - N[(N[(x * x), $MachinePrecision] * 1.2732557730789702), $MachinePrecision]), $MachinePrecision] / N[(1e-9 - N[(x * 1.128386358070218), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 - N[(N[(N[Exp[N[(x * (-x)), $MachinePrecision]], $MachinePrecision] / t$95$0), $MachinePrecision] * N[(0.254829592 + N[(N[(1.421413741 / N[Power[t$95$0, 2.0], $MachinePrecision]), $MachinePrecision] + N[(N[(N[(-0.284496736 / t$95$0), $MachinePrecision] + N[(-1.453152027 / N[Power[t$95$0, 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(1.061405429 / N[Power[t$95$0, 4.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $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 := \mathsf{fma}\left(0.3275911, \left|x\right|, 1\right)\\
\mathbf{if}\;\left|x\right| \leq 4 \cdot 10^{-13}:\\
\;\;\;\;\frac{10^{-18} - \left(x \cdot x\right) \cdot 1.2732557730789702}{10^{-9} - x \cdot 1.128386358070218}\\
\mathbf{else}:\\
\;\;\;\;1 - \frac{e^{x \cdot \left(-x\right)}}{t_0} \cdot \left(0.254829592 + \left(\frac{1.421413741}{{t_0}^{2}} + \left(\left(\frac{-0.284496736}{t_0} + \frac{-1.453152027}{{t_0}^{3}}\right) + \frac{1.061405429}{{t_0}^{4}}\right)\right)\right)\\
\end{array}