- 金币: 
 -  
 
 
- 奖励: 
 -  
 
 
- 热心: 
 -  
 
 
- 注册时间: 
 - 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 编辑 ] |   
 
 
 
 | 
         |