一种经验方法。
让我们在 Mathematica 中实现错误的算法:
p = 10; (* Range *)
s = {}
For[l = 1, l <= 30000, l++, (*Iterations*)
a = Range[p];
For[k = 1, k <= p, k++,
i = RandomInteger[{1, p}];
temp = a[[k]];
a[[k]] = a[[i]];
a[[i]] = temp
];
AppendTo[s, a];
]
现在得到每个整数在每个位置的次数:
r = SortBy[#, #[[1]] &] & /@ Tally /@ Transpose[s]
让我们在结果数组中取三个位置,并绘制该位置每个整数的频率分布:
对于位置 1,频率分布为:
对于位置 5(中)
对于位置 10(最后一个):
在这里,您可以将所有位置的分布绘制在一起:
在这里,您对 8 个职位有更好的统计数据:
一些观察:
- 对于所有位置,“1”的概率是相同的 (1/n)。
- 概率矩阵关于大对角线对称
- 所以,任何数字在最后一个位置的概率也是一致的(1/n)
您可以从同一点(第一个属性)和最后一条水平线(第三个属性)查看所有行的起点来可视化这些属性。
第二个属性可以从下面的矩阵表示示例中看出,其中行是位置,列是乘员数量,颜色代表实验概率:
对于 100x100 矩阵:
编辑
只是为了好玩,我计算了第二个对角元素的确切公式(第一个是 1/n)。其余的可以完成,但工作量很大。
h[n_] := (n-1)/n^2 + (n-1)^(n-2) n^(-n)
从 n=3 到 6 验证的值({8/27、57/256、564/3125、7105/46656})
编辑
在@wnoise 答案中进行一些一般的显式计算,我们可以获得更多信息。
将 1/n 替换为 p[n],因此计算不会被计算,例如,我们得到 n=7 的矩阵的第一部分(点击查看大图):
其中,在与其他 n 值的结果进行比较之后,让我们识别矩阵中的一些已知整数序列:
{{ 1/n, 1/n , ...},
{... .., A007318, ....},
{... .., ... ..., ..},
... ....,
{A129687, ... ... ... ... ... ... ..},
{A131084, A028326 ... ... ... ... ..},
{A028326, A131084 , A129687 ... ....}}
您可以在精彩的http://oeis.org/中找到这些序列(在某些情况下具有不同的符号)
解决一般问题比较困难,但我希望这是一个开始