发布网友
共1个回答
热心网友
我
说下
用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}]
此曲线图比较直观,当然其概率意义有所变化了.