code[t_, l_, k_] := N[(2.0 / N[(N[(N[(N[(N[Power[t, 3.0], $MachinePrecision] / N[(l * l), $MachinePrecision]), $MachinePrecision] * N[Sin[k], $MachinePrecision]), $MachinePrecision] * N[Tan[k], $MachinePrecision]), $MachinePrecision] * N[(N[(1.0 + N[Power[N[(k / t), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] - 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
↓
code[t_, l_, k_] := Block[{t$95$1 = N[(N[Sin[k], $MachinePrecision] / l), $MachinePrecision]}, Block[{t$95$2 = N[(N[Power[N[(N[(N[Sin[k], $MachinePrecision] * N[Tan[k], $MachinePrecision]), $MachinePrecision] / N[(l * l), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision] * t), $MachinePrecision]}, Block[{t$95$3 = N[(N[Tan[k], $MachinePrecision] / l), $MachinePrecision]}, Block[{t$95$4 = N[Power[t$95$1, 1/3], $MachinePrecision]}, Block[{t$95$5 = N[Power[t$95$3, 1/3], $MachinePrecision]}, Block[{t$95$6 = N[(t * t$95$4), $MachinePrecision]}, Block[{t$95$7 = N[(8.0 / t$95$3), $MachinePrecision]}, Block[{t$95$8 = N[(N[(N[(N[Power[t$95$7, 1/3], $MachinePrecision] / t), $MachinePrecision] / t$95$4), $MachinePrecision] / N[(k / t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$9 = N[(N[(N[Power[N[(t$95$7 / t$95$1), $MachinePrecision], 1/3], $MachinePrecision] / N[(t$95$2 * N[(N[(k * t), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(N[(t$95$2 * k), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$10 = N[Power[N[Sin[k], $MachinePrecision], 1/3], $MachinePrecision]}, If[LessEqual[l, -1.15e+136], N[(t$95$8 / N[(N[Power[N[(t$95$5 * N[(t * N[(t$95$10 / N[Power[l, 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision] * N[(k / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[l, -5e-161], t$95$9, If[LessEqual[l, 7e-151], N[(N[(N[(N[Power[N[(1.0 / t$95$3), $MachinePrecision], 1/3], $MachinePrecision] / t$95$6), $MachinePrecision] * N[(N[(N[(N[Power[2.0, 1/3], $MachinePrecision] / k), $MachinePrecision] * N[Power[4.0, 1/3], $MachinePrecision]), $MachinePrecision] / N[(1.0 / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(N[Power[N[(t$95$5 * t$95$6), $MachinePrecision], 2.0], $MachinePrecision] * N[(k / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[l, 4.7e+125], t$95$9, N[(t$95$8 / N[(N[Power[N[(t$95$5 * N[(t * If[Unequal[t$95$10, 0.0], N[(1.0 / N[Power[N[(l / N[Sin[k], $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision], t$95$4]), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision] * N[(k / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]