Mathematica绘制几何分布，利用Table绘制多个概率值情况

在Mathematica中，要绘制几何分布并展示多个概率值的情况，你可以使用`ProbabilityDistribution`函数来创建几何分布的表达式，然后结合`Plot`和`Table`来可视化。以下是步骤：

1. 首先导入必要的包：

Needs["Statistics`"]

2. 定义几何分布的概率质量函数（PMF），假设成功概率为p：

geometricDist[p_] := ProbabilityDistribution[1 - p, {k, 0, Infinity}, "Geometric", p]

这里的`1-p`代表每次试验失败的概率，`{k, 0, Infinity}`指明了随机变量可以取的所有非负整数。

3. 使用`Table`生成不同p值下的概率分布，并计算对应的概率：

probabilityValues = Table[
  {p, N[Probability[k >= kMax, geometricDist[p]], 4]}, 
  {p, {0.1, 0.5, 0.9}}, {kMax, 0, 10}]; (* 可自定义p和kMax的范围 *)

这将返回一个列表，每个元素包含一个p值及其对应kMax下成功的概率。

4. 最后，通过`ListLinePlot`或`BarChart`来绘制这些数据点：

plotType = BarChart; (* 或者 ListLinePlot *)
plotData = Transpose[{probabilityValues[[All, 1 ;; 2]]}];
plot[plotType, plotData, PlotLabels -> {"p", "Probability"}] 

这将显示一个图表，横坐标是p值，纵坐标是相应的概率。