网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
mathematica吧 关注：19,772贴子：73,769
  • 7回复贴，共1页

为什么生成不了图像


求助，只生成sinx这种图像都能生成，但是这种就一个点都不给我生成？为什么呀？
附代码：
probability[n_] :=
1 - (Arrange[365, n]/365^n + Binomial[n, 2]*Arrange[365, n - 1]/365^n)
Plot[probability[n], {n, 1, 50},
AxesLabel -> {"人数 n", "至少三人生日在同一天的概率"}, PlotLabel -> "生日问题概率图像",
ImageSize -> Medium, PlotStyle -> Blue,
AxesStyle -> Directive[Black, 12],
LabelStyle -> Directive[Black, 14]]


Plot中的自变量n默认是连续的实数，而你的probability函数是定义在正整数上的


生成一个列表然后ListPlot，请


蓝色的Arrange这对吗


似乎是这个:
probability[n_] :=
1 - (Product[365 - i, {i, 0, n - 1}]/365^n +
Binomial[n, 2]*Product[365 - i, {i, 0, n - 2}]/365^n)
ListPlot[Table[probability[n], {n, 1, 50}],
AxesLabel -> {"人数 n", "至少三人生日在同一天的概率"},
PlotLabel -> "生日问题概率图像", ImageSize -> Medium, PlotStyle -> Blue,
AxesStyle -> Directive[Black, 12],
LabelStyle -> Directive[Black, 14]]


1. 注意代码颜色，看到蓝色的那一刻警钟就该响了。
2. 对于函数不要想当然，如果你是在用哪个智障AI协助写代码的话请立刻把它丢掉，排列数在Mathematica里是 FactorialPower 。
3. 离散图绘制请用ListPlot或者DiscretePlot。
总之：
Arrange = FactorialPower;
probability[n_] :=
1 - (Arrange[365, n]/365^n + Binomial[n, 2]*Arrange[365, n - 1]/365^n)
DiscretePlot[probability[n], {n, 1, 50},
AxesLabel -> {"人数 n", "至少三人生日在同一天的概率"}, PlotLabel -> "生日问题概率图像",
ImageSize -> Medium, PlotStyle -> Blue,
AxesStyle -> Directive[Black, 12], LabelStyle -> Directive[Black, 14]]


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 7回复贴，共1页
分享到: