code[x_] := N[(N[(N[(N[(N[(N[(N[(1.0 + N[(0.1049934947 * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.0424060604 * N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.0072644182 * N[(N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.0005064034 * N[(N[(N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.0001789971 * N[(N[(N[(N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(N[(N[(N[(N[(N[(1.0 + N[(0.7715471019 * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.2909738639 * N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.0694555761 * N[(N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.0140005442 * N[(N[(N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.0008327945 * N[(N[(N[(N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(2.0 * 0.0001789971), $MachinePrecision] * N[(N[(N[(N[(N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * x), $MachinePrecision]
↓
code[x_] := Block[{t$95$0 = N[(1.0 + N[(N[(x * x), $MachinePrecision] * 0.7715471019), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x * x), $MachinePrecision] * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(x * N[(x * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(x * x), $MachinePrecision] * t$95$2), $MachinePrecision]}, Block[{t$95$5 = N[(N[(x * x), $MachinePrecision] * t$95$3), $MachinePrecision]}, Block[{t$95$6 = N[(t$95$3 * t$95$3), $MachinePrecision]}, Block[{t$95$7 = N[(N[(x * x), $MachinePrecision] * t$95$6), $MachinePrecision]}, Block[{t$95$8 = N[(1.0 + N[(0.1049934947 * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$9 = N[(N[(x * x), $MachinePrecision] * t$95$4), $MachinePrecision]}, If[LessEqual[N[(x * N[(N[(N[(N[(N[(t$95$8 + N[(0.0424060604 * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(0.0072644182 * t$95$2), $MachinePrecision]), $MachinePrecision] + N[(0.0005064034 * t$95$4), $MachinePrecision]), $MachinePrecision] + N[(0.0001789971 * t$95$9), $MachinePrecision]), $MachinePrecision] / N[(N[(N[(N[(N[(t$95$0 + N[(t$95$1 * 0.2909738639), $MachinePrecision]), $MachinePrecision] + N[(t$95$2 * 0.0694555761), $MachinePrecision]), $MachinePrecision] + N[(t$95$4 * 0.0140005442), $MachinePrecision]), $MachinePrecision] + N[(t$95$9 * 0.0008327945), $MachinePrecision]), $MachinePrecision] + N[(0.0003579942 * N[(N[(x * x), $MachinePrecision] * t$95$9), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 2e-6], N[(x * N[(N[(N[(N[(t$95$8 + N[(0.0424060604 * t$95$3), $MachinePrecision]), $MachinePrecision] + N[(0.0072644182 * t$95$5), $MachinePrecision]), $MachinePrecision] + N[(N[(0.0005064034 * t$95$6), $MachinePrecision] + N[(0.0001789971 * t$95$7), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(N[(N[(t$95$0 + N[(0.2909738639 * t$95$3), $MachinePrecision]), $MachinePrecision] + N[(N[(0.0694555761 * t$95$5), $MachinePrecision] + N[(0.0140005442 * t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(0.0008327945 * t$95$7), $MachinePrecision] + N[(0.0003579942 * N[(t$95$3 * t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(0.5 / x), $MachinePrecision]]]]]]]]]]]]