最近刚看了一本有关21点概率的书，有所收获，继而想到百家乐是否也有算牌一说，照了一下找到一个“见庄根庄见闲跟闲见跳跟跳”的套路，据说胜率会稍微高一点，（>50%)。我觉得不太靠谱，于是用VBA写了段代码简单验证了一下：
Sub GenerateRnd()文章源自原紫番博客-https://www.yuanzifan.com/3388.html
For i = 2 To 10000
Rendomnra = Int(Rnd() * 1000000)
If Rendomnra > 541403 Then
ActiveSheet.Range("A" & i) = "B"
ElseIf Rendomnra < 446247 Then
ActiveSheet.Range("A" & i) = "P"
Else
i = i - 1
End If
Next
WrongJudge = 0
For j = 2 To 10000
If ActiveSheet.Range("A" & j) = "B" Then
ActiveSheet.Range("B" & j + 1) = "B"
ElseIf ActiveSheet.Range("A" & j) = "P" Then
ActiveSheet.Range("B" & j + 1) = "P"
End If文章源自原紫番博客-https://www.yuanzifan.com/3388.html
If ActiveSheet.Range("A" & j - 1) = "B" And ActiveSheet.Range("A" & j) = "P" Then
ActiveSheet.Range("B" & j + 1) = "B"
End If
If ActiveSheet.Range("A" & j - 1) = "P" And ActiveSheet.Range("A" & j) = "B" Then
ActiveSheet.Range("B" & j + 1) = "P"
End If文章源自原紫番博客-https://www.yuanzifan.com/3388.html
Next
For Checkit = 2 To 10000
If ActiveSheet.Range("A" & Checkit) = ActiveSheet.Range("B" & Checkit) Then
ActiveSheet.Range("C" & Checkit) = ActiveSheet.Range("B" & Checkit)
End If
Next文章源自原紫番博客-https://www.yuanzifan.com/3388.html
totalwin = 0
totaltie = 0
For K = 2 To 10000
If ActiveSheet.Range("A" & K) = ActiveSheet.Range("B" & K) Then
totalwin = totalwin + 1
End If文章源自原紫番博客-https://www.yuanzifan.com/3388.html
文章源自原紫番博客-https://www.yuanzifan.com/3388.html
Next文章源自原紫番博客-https://www.yuanzifan.com/3388.html
MsgBox "TotalWIn=" & totalwin文章源自原紫番博客-https://www.yuanzifan.com/3388.html
End Sub文章源自原紫番博客-https://www.yuanzifan.com/3388.html
由于百家乐庄闲概率不是绝对的1:1, 且有和的问题，但是和不亏钱，所以可以排除，但是对应的庄闲概率都该减少，我在这里取的是小数点后6位，应该算是相对精确了。不过这个程序对65536次百家乐的模拟投注结果，不出所料的还是低于50%，大概跟庄闲出现的平均值差不多，这样一来，除掉抽水，实际上这种赌法长期还是不利的，有网友推崇可能是因为短期内遇到了剧烈的有利玩家的概率波动，所以取得比较好的成果。事实上截至目前，除了21点之外，其他的流行牌类游戏还是没有十分靠谱的算牌法，至于那些什么自称百家乐冠军的，多是些油嘴滑舌之辈，诸位遇到应小心上当……文章源自原紫番博客-https://www.yuanzifan.com/3388.html
评论