Compare binomial and normal distributions for Problem 4 on today’s worksheet:

Show[
DiscretePlot[PDF[BinomialDistribution[1000,1/6],x],{x,100,240}],
Plot[PDF[NormalDistribution[1000/6,(Sqrt[1000(1/6)(5/6)])],x],{x,100,240},PlotStyle->Orange]
]