Draw the graphs of the polynomials given by the binomial expansions

> binomial(100,k)*x^k*(1-x)^100-k, k = 0 .. 100

> restart;

> m:=[x,binomial(100,k)*x^(100-k)*(1-x)^k,x=0..1]:

> plot({m$k=0..100},axes=none);

[Maple Plot]

>