Observe the following wolfram Mathematica code: nd[y_, a_, b_, n_] := (Binomial[b – a + 1, y]*Sum[((-1)^i)*Binomial[y, i]*((y – i)/(b – a + 1))^n, {i, 0, y}]); Animate[DiscretePlot3D[nd[i, 1, n, j], {j, 1, 15}, {i, 1, 15}, ExtentSize -> Full, ColorFunction -> “DarkRainbow”], {n, 1, 50, 1}] nd is just the name of a discreteRead more