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[Exp[(-N[(x * x), $MachinePrecision])], $MachinePrecision]}, Block[{t$95$1 = N[(0.3275911 * N[Abs[x], $MachinePrecision] + 1.0), $MachinePrecision]}, Block[{t$95$2 = N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(1.061405429 / t$95$2), $MachinePrecision]}, Block[{t$95$4 = N[(1.0 / t$95$2), $MachinePrecision]}, Block[{t$95$5 = N[Power[N[(t$95$4 * N[(N[(0.254829592 + N[(t$95$4 * N[(-0.284496736 + N[(t$95$4 * N[(1.421413741 + N[(t$95$4 * N[(N[(N[(1.126581484710674 * N[Power[t$95$2, -2.0], $MachinePrecision]), $MachinePrecision] + -2.111650813574209), $MachinePrecision] / N[(t$95$3 + 1.453152027), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * t$95$0), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision]}, If[LessEqual[x, -8e-7], N[(N[(N[(1.0 - N[(t$95$5 * t$95$5), $MachinePrecision]), $MachinePrecision] / N[(1.0 + t$95$5), $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[(1.0 + N[(t$95$4 * N[(t$95$0 * N[(0.254829592 + N[(t$95$4 * N[(-0.284496736 + N[(t$95$4 * N[(1.421413741 + N[(t$95$4 * N[(t$95$3 + -1.453152027), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.85e-6], N[(1e-9 + N[Sqrt[N[(x * N[(x * 1.2732557730789702), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], N[Exp[N[Log[N[(N[(N[Power[N[Exp[x], $MachinePrecision], (-x)], $MachinePrecision] / t$95$1), $MachinePrecision] * N[(-0.254829592 + N[(N[(0.284496736 + N[(N[(N[(t$95$4 * 1.453152027), $MachinePrecision] + N[(-1.421413741 + N[(N[(1.0 / N[Power[t$95$2, 2.0], $MachinePrecision]), $MachinePrecision] * -1.061405429), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]]]]]]]]]