- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2008-3-26
|
|
好奇 若亏损连续2把以上 改更小注交易
交易系统下注规则如下:
每次押100于6号,如果连续2把抓不到6,第三把押50于6,如果第三把依然不是6则继续押50,直到6位置,然后重新开始循环规则。
****
100 是 1% 停损
50 是 0.5 % 停损
****
1000 轮回 的
300次测试
亏损到0 轮回 ,,,,,一轮回都没有出现
******
Dim t, ernum, ba, i
Dim burnoff, burnoffnum
Private Sub Command1_Click()
Randomize
burnoff = 0
burnoffnum = 0
For j = 1 To 1000
List1.Clear
Text1 = 10000
t = Text1
For i = 1 To 300
ba = Int(Rnd * 24) + 1
If ball(ba) = 6 Then
t1 = t + bet(ernum + 1) * 6
ernum = 0
Else
ernum = ernum + 1
t1 = t - bet(ernum)
End If
List1.AddItem t1 & " " & t1 - t & " " & ((t1 - 10000) / 10000) * 100 & "%"
If t1 < 0 Then
List1.AddItem " off off off "
burnoff = burnoff + 1
burnoffnum = burnoffnum + i
GoTo 1111
End If
t = t1
Next
1111:
Next
Text4 = burnoff
If burnoff <> 0 Then Text5 = burnoffnum \ burnoff
End Sub
Private Sub Form_Load()
ernum = 0
bet(1) = 100
bet(2) = 100
bet(3) = 50 '****
bet(4) = 50 '****
bet(5) = 50 '****
For i = 6 To 100
bet(i) = 50 ' ******
Next
Randomize
For i = 1 To 4
ball(i) = 1
Next
For i = 5 To 8
ball(i) = 2
Next
For i = 9 To 12
ball(i) = 3
Next
For i = 13 To 16
ball(i) = 4
Next
For i = 17 To 20
ball(i) = 5
Next
For i = 21 To 24
ball(i) = 6
Next
t = Text1
End Sub
[ 本帖最后由 fengyang2 于 2008-11-8 23:25 编辑 ] |
|
|