Mathematica绘制几何分布

Mathematica是一款强大的数学计算软件，它也支持图形化功能，包括绘制几何分布。几何分布通常用于描述在一系列伯努利试验中成功事件发生的次数。在Mathematica中，你可以按照以下步骤来绘制几何分布：

1. 首先，导入`DiscretePlot`函数，它是处理离散数据图的好工具。

2. 使用`GeometricDistribution`函数创建一个特定参数的几何分布。这个函数需要两个参数：`p`（成功的概率），例如0.7，代表每次试验成功的概率。

3. 然后，使用`PDF`（Probability Density Function，概率密度函数）函数获取每个可能结果的概率。

4. 将概率值传递给`DiscretePlot`，指定x轴范围、标记点以及颜色等选项。

下面是一个简单的例子代码：

(* 设置概率 *)
p = 0.7;
(* 创建几何分布 *)
dist = GeometricDistribution[p];
(* 概率密度函数列表 *)
probs = PDF[dist, Range[0, 10]];
(* 绘制几何分布 *)
DiscretePlot[probs[[i]], {i, 0, 10}, 
   PlotRange -> All, Ticks -> {{0, "0"}, {1, "1"}, Rest@Range[10], Automatic},
   LabelStyle -> Directive[Bold, Medium], Frame -> True]

在这个例子中，横坐标表示实验次数，纵坐标表示对应的成功概率。