求助，只生成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]]