\[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(\left|x\right|, 0.3275911, 1\right)\\
t_1 := {t_0}^{-2}\\
t_2 := \frac{-0.284496736 + \frac{1.421413741 + \mathsf{fma}\left(1.061405429, t_1, \frac{-1.453152027}{t_0}\right)}{t_0}}{t_0}\\
t_3 := 0.254829592 + t_2\\
t_4 := {\left(e^{x}\right)}^{x}\\
\mathbf{if}\;x \leq -2.45 \cdot 10^{-17}:\\
\;\;\;\;\frac{1 + t_1 \cdot \left(\frac{t_3}{t_4} \cdot \frac{-0.254829592 - t_2}{t_4}\right)}{1 + \frac{t_3}{t_0 \cdot t_4}}\\
\mathbf{elif}\;x \leq 1.1:\\
\;\;\;\;\mathsf{fma}\left(1.128386358070218, x, 10^{-9}\right) + \left(x \cdot x\right) \cdot \left(-0.00011824294398844343 + x \cdot -0.37545125292247583\right)\\
\mathbf{else}:\\
\;\;\;\;1\\
\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(fabs(x), 0.3275911, 1.0);
double t_1 = pow(t_0, -2.0);
double t_2 = (-0.284496736 + ((1.421413741 + fma(1.061405429, t_1, (-1.453152027 / t_0))) / t_0)) / t_0;
double t_3 = 0.254829592 + t_2;
double t_4 = pow(exp(x), x);
double tmp;
if (x <= -2.45e-17) {
tmp = (1.0 + (t_1 * ((t_3 / t_4) * ((-0.254829592 - t_2) / t_4)))) / (1.0 + (t_3 / (t_0 * t_4)));
} else if (x <= 1.1) {
tmp = fma(1.128386358070218, x, 1e-9) + ((x * x) * (-0.00011824294398844343 + (x * -0.37545125292247583)));
} else {
tmp = 1.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(abs(x), 0.3275911, 1.0)
t_1 = t_0 ^ -2.0
t_2 = Float64(Float64(-0.284496736 + Float64(Float64(1.421413741 + fma(1.061405429, t_1, Float64(-1.453152027 / t_0))) / t_0)) / t_0)
t_3 = Float64(0.254829592 + t_2)
t_4 = exp(x) ^ x
tmp = 0.0
if (x <= -2.45e-17)
tmp = Float64(Float64(1.0 + Float64(t_1 * Float64(Float64(t_3 / t_4) * Float64(Float64(-0.254829592 - t_2) / t_4)))) / Float64(1.0 + Float64(t_3 / Float64(t_0 * t_4))));
elseif (x <= 1.1)
tmp = Float64(fma(1.128386358070218, x, 1e-9) + Float64(Float64(x * x) * Float64(-0.00011824294398844343 + Float64(x * -0.37545125292247583))));
else
tmp = 1.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[(N[Abs[x], $MachinePrecision] * 0.3275911 + 1.0), $MachinePrecision]}, Block[{t$95$1 = N[Power[t$95$0, -2.0], $MachinePrecision]}, Block[{t$95$2 = N[(N[(-0.284496736 + N[(N[(1.421413741 + N[(1.061405429 * t$95$1 + N[(-1.453152027 / t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision]}, Block[{t$95$3 = N[(0.254829592 + t$95$2), $MachinePrecision]}, Block[{t$95$4 = N[Power[N[Exp[x], $MachinePrecision], x], $MachinePrecision]}, If[LessEqual[x, -2.45e-17], N[(N[(1.0 + N[(t$95$1 * N[(N[(t$95$3 / t$95$4), $MachinePrecision] * N[(N[(-0.254829592 - t$95$2), $MachinePrecision] / t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(1.0 + N[(t$95$3 / N[(t$95$0 * t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.1], N[(N[(1.128386358070218 * x + 1e-9), $MachinePrecision] + N[(N[(x * x), $MachinePrecision] * N[(-0.00011824294398844343 + N[(x * -0.37545125292247583), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 1.0]]]]]]]
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(\left|x\right|, 0.3275911, 1\right)\\
t_1 := {t_0}^{-2}\\
t_2 := \frac{-0.284496736 + \frac{1.421413741 + \mathsf{fma}\left(1.061405429, t_1, \frac{-1.453152027}{t_0}\right)}{t_0}}{t_0}\\
t_3 := 0.254829592 + t_2\\
t_4 := {\left(e^{x}\right)}^{x}\\
\mathbf{if}\;x \leq -2.45 \cdot 10^{-17}:\\
\;\;\;\;\frac{1 + t_1 \cdot \left(\frac{t_3}{t_4} \cdot \frac{-0.254829592 - t_2}{t_4}\right)}{1 + \frac{t_3}{t_0 \cdot t_4}}\\
\mathbf{elif}\;x \leq 1.1:\\
\;\;\;\;\mathsf{fma}\left(1.128386358070218, x, 10^{-9}\right) + \left(x \cdot x\right) \cdot \left(-0.00011824294398844343 + x \cdot -0.37545125292247583\right)\\
\mathbf{else}:\\
\;\;\;\;1\\
\end{array}