code[z_] := N[(N[(N[(N[Sqrt[N[(Pi * 2.0), $MachinePrecision]], $MachinePrecision] * N[Power[N[(N[(N[(z - 1.0), $MachinePrecision] + 7.0), $MachinePrecision] + 0.5), $MachinePrecision], N[(N[(z - 1.0), $MachinePrecision] + 0.5), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * N[Exp[(-N[(N[(N[(z - 1.0), $MachinePrecision] + 7.0), $MachinePrecision] + 0.5), $MachinePrecision])], $MachinePrecision]), $MachinePrecision] * N[(N[(N[(N[(N[(N[(N[(N[(0.9999999999998099 + N[(676.5203681218851 / N[(N[(z - 1.0), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-1259.1392167224028 / N[(N[(z - 1.0), $MachinePrecision] + 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(771.3234287776531 / N[(N[(z - 1.0), $MachinePrecision] + 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-176.6150291621406 / N[(N[(z - 1.0), $MachinePrecision] + 4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(12.507343278686905 / N[(N[(z - 1.0), $MachinePrecision] + 5.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-0.13857109526572012 / N[(N[(z - 1.0), $MachinePrecision] + 6.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(9.984369578019572e-6 / N[(N[(z - 1.0), $MachinePrecision] + 7.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(1.5056327351493116e-7 / N[(N[(z - 1.0), $MachinePrecision] + 8.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
↓
code[z_] := Block[{t$95$0 = N[(-1259.1392167224028 / N[(z + 1.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(z - 1.0), $MachinePrecision], 140.0], N[(N[(N[(N[(N[(t$95$0 + N[(771.3234287776531 / N[(2.0 + z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.9999999999998099 + N[(338.26018406094255 / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(176.6150291621406 / N[(z + 3.0), $MachinePrecision]), $MachinePrecision] - N[(338.26018406094255 / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(12.507343278686905 / N[(z + 4.0), $MachinePrecision]), $MachinePrecision] + N[(-0.13857109526572012 / N[(z + 5.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(9.984369578019572e-6 / N[(z + 6.0), $MachinePrecision]), $MachinePrecision] + N[(1.5056327351493116e-7 / N[(z + 7.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(N[Sqrt[N[(Pi * 2.0), $MachinePrecision]], $MachinePrecision] * N[Power[N[(z + 6.5), $MachinePrecision], N[(z + -0.5), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[Exp[N[(z + 6.5), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[Exp[N[(-6.5 - N[(z + N[(N[Log[N[(z - -6.5), $MachinePrecision]], $MachinePrecision] * N[(0.5 - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[Sqrt[N[(2.0 * Pi), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * N[(N[(N[(N[(N[(N[(771.3234287776531 / N[(-2.0 - z), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(-676.5203681218851 / z), $MachinePrecision] + -0.9999999999998099), $MachinePrecision] + N[(N[(2.0 * N[(N[(0.9999999999998099 - N[(-676.5203681218851 / z), $MachinePrecision]), $MachinePrecision] + N[(771.3234287776531 / N[(z + 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(-176.6150291621406 / N[(-3.0 - z), $MachinePrecision]), $MachinePrecision] - t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(12.507343278686905 / N[(N[(z - 1.0), $MachinePrecision] + 5.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-0.13857109526572012 / N[(N[(z - 1.0), $MachinePrecision] + 6.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(9.984369578019572e-6 / N[(N[(z - 1.0), $MachinePrecision] + 7.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(1.5056327351493116e-7 / N[(N[(z - 1.0), $MachinePrecision] + 8.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]