在Excel中绘制二项分布的概率密度函数图，需要先使用公式制作数据集，然后基于数据集进行绘图。
在Mathematica中，仅需一行命令即可（两者所需时间不是一个数量级）。
Mathematica代码：
ListPlot[Table[{k,
PDF[BinomialDistribution[100, p], k]}, {p, {0.3, 0.5, 0.8}}, {k, 0,
100}], Filling -> Axis, PlotRange -> All,
PlotLegends -> {0.3, 0.5, 0.8}]
输出：
下面的图为Excel中绘制的图形，和Mathematica的输出是一致的。
这里有个地方比较坑，如果不加入“PlotRange -> All,”选项，输出的图形是错的，如下所示：
还是那句老话，一定要检验！
