用VBA代码论证百家乐见X跟X的可行性

网站编辑
1353
文章
2
评论
2013/05/0916:15:16
评论
2,907 views

最近刚看了一本有关21点概率的书,有所收获,继而想到百家乐是否也有算牌一说,照了一下找到一个“见庄根庄见闲跟闲见跳跟跳”的套路,据说胜率会稍微高一点,(>50%)。我觉得不太靠谱,于是用VBA写了段代码简单验证了一下:

Sub GenerateRnd()

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

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

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

totalwin = 0
totaltie = 0
For K = 2 To 10000
If ActiveSheet.Range("A" & K) = ActiveSheet.Range("B" & K) Then
totalwin = totalwin + 1
End If

 

Next

MsgBox "TotalWIn=" & totalwin

End Sub

由于百家乐庄闲概率不是绝对的1:1, 且有和的问题,但是和不亏钱,所以可以排除,但是对应的庄闲概率都该减少,我在这里取的是小数点后6位,应该算是相对精确了。不过这个程序对65536次百家乐的模拟投注结果,不出所料的还是低于50%,大概跟庄闲出现的平均值差不多,这样一来,除掉抽水,实际上这种赌法长期还是不利的,有网友推崇可能是因为短期内遇到了剧烈的有利玩家的概率波动,所以取得比较好的成果。事实上截至目前,除了21点之外,其他的流行牌类游戏还是没有十分靠谱的算牌法,至于那些什么自称百家乐冠军的,多是些油嘴滑舌之辈,诸位遇到应小心上当……

 

匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: