时时彩胜率模拟器

张凯 网络杂苑>按键精灵 2019-1-3 12:49 3360字 7分钟 648 0 字号: | |

本脚本使用按键精灵编写,模拟重庆时时彩开奖。设每次购买5球,即胜率为50%,56种出号可能性(抽取文本中的随机行),每次出1球(0~9随机数),测试各种期数下的中奖率。

设计本软件的初衷,是将结论输出到Excel中,行程中挂走势图,以此发掘旺打一口的契机。后延伸成了直接数据报表的方式,直接看失败的最大可能性。主要看连挂的峰值在哪里。

1.先看一下模拟器运行的界面

测试胜率.png

2.看一下得出结论的报表

a5d8fe5a47a45372d10baeee2f40566.png

奉上源码。需结合重庆时时彩10选5的排列计划表,链接如下:


当前连中次数 = 0
当前连挂次数 = 0
最大连中次数 = 0
最大连挂次数 = 0
TXT路径 = "C:\SSC.txt"
本金 = 10000
期数 = 1
模拟天数 = 30
Randomize
初始本金 = 本金
Function 随机计划
    Text = Plugin.File.ReadFileEx(TXT路径)
    随机行 = Split(Text, "|")
    随机计划号 = 随机行(Int((UBound(随机行) * Rnd) + 0))
End Function
Function 分割数组
    Dim 计划数组
    TracePrint 随机计划号
    计划数组 = Split(随机计划号, ",")
    第一号 = Clng(计划数组(0))
    第二号 = Clng(计划数组(1))
    第三号 = Clng(计划数组(2))
    第四号 = Clng(计划数组(3))
    第五号 = Clng(计划数组(4))
End Function
Function 产生随机数
    A = int(rnd() * 10)
    TracePrint A
End Function
Function 判断中挂
    If 第一号 = A Then 
        结果 = "中"
    ElseIf 第二号 = A Then 
        结果 = "中"
    ElseIf 第三号 = A Then 
        结果 = "中"
    ElseIf 第四号 = A Then 
        结果 = "中"
    ElseIf 第五号 = A Then 
        结果 = "中"
    ElseIf 次数 = 期数 Then
        结果 = "挂"
    Else 
        结果 = "等待"
    End If
    TracePrint 结果	
End Function
Function 判断投资
    If 次数 = 1 Then 
        投资 = 1
    Elseif 次数 = 2 Then
        投资 = 3
    ElseIf 次数 = 3 Then
        投资 = 7
    ElseIf 次数 = 4 Then
        投资 = 15
    ElseIf 次数 = 5 Then
        投资 = 31
    ElseIf 次数 = 6 Then
        投资 = 63
    ElseIf 次数 = 7 Then
        投资 = 126
    ElseIf 次数 = 8 Then
        投资 = 255
    End If
End Function
Function 输出结果
    If 结果 <> "等待" Then 
        If 结果 <> 上局结果 Then 
            当前连中次数 = 0
            当前连挂次数 = 0
        End If
        If 结果 = "中" Then 
            当前连中次数 = 当前连中次数 + 1
        ElseIf 结果 = "挂" Then
            当前连挂次数 = 当前连挂次数 + 1
        End If
    End If
End Function
Function 资金验算
    //如果结果不为等待,那么本局结果成立
    If 结果 <> "等待" Then 
        上局结果 = 结果
        判断投资
        If 结果 = "中" Then 
            本金 = 本金 + 1
        ElseIf 结果 = "挂" Then
            本金 = 本金 - 投资
        End If	
    End If 
End Function
Function 峰值验算
    If 当前连中次数 > 最大连中次数 Then 
        最大连中次数 = 当前连中次数
    End If
    If 当前连挂次数 > 最大连挂次数 Then 
        最大连挂次数 = 当前连挂次数
    End If
End Function
//核心循环
随机计划 
For 120 * 模拟天数
    If 结果 = "中" Then 
        随机计划 
        Delay 20
        次数 = 1
    ElseIf 次数 > 期数 Then
        随机计划 
        Delay 20
        次数 = 1
    End If
    分割数组 
    Delay 20
    产生随机数 
    Delay 20
    判断中挂 
    Delay 20
    //--------
    输出结果 
    Delay 20
    资金验算 
    Delay 20
    峰值验算 
    Delay 20
    //执行完毕之后次数+1
    次数 = 次数 + 1
Next
TracePrint "当前连中次数:" & 当前连中次数
TracePrint "当前连挂次数:" & 当前连挂次数
TracePrint "卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍 万 法 归 宗 卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍"
TracePrint "-----------------------------------------------------------------------------------" 
TracePrint "本轮预设本金:" & 初始本金 & " 元"
TracePrint "本轮模拟天数:" & 模拟天数 & " 天"
TracePrint "本轮模拟期数:" & 期数 & " 期"
TracePrint "最大连中次数:" & 最大连中次数
TracePrint "最大连挂次数:" & 最大连挂次数
TracePrint "结余:" & 本金
TracePrint "盈利:" & 初始本金 - 本金
TracePrint "-----------------------------------------------------------------------------------" 


    文末另附一张昨天晚上通过验算出的结果进行模拟投注,得出的模拟投注报表。

微信图片_20190103130926.png

本文链接:http://www.aswait.com/q/1032.html 百度已收录
版权申明:文章如未标注转载均为本站原创,转载请注明出处"张凯博客"。

发表评论

电子邮件地址不会被公开。必填项已用*标注

Ɣ回顶部
00:00 / 00:00
顺序播放