plot PDF[BinomialDistribution[4, 0.5], x] and PDF[NormalDistribution[4*0.5, 4*0.5*0.5], x]