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

互联网&数码 技术流评论4,278 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点之外,其他的流行牌类游戏还是没有十分靠谱的算牌法,至于那些什么自称百家乐冠军的,多是些油嘴滑舌之辈,诸位遇到应小心上当……

 

索尼A5000使用体验 技术流

索尼A5000使用体验

这是一款2014年上市的机型。 但实事求是的讲,这些年,在影像技术上,人类的进步没那么大。 眼花缭乱的手机功能,似乎是解决了很多摄影问题,但是实际上,手机解决的是“在手机有限的空间里,怎么处理光影成像...
那位百家号扑街在抄我的视频 互联网&数码

那位百家号扑街在抄我的视频

我在抖音和快手发了好多短视频。 现在想发到百度百家号,因为百家号现在流量挺好。 结果我发布的时候,说审核不通过,反复查证后没有问题,提交问题,咨询客服。发现是“有相似内容”。意思就是有人发了和这个一模...
为什么我不用图床:因为图床还没有我自己稳定 建站

为什么我不用图床:因为图床还没有我自己稳定

  N久之前我在贴图库用过几张图片,后来又不用了,今天忽然听说贴图库关闭了。而且都关闭一年了。 还好我损失不大,因为早都不用了。 其实我用过的图床也有很多,最早的七牛、牛图、新浪、后来的今日...
评论  0  访客  0

发表评论

匿名网友 填写信息

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

确定