时时彩胜率模拟器
本脚本使用按键精灵编写，模拟重庆时时彩开奖。设每次购买5球，即胜率为50%，56种出号可能性（抽取文本中的随机行），每次出1球（0~9随机数），测试各种期数下的中奖率。
设计本软件的初衷，是将结论输出到Excel中，行程中挂走势图，以此发掘旺打一口的契机。后延伸成了直接数据报表的方式，直接看失败的最大可能性。主要看连挂的峰值在哪里。
1.先看一下模拟器运行的界面
2.看一下得出结论的报表
奉上源码。需结合重庆时时彩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 "-----------------------------------------------------------------------------------"
文末另附一张昨天晚上通过验算出的结果进行模拟投注，得出的模拟投注报表。
更多精彩
