我说下用mathematica的方法
从题目看,你所要的P(n)-n图像实际上是离散点列,而不是曲线.
首先定义函数:
binomial[ N_, p_ , x_] := Binomial[ N, x] p^x (1 - p)^(N - x)
其中第一个和第二个参数是画图前要给定的,第三个可视为变量,比如N=20,p=0.3,再运行画图函数:
ListPlot[ Table[ { x, binomial[ 20, 0.3, x]}, {x, 0, 20}]]
即可.
当然如果想要曲线,可直接运行:
Plot[ binomial[ 20, 0.3, x], {x, 0, 20}]
此曲线图比较直观,当然其概率意义有所变化了.
这个我可以做的,http://hi.baidu.com/ggggwhw/blog/item/1ed2d35d5130b95efaf2c07b.html
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024