本腳本使用按鍵精靈編寫,模擬重慶時時彩開獎。設每次購買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