Answers:
这个简单的问题有一个复杂的答案。并发症归因于两个因素:
卡被抽出而无需更换。(因此,每次抽奖都会更改可用于后续抽奖的牌组内容。)
副牌通常有多张各值的牌,并为获得最高牌而平局。
由于并发症是不可避免的,因此让我们解决这个问题的合理范围广泛的概括,然后再研究特殊情况。在一般情况下,“卡组”由有限数量的卡组成。卡具有不同的“值”,可以按从低到高的顺序排列。要有Ñ 我 ≥ 1被排名的值的我(与我= 1的最低和我= 中号的最高)。一个玩家绘制一个≥ 0从甲板卡和第二玩家抽b ≥ 1牌。第一位玩家手中排名最高的牌比第二位玩家手中最高排名的牌的价值严格大于多少?将此事件称为:第一个玩家的“胜利”。
解决这个问题的一种方法是从开始注意到该过程等同于从卡组中抽取张牌,将其中的第一个a取为第一张玩家的牌,将其余的b张取为第二张玩家的牌。在这些卡让Ĵ是最高值,并让ķ ≥ 1是该值的卡的数量。第一个玩家只有在持有所有k张卡片时才获胜。的,其中这些特定卡可以中找到的路的数目一卡是(一,而在所有绘制的a+b中将这k张卡片定位的方式为( a+b。
现在是最高值,并且有k张这样的牌的几率是从n张j值的j张牌中选择k张,并从较低的n 1 + n 2 + ⋯ +中选择剩余的a + b - k的机会。n j - 1 = N j - 1值。因为有( N m a+b卡的等概率抽奖,答案是
(在此表达式中,并且任何二项式系数的最高值小于其最低值,或者其最低值为负)都为零。)这是一种相对有效的计算方法,其时间与卡在甲板上。因为它只涉及二项式系数,所以适合a和b的大值的渐近近似。
R
a
b
deck
a <- 4
b <- 6
deck <- rep(1:13, 4)
set.seed(17)
cards <- replicate(1e4, sample(deck, a+b))
win <- apply(cards, 2, function(x) max(x[1:a]) > max(x[-(1:a)]))
m <- mean(win)
se <- sqrt(m*(1-m)/length(win))
cat("Estimated Pr(a wins) =", round(m, 4), "+/-", round(se, 5), "\n")
在这种情况下的输出是
估计Pr(a获胜)= 0.3132 +/- 0.00464