Using Excell to Determine Triples?
- Thread starter cdrake
- Start date
Mixing triples - the end ????
Thanks hot4, reading your comment has brought me a new perspective on the problem.
For the first triple (1-2-3), there are 15,180 or COMBIN(46,3) possibilities. For the second triple (1-2-4), there are 14,190 or COMBIN(45,3) possibilities. And so on, and so on. Up to the last possibility where with the triple 44-45-46, you mix it with only one triple (47-48-49) to get one 6-number combination.
Using a spreadsheet, with all 18,424 triples from 1-2-3 to 47-48-49 with each number respectively in column A, B and C, I placed in D2 the formula =IF(49-C2>=3,COMBIN(49-C2,3),0). Note that the C2 correspond to the last number of the first triple. The formula was then copied down for each triple.
The sum of all values in column D gives 13,983,816, which also corresponds to the number of combinations in a 6/49 lotery.
The IF condition at the beginning of the formula is necessary to eliminate an error message if the last number of the triple is 47, 48 or 49. For an example, with triple 1-2-47, you can not make any 6-number combination as it will eventually be found somewher else.
Thanks hot4, reading your comment has brought me a new perspective on the problem.
For the first triple (1-2-3), there are 15,180 or COMBIN(46,3) possibilities. For the second triple (1-2-4), there are 14,190 or COMBIN(45,3) possibilities. And so on, and so on. Up to the last possibility where with the triple 44-45-46, you mix it with only one triple (47-48-49) to get one 6-number combination.
Using a spreadsheet, with all 18,424 triples from 1-2-3 to 47-48-49 with each number respectively in column A, B and C, I placed in D2 the formula =IF(49-C2>=3,COMBIN(49-C2,3),0). Note that the C2 correspond to the last number of the first triple. The formula was then copied down for each triple.
The sum of all values in column D gives 13,983,816, which also corresponds to the number of combinations in a 6/49 lotery.
The IF condition at the beginning of the formula is necessary to eliminate an error message if the last number of the triple is 47, 48 or 49. For an example, with triple 1-2-47, you can not make any 6-number combination as it will eventually be found somewher else.
Hi Everyone,
I have come up with the Following Macro, Called List_ALL_Triples to List the Total Number of Times EACH Triple has Been Drawn Excluding AND Including the Bonus Number for a 649 Lotto. Just Copy & Paste into a Module.
My Previous Problem ( Including the Bonus Number ) was that I did NOT take into Account that the Including Bonus Data Needed to be Sorted in Ascending Order, Cheers GillesD. I think it was a Case of Not Seeing the Wood for the Trees.
I have Used the Same Setup as GillesD has Previously where Possible.
Setup
In a Sheet Named "No Bonus", Enter Titles Starting in "A1" Such as :-
A1 = Draw
B1 = Ball 1
C1 = Ball 2
D1 = Ball 3
E1 = Ball 4
F1 = Ball 5
G1 = Ball 6
H1 = Bonus
Then Enter ALL the Results ( As Per Above ) for the 649 Lotto Starting in Cell "A2".
In a Sheet Named "Bonus", Enter Titles Starting in "A1" Such as :-
A1 = Draw
B1 = Ball 1
C1 = Ball 2
D1 = Ball 3
E1 = Ball 4
F1 = Ball 5
G1 = Ball 6
H1 = Ball 7
Then Enter the Following Formulas Starting in Cell "A2" :-
"A2" Formula :-
=IF('No Bonus'!$A2=0," ",'No Bonus'!$A2)
"B2" Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,1))
"C2" Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,2))
"D2" Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,3))
"E2" Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,4))
"F2" Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,5))
"G2" Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,6))
"H2" Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,7))
Copy ALL of these Formulas Down to Say Fifty Or So Draws Past the Current Draw so as to Allow for Future Draw Information.
An Empty Sheet Named "Results" MUST Also be Available. At the End of the Macro, the First Three Columns ( A, B and C ) will Contain the Numbers ( Combinations ) for ALL 18,424 Triples, Column D will Contain the Total Number of Times Excluding the Bonus Number EACH of these Triples has Been Draw, and Column E will Contain the Total Number of Times Including the Bonus Number EACH of these Triples has Been Draw.
You can then Sort on Either Excluding OR Including the Bonus Number.
GillesD, I have Checked the Macro Output with the UK 649 Lotto and it Appears to be OK, would you Kindly Check the Output with the Canadian 649 Lotto Please.
It is Annoying that the Indenting Doesn't Work for Copy & Paste, Sorry.
All the Best.
PAB
Option Explicit
Option Base 1
Public i As Integer
Public j As Integer
Public k As Integer
Public nCount As Long
Public nDraw As Integer
Public nMinA As Integer
Public nMaxF As Integer
Public nNo(7) As Integer
Public nBonus(49, 49, 49) As Integer
Public nNoBonus(49, 49, 49) As Integer
Sub List_ALL_Triples()
Application.ScreenUpdating = False
Sheets("No Bonus").Select
Range("A2").Select
nMinA = 1
nMaxF = 49
Do While ActiveCell.Value > 0
nDraw = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
For i = 1 To nDraw
For j = 1 To 7
nNo(j) = ActiveCell.Offset(i, j).Value
Next j
nNoBonus(nNo(1), nNo(2), nNo(3)) = nNoBonus(nNo(1), nNo(2), nNo(3)) + 1
nNoBonus(nNo(1), nNo(2), nNo(4)) = nNoBonus(nNo(1), nNo(2), nNo(4)) + 1
nNoBonus(nNo(1), nNo(2), nNo(5)) = nNoBonus(nNo(1), nNo(2), nNo(5)) + 1
nNoBonus(nNo(1), nNo(2), nNo(6)) = nNoBonus(nNo(1), nNo(2), nNo(6)) + 1
nNoBonus(nNo(1), nNo(3), nNo(4)) = nNoBonus(nNo(1), nNo(3), nNo(4)) + 1
nNoBonus(nNo(1), nNo(3), nNo(5)) = nNoBonus(nNo(1), nNo(3), nNo(5)) + 1
nNoBonus(nNo(1), nNo(3), nNo(6)) = nNoBonus(nNo(1), nNo(3), nNo(6)) + 1
nNoBonus(nNo(1), nNo(4), nNo(5)) = nNoBonus(nNo(1), nNo(4), nNo(5)) + 1
nNoBonus(nNo(1), nNo(4), nNo(6)) = nNoBonus(nNo(1), nNo(4), nNo(6)) + 1
nNoBonus(nNo(1), nNo(5), nNo(6)) = nNoBonus(nNo(1), nNo(5), nNo(6)) + 1
nNoBonus(nNo(2), nNo(3), nNo(4)) = nNoBonus(nNo(2), nNo(3), nNo(4)) + 1
nNoBonus(nNo(2), nNo(3), nNo(5)) = nNoBonus(nNo(2), nNo(3), nNo(5)) + 1
nNoBonus(nNo(2), nNo(3), nNo(6)) = nNoBonus(nNo(2), nNo(3), nNo(6)) + 1
nNoBonus(nNo(2), nNo(4), nNo(5)) = nNoBonus(nNo(2), nNo(4), nNo(5)) + 1
nNoBonus(nNo(2), nNo(4), nNo(6)) = nNoBonus(nNo(2), nNo(4), nNo(6)) + 1
nNoBonus(nNo(2), nNo(5), nNo(6)) = nNoBonus(nNo(2), nNo(5), nNo(6)) + 1
nNoBonus(nNo(3), nNo(4), nNo(5)) = nNoBonus(nNo(3), nNo(4), nNo(5)) + 1
nNoBonus(nNo(3), nNo(4), nNo(6)) = nNoBonus(nNo(3), nNo(4), nNo(6)) + 1
nNoBonus(nNo(3), nNo(5), nNo(6)) = nNoBonus(nNo(3), nNo(5), nNo(6)) + 1
nNoBonus(nNo(4), nNo(5), nNo(6)) = nNoBonus(nNo(4), nNo(5), nNo(6)) + 1
Next i
Sheets("Results").Select
Range("A1").Select
For i = 1 To nMaxF - 2
For j = i + 1 To nMaxF - 1
For k = j + 1 To nMaxF
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(-1, 0).Value = i
ActiveCell.Offset(-1, 1).Value = j
ActiveCell.Offset(-1, 2).Value = k
ActiveCell.Offset(-1, 3).Value = nNoBonus(i, j, k)
Next k
Next j
Next i
Columns("A:IV").AutoFit
Columns("A:IV").HorizontalAlignment = xlCenter
Call Bonus
Application.ScreenUpdating = True
End Sub
Private Sub Bonus()
Application.ScreenUpdating = False
Sheets("Bonus").Select
Range("A2").Select
Do While ActiveCell.Value > " "
nDraw = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
For i = 1 To nDraw
For j = 1 To 7
nNo(j) = ActiveCell.Offset(i, j).Value
Next j
nBonus(nNo(1), nNo(2), nNo(3)) = nBonus(nNo(1), nNo(2), nNo(3)) + 1
nBonus(nNo(1), nNo(2), nNo(4)) = nBonus(nNo(1), nNo(2), nNo(4)) + 1
nBonus(nNo(1), nNo(2), nNo(5)) = nBonus(nNo(1), nNo(2), nNo(5)) + 1
nBonus(nNo(1), nNo(2), nNo(6)) = nBonus(nNo(1), nNo(2), nNo(6)) + 1
nBonus(nNo(1), nNo(2), nNo(7)) = nBonus(nNo(1), nNo(2), nNo(7)) + 1
nBonus(nNo(1), nNo(3), nNo(4)) = nBonus(nNo(1), nNo(3), nNo(4)) + 1
nBonus(nNo(1), nNo(3), nNo(5)) = nBonus(nNo(1), nNo(3), nNo(5)) + 1
nBonus(nNo(1), nNo(3), nNo(6)) = nBonus(nNo(1), nNo(3), nNo(6)) + 1
nBonus(nNo(1), nNo(3), nNo(7)) = nBonus(nNo(1), nNo(3), nNo(7)) + 1
nBonus(nNo(1), nNo(4), nNo(5)) = nBonus(nNo(1), nNo(4), nNo(5)) + 1
nBonus(nNo(1), nNo(4), nNo(6)) = nBonus(nNo(1), nNo(4), nNo(6)) + 1
nBonus(nNo(1), nNo(4), nNo(7)) = nBonus(nNo(1), nNo(4), nNo(7)) + 1
nBonus(nNo(1), nNo(5), nNo(6)) = nBonus(nNo(1), nNo(5), nNo(6)) + 1
nBonus(nNo(1), nNo(5), nNo(7)) = nBonus(nNo(1), nNo(5), nNo(7)) + 1
nBonus(nNo(1), nNo(6), nNo(7)) = nBonus(nNo(1), nNo(6), nNo(7)) + 1
nBonus(nNo(2), nNo(3), nNo(4)) = nBonus(nNo(2), nNo(3), nNo(4)) + 1
nBonus(nNo(2), nNo(3), nNo(5)) = nBonus(nNo(2), nNo(3), nNo(5)) + 1
nBonus(nNo(2), nNo(3), nNo(6)) = nBonus(nNo(2), nNo(3), nNo(6)) + 1
nBonus(nNo(2), nNo(3), nNo(7)) = nBonus(nNo(2), nNo(3), nNo(7)) + 1
nBonus(nNo(2), nNo(4), nNo(5)) = nBonus(nNo(2), nNo(4), nNo(5)) + 1
nBonus(nNo(2), nNo(4), nNo(6)) = nBonus(nNo(2), nNo(4), nNo(6)) + 1
nBonus(nNo(2), nNo(4), nNo(7)) = nBonus(nNo(2), nNo(4), nNo(7)) + 1
nBonus(nNo(2), nNo(5), nNo(6)) = nBonus(nNo(2), nNo(5), nNo(6)) + 1
nBonus(nNo(2), nNo(5), nNo(7)) = nBonus(nNo(2), nNo(5), nNo(7)) + 1
nBonus(nNo(2), nNo(6), nNo(7)) = nBonus(nNo(2), nNo(6), nNo(7)) + 1
nBonus(nNo(3), nNo(4), nNo(5)) = nBonus(nNo(3), nNo(4), nNo(5)) + 1
nBonus(nNo(3), nNo(4), nNo(6)) = nBonus(nNo(3), nNo(4), nNo(6)) + 1
nBonus(nNo(3), nNo(4), nNo(7)) = nBonus(nNo(3), nNo(4), nNo(7)) + 1
nBonus(nNo(3), nNo(5), nNo(6)) = nBonus(nNo(3), nNo(5), nNo(6)) + 1
nBonus(nNo(3), nNo(5), nNo(7)) = nBonus(nNo(3), nNo(5), nNo(7)) + 1
nBonus(nNo(3), nNo(6), nNo(7)) = nBonus(nNo(3), nNo(6), nNo(7)) + 1
nBonus(nNo(4), nNo(5), nNo(6)) = nBonus(nNo(4), nNo(5), nNo(6)) + 1
nBonus(nNo(4), nNo(5), nNo(7)) = nBonus(nNo(4), nNo(5), nNo(7)) + 1
nBonus(nNo(4), nNo(6), nNo(7)) = nBonus(nNo(4), nNo(6), nNo(7)) + 1
nBonus(nNo(5), nNo(6), nNo(7)) = nBonus(nNo(5), nNo(6), nNo(7)) + 1
Next i
Sheets("Results").Select
Range("A1").Select
For i = 1 To nMaxF - 2
For j = i + 1 To nMaxF - 1
For k = j + 1 To nMaxF
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(-1, 4).Value = nBonus(i, j, k)
Next k
Next j
Next i
Columns("A:IV").AutoFit
Application.ScreenUpdating = True
End Sub
I have come up with the Following Macro, Called List_ALL_Triples to List the Total Number of Times EACH Triple has Been Drawn Excluding AND Including the Bonus Number for a 649 Lotto. Just Copy & Paste into a Module.
My Previous Problem ( Including the Bonus Number ) was that I did NOT take into Account that the Including Bonus Data Needed to be Sorted in Ascending Order, Cheers GillesD. I think it was a Case of Not Seeing the Wood for the Trees.
I have Used the Same Setup as GillesD has Previously where Possible.
Setup
In a Sheet Named "No Bonus", Enter Titles Starting in "A1" Such as :-
A1 = Draw
B1 = Ball 1
C1 = Ball 2
D1 = Ball 3
E1 = Ball 4
F1 = Ball 5
G1 = Ball 6
H1 = Bonus
Then Enter ALL the Results ( As Per Above ) for the 649 Lotto Starting in Cell "A2".
In a Sheet Named "Bonus", Enter Titles Starting in "A1" Such as :-
A1 = Draw
B1 = Ball 1
C1 = Ball 2
D1 = Ball 3
E1 = Ball 4
F1 = Ball 5
G1 = Ball 6
H1 = Ball 7
Then Enter the Following Formulas Starting in Cell "A2" :-
"A2" Formula :-
=IF('No Bonus'!$A2=0," ",'No Bonus'!$A2)
"B2" Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,1))
"C2" Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,2))
"D2" Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,3))
"E2" Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,4))
"F2" Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,5))
"G2" Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,6))
"H2" Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,7))
Copy ALL of these Formulas Down to Say Fifty Or So Draws Past the Current Draw so as to Allow for Future Draw Information.
An Empty Sheet Named "Results" MUST Also be Available. At the End of the Macro, the First Three Columns ( A, B and C ) will Contain the Numbers ( Combinations ) for ALL 18,424 Triples, Column D will Contain the Total Number of Times Excluding the Bonus Number EACH of these Triples has Been Draw, and Column E will Contain the Total Number of Times Including the Bonus Number EACH of these Triples has Been Draw.
You can then Sort on Either Excluding OR Including the Bonus Number.
GillesD, I have Checked the Macro Output with the UK 649 Lotto and it Appears to be OK, would you Kindly Check the Output with the Canadian 649 Lotto Please.
It is Annoying that the Indenting Doesn't Work for Copy & Paste, Sorry.
All the Best.
PAB
Option Explicit
Option Base 1
Public i As Integer
Public j As Integer
Public k As Integer
Public nCount As Long
Public nDraw As Integer
Public nMinA As Integer
Public nMaxF As Integer
Public nNo(7) As Integer
Public nBonus(49, 49, 49) As Integer
Public nNoBonus(49, 49, 49) As Integer
Sub List_ALL_Triples()
Application.ScreenUpdating = False
Sheets("No Bonus").Select
Range("A2").Select
nMinA = 1
nMaxF = 49
Do While ActiveCell.Value > 0
nDraw = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
For i = 1 To nDraw
For j = 1 To 7
nNo(j) = ActiveCell.Offset(i, j).Value
Next j
nNoBonus(nNo(1), nNo(2), nNo(3)) = nNoBonus(nNo(1), nNo(2), nNo(3)) + 1
nNoBonus(nNo(1), nNo(2), nNo(4)) = nNoBonus(nNo(1), nNo(2), nNo(4)) + 1
nNoBonus(nNo(1), nNo(2), nNo(5)) = nNoBonus(nNo(1), nNo(2), nNo(5)) + 1
nNoBonus(nNo(1), nNo(2), nNo(6)) = nNoBonus(nNo(1), nNo(2), nNo(6)) + 1
nNoBonus(nNo(1), nNo(3), nNo(4)) = nNoBonus(nNo(1), nNo(3), nNo(4)) + 1
nNoBonus(nNo(1), nNo(3), nNo(5)) = nNoBonus(nNo(1), nNo(3), nNo(5)) + 1
nNoBonus(nNo(1), nNo(3), nNo(6)) = nNoBonus(nNo(1), nNo(3), nNo(6)) + 1
nNoBonus(nNo(1), nNo(4), nNo(5)) = nNoBonus(nNo(1), nNo(4), nNo(5)) + 1
nNoBonus(nNo(1), nNo(4), nNo(6)) = nNoBonus(nNo(1), nNo(4), nNo(6)) + 1
nNoBonus(nNo(1), nNo(5), nNo(6)) = nNoBonus(nNo(1), nNo(5), nNo(6)) + 1
nNoBonus(nNo(2), nNo(3), nNo(4)) = nNoBonus(nNo(2), nNo(3), nNo(4)) + 1
nNoBonus(nNo(2), nNo(3), nNo(5)) = nNoBonus(nNo(2), nNo(3), nNo(5)) + 1
nNoBonus(nNo(2), nNo(3), nNo(6)) = nNoBonus(nNo(2), nNo(3), nNo(6)) + 1
nNoBonus(nNo(2), nNo(4), nNo(5)) = nNoBonus(nNo(2), nNo(4), nNo(5)) + 1
nNoBonus(nNo(2), nNo(4), nNo(6)) = nNoBonus(nNo(2), nNo(4), nNo(6)) + 1
nNoBonus(nNo(2), nNo(5), nNo(6)) = nNoBonus(nNo(2), nNo(5), nNo(6)) + 1
nNoBonus(nNo(3), nNo(4), nNo(5)) = nNoBonus(nNo(3), nNo(4), nNo(5)) + 1
nNoBonus(nNo(3), nNo(4), nNo(6)) = nNoBonus(nNo(3), nNo(4), nNo(6)) + 1
nNoBonus(nNo(3), nNo(5), nNo(6)) = nNoBonus(nNo(3), nNo(5), nNo(6)) + 1
nNoBonus(nNo(4), nNo(5), nNo(6)) = nNoBonus(nNo(4), nNo(5), nNo(6)) + 1
Next i
Sheets("Results").Select
Range("A1").Select
For i = 1 To nMaxF - 2
For j = i + 1 To nMaxF - 1
For k = j + 1 To nMaxF
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(-1, 0).Value = i
ActiveCell.Offset(-1, 1).Value = j
ActiveCell.Offset(-1, 2).Value = k
ActiveCell.Offset(-1, 3).Value = nNoBonus(i, j, k)
Next k
Next j
Next i
Columns("A:IV").AutoFit
Columns("A:IV").HorizontalAlignment = xlCenter
Call Bonus
Application.ScreenUpdating = True
End Sub
Private Sub Bonus()
Application.ScreenUpdating = False
Sheets("Bonus").Select
Range("A2").Select
Do While ActiveCell.Value > " "
nDraw = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
For i = 1 To nDraw
For j = 1 To 7
nNo(j) = ActiveCell.Offset(i, j).Value
Next j
nBonus(nNo(1), nNo(2), nNo(3)) = nBonus(nNo(1), nNo(2), nNo(3)) + 1
nBonus(nNo(1), nNo(2), nNo(4)) = nBonus(nNo(1), nNo(2), nNo(4)) + 1
nBonus(nNo(1), nNo(2), nNo(5)) = nBonus(nNo(1), nNo(2), nNo(5)) + 1
nBonus(nNo(1), nNo(2), nNo(6)) = nBonus(nNo(1), nNo(2), nNo(6)) + 1
nBonus(nNo(1), nNo(2), nNo(7)) = nBonus(nNo(1), nNo(2), nNo(7)) + 1
nBonus(nNo(1), nNo(3), nNo(4)) = nBonus(nNo(1), nNo(3), nNo(4)) + 1
nBonus(nNo(1), nNo(3), nNo(5)) = nBonus(nNo(1), nNo(3), nNo(5)) + 1
nBonus(nNo(1), nNo(3), nNo(6)) = nBonus(nNo(1), nNo(3), nNo(6)) + 1
nBonus(nNo(1), nNo(3), nNo(7)) = nBonus(nNo(1), nNo(3), nNo(7)) + 1
nBonus(nNo(1), nNo(4), nNo(5)) = nBonus(nNo(1), nNo(4), nNo(5)) + 1
nBonus(nNo(1), nNo(4), nNo(6)) = nBonus(nNo(1), nNo(4), nNo(6)) + 1
nBonus(nNo(1), nNo(4), nNo(7)) = nBonus(nNo(1), nNo(4), nNo(7)) + 1
nBonus(nNo(1), nNo(5), nNo(6)) = nBonus(nNo(1), nNo(5), nNo(6)) + 1
nBonus(nNo(1), nNo(5), nNo(7)) = nBonus(nNo(1), nNo(5), nNo(7)) + 1
nBonus(nNo(1), nNo(6), nNo(7)) = nBonus(nNo(1), nNo(6), nNo(7)) + 1
nBonus(nNo(2), nNo(3), nNo(4)) = nBonus(nNo(2), nNo(3), nNo(4)) + 1
nBonus(nNo(2), nNo(3), nNo(5)) = nBonus(nNo(2), nNo(3), nNo(5)) + 1
nBonus(nNo(2), nNo(3), nNo(6)) = nBonus(nNo(2), nNo(3), nNo(6)) + 1
nBonus(nNo(2), nNo(3), nNo(7)) = nBonus(nNo(2), nNo(3), nNo(7)) + 1
nBonus(nNo(2), nNo(4), nNo(5)) = nBonus(nNo(2), nNo(4), nNo(5)) + 1
nBonus(nNo(2), nNo(4), nNo(6)) = nBonus(nNo(2), nNo(4), nNo(6)) + 1
nBonus(nNo(2), nNo(4), nNo(7)) = nBonus(nNo(2), nNo(4), nNo(7)) + 1
nBonus(nNo(2), nNo(5), nNo(6)) = nBonus(nNo(2), nNo(5), nNo(6)) + 1
nBonus(nNo(2), nNo(5), nNo(7)) = nBonus(nNo(2), nNo(5), nNo(7)) + 1
nBonus(nNo(2), nNo(6), nNo(7)) = nBonus(nNo(2), nNo(6), nNo(7)) + 1
nBonus(nNo(3), nNo(4), nNo(5)) = nBonus(nNo(3), nNo(4), nNo(5)) + 1
nBonus(nNo(3), nNo(4), nNo(6)) = nBonus(nNo(3), nNo(4), nNo(6)) + 1
nBonus(nNo(3), nNo(4), nNo(7)) = nBonus(nNo(3), nNo(4), nNo(7)) + 1
nBonus(nNo(3), nNo(5), nNo(6)) = nBonus(nNo(3), nNo(5), nNo(6)) + 1
nBonus(nNo(3), nNo(5), nNo(7)) = nBonus(nNo(3), nNo(5), nNo(7)) + 1
nBonus(nNo(3), nNo(6), nNo(7)) = nBonus(nNo(3), nNo(6), nNo(7)) + 1
nBonus(nNo(4), nNo(5), nNo(6)) = nBonus(nNo(4), nNo(5), nNo(6)) + 1
nBonus(nNo(4), nNo(5), nNo(7)) = nBonus(nNo(4), nNo(5), nNo(7)) + 1
nBonus(nNo(4), nNo(6), nNo(7)) = nBonus(nNo(4), nNo(6), nNo(7)) + 1
nBonus(nNo(5), nNo(6), nNo(7)) = nBonus(nNo(5), nNo(6), nNo(7)) + 1
Next i
Sheets("Results").Select
Range("A1").Select
For i = 1 To nMaxF - 2
For j = i + 1 To nMaxF - 1
For k = j + 1 To nMaxF
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(-1, 4).Value = nBonus(i, j, k)
Next k
Next j
Next i
Columns("A:IV").AutoFit
Application.ScreenUpdating = True
End Sub
Hi Everyone,
If you REMOVE the 2 Lines ...
Application.ScreenUpdating = False
Application.ScreenUpdating = True
... from the Private Sub Bonus() Code it will make the Program Run a Little Bit Faster, and Stop the Small Screen Flicker Just Before the Results are Written to the Worksheet, well it did for me.
These 2 Lines are Already Incorporated in the Sub List_ALL_Triples() Code from which the Sub Bonus() is Called from.
Have Fun.
All the Best.
PAB
If you REMOVE the 2 Lines ...
Application.ScreenUpdating = False
Application.ScreenUpdating = True
... from the Private Sub Bonus() Code it will make the Program Run a Little Bit Faster, and Stop the Small Screen Flicker Just Before the Results are Written to the Worksheet, well it did for me.
These 2 Lines are Already Incorporated in the Sub List_ALL_Triples() Code from which the Sub Bonus() is Called from.
Have Fun.
All the Best.
PAB
Hi Again,
Just Made a Couple of Adjustments ( Including the Above ), try this One Out for Size.
Setup Instructions are Unchanged.
All the Best.
PAB
Option Explicit
Option Base 1
Public i As Integer
Public j As Integer
Public k As Integer
Public nCount As Long
Public nDraw As Integer
Public nMinA As Integer
Public nMaxF As Integer
Public nNo(7) As Integer
Public nBonus(49, 49, 49) As Integer
Public nNoBonus(49, 49, 49) As Integer
Sub List_ALL_Triples()
Application.ScreenUpdating = False
Sheets("No Bonus").Select
Range("A2").Select
nMinA = 1
nMaxF = 49
Do While ActiveCell.Value > 0
nDraw = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
For i = 1 To nDraw
For j = 1 To 7
nNo(j) = ActiveCell.Offset(i, j).Value
Next j
nNoBonus(nNo(1), nNo(2), nNo(3)) = nNoBonus(nNo(1), nNo(2), nNo(3)) + 1
nNoBonus(nNo(1), nNo(2), nNo(4)) = nNoBonus(nNo(1), nNo(2), nNo(4)) + 1
nNoBonus(nNo(1), nNo(2), nNo(5)) = nNoBonus(nNo(1), nNo(2), nNo(5)) + 1
nNoBonus(nNo(1), nNo(2), nNo(6)) = nNoBonus(nNo(1), nNo(2), nNo(6)) + 1
nNoBonus(nNo(1), nNo(3), nNo(4)) = nNoBonus(nNo(1), nNo(3), nNo(4)) + 1
nNoBonus(nNo(1), nNo(3), nNo(5)) = nNoBonus(nNo(1), nNo(3), nNo(5)) + 1
nNoBonus(nNo(1), nNo(3), nNo(6)) = nNoBonus(nNo(1), nNo(3), nNo(6)) + 1
nNoBonus(nNo(1), nNo(4), nNo(5)) = nNoBonus(nNo(1), nNo(4), nNo(5)) + 1
nNoBonus(nNo(1), nNo(4), nNo(6)) = nNoBonus(nNo(1), nNo(4), nNo(6)) + 1
nNoBonus(nNo(1), nNo(5), nNo(6)) = nNoBonus(nNo(1), nNo(5), nNo(6)) + 1
nNoBonus(nNo(2), nNo(3), nNo(4)) = nNoBonus(nNo(2), nNo(3), nNo(4)) + 1
nNoBonus(nNo(2), nNo(3), nNo(5)) = nNoBonus(nNo(2), nNo(3), nNo(5)) + 1
nNoBonus(nNo(2), nNo(3), nNo(6)) = nNoBonus(nNo(2), nNo(3), nNo(6)) + 1
nNoBonus(nNo(2), nNo(4), nNo(5)) = nNoBonus(nNo(2), nNo(4), nNo(5)) + 1
nNoBonus(nNo(2), nNo(4), nNo(6)) = nNoBonus(nNo(2), nNo(4), nNo(6)) + 1
nNoBonus(nNo(2), nNo(5), nNo(6)) = nNoBonus(nNo(2), nNo(5), nNo(6)) + 1
nNoBonus(nNo(3), nNo(4), nNo(5)) = nNoBonus(nNo(3), nNo(4), nNo(5)) + 1
nNoBonus(nNo(3), nNo(4), nNo(6)) = nNoBonus(nNo(3), nNo(4), nNo(6)) + 1
nNoBonus(nNo(3), nNo(5), nNo(6)) = nNoBonus(nNo(3), nNo(5), nNo(6)) + 1
nNoBonus(nNo(4), nNo(5), nNo(6)) = nNoBonus(nNo(4), nNo(5), nNo(6)) + 1
Next i
Sheets("Results").Select
Range("A1").Select
For i = 1 To nMaxF - 2
For j = i + 1 To nMaxF - 1
For k = j + 1 To nMaxF
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(-1, 0).Value = i
ActiveCell.Offset(-1, 1).Value = j
ActiveCell.Offset(-1, 2).Value = k
ActiveCell.Offset(-1, 3).Value = nNoBonus(i, j, k)
Next k
Next j
Next i
Call Bonus
Columns("A:IV").AutoFit
Columns("A:IV").HorizontalAlignment = xlCenter
Application.ScreenUpdating = True
End Sub
Private Sub Bonus()
Sheets("Bonus").Select
Range("A2").Select
Do While ActiveCell.Value > " "
nDraw = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
For i = 1 To nDraw
For j = 1 To 7
nNo(j) = ActiveCell.Offset(i, j).Value
Next j
nBonus(nNo(1), nNo(2), nNo(3)) = nBonus(nNo(1), nNo(2), nNo(3)) + 1
nBonus(nNo(1), nNo(2), nNo(4)) = nBonus(nNo(1), nNo(2), nNo(4)) + 1
nBonus(nNo(1), nNo(2), nNo(5)) = nBonus(nNo(1), nNo(2), nNo(5)) + 1
nBonus(nNo(1), nNo(2), nNo(6)) = nBonus(nNo(1), nNo(2), nNo(6)) + 1
nBonus(nNo(1), nNo(2), nNo(7)) = nBonus(nNo(1), nNo(2), nNo(7)) + 1
nBonus(nNo(1), nNo(3), nNo(4)) = nBonus(nNo(1), nNo(3), nNo(4)) + 1
nBonus(nNo(1), nNo(3), nNo(5)) = nBonus(nNo(1), nNo(3), nNo(5)) + 1
nBonus(nNo(1), nNo(3), nNo(6)) = nBonus(nNo(1), nNo(3), nNo(6)) + 1
nBonus(nNo(1), nNo(3), nNo(7)) = nBonus(nNo(1), nNo(3), nNo(7)) + 1
nBonus(nNo(1), nNo(4), nNo(5)) = nBonus(nNo(1), nNo(4), nNo(5)) + 1
nBonus(nNo(1), nNo(4), nNo(6)) = nBonus(nNo(1), nNo(4), nNo(6)) + 1
nBonus(nNo(1), nNo(4), nNo(7)) = nBonus(nNo(1), nNo(4), nNo(7)) + 1
nBonus(nNo(1), nNo(5), nNo(6)) = nBonus(nNo(1), nNo(5), nNo(6)) + 1
nBonus(nNo(1), nNo(5), nNo(7)) = nBonus(nNo(1), nNo(5), nNo(7)) + 1
nBonus(nNo(1), nNo(6), nNo(7)) = nBonus(nNo(1), nNo(6), nNo(7)) + 1
nBonus(nNo(2), nNo(3), nNo(4)) = nBonus(nNo(2), nNo(3), nNo(4)) + 1
nBonus(nNo(2), nNo(3), nNo(5)) = nBonus(nNo(2), nNo(3), nNo(5)) + 1
nBonus(nNo(2), nNo(3), nNo(6)) = nBonus(nNo(2), nNo(3), nNo(6)) + 1
nBonus(nNo(2), nNo(3), nNo(7)) = nBonus(nNo(2), nNo(3), nNo(7)) + 1
nBonus(nNo(2), nNo(4), nNo(5)) = nBonus(nNo(2), nNo(4), nNo(5)) + 1
nBonus(nNo(2), nNo(4), nNo(6)) = nBonus(nNo(2), nNo(4), nNo(6)) + 1
nBonus(nNo(2), nNo(4), nNo(7)) = nBonus(nNo(2), nNo(4), nNo(7)) + 1
nBonus(nNo(2), nNo(5), nNo(6)) = nBonus(nNo(2), nNo(5), nNo(6)) + 1
nBonus(nNo(2), nNo(5), nNo(7)) = nBonus(nNo(2), nNo(5), nNo(7)) + 1
nBonus(nNo(2), nNo(6), nNo(7)) = nBonus(nNo(2), nNo(6), nNo(7)) + 1
nBonus(nNo(3), nNo(4), nNo(5)) = nBonus(nNo(3), nNo(4), nNo(5)) + 1
nBonus(nNo(3), nNo(4), nNo(6)) = nBonus(nNo(3), nNo(4), nNo(6)) + 1
nBonus(nNo(3), nNo(4), nNo(7)) = nBonus(nNo(3), nNo(4), nNo(7)) + 1
nBonus(nNo(3), nNo(5), nNo(6)) = nBonus(nNo(3), nNo(5), nNo(6)) + 1
nBonus(nNo(3), nNo(5), nNo(7)) = nBonus(nNo(3), nNo(5), nNo(7)) + 1
nBonus(nNo(3), nNo(6), nNo(7)) = nBonus(nNo(3), nNo(6), nNo(7)) + 1
nBonus(nNo(4), nNo(5), nNo(6)) = nBonus(nNo(4), nNo(5), nNo(6)) + 1
nBonus(nNo(4), nNo(5), nNo(7)) = nBonus(nNo(4), nNo(5), nNo(7)) + 1
nBonus(nNo(4), nNo(6), nNo(7)) = nBonus(nNo(4), nNo(6), nNo(7)) + 1
nBonus(nNo(5), nNo(6), nNo(7)) = nBonus(nNo(5), nNo(6), nNo(7)) + 1
Next i
Sheets("Results").Select
Range("A1").Select
For i = 1 To nMaxF - 2
For j = i + 1 To nMaxF - 1
For k = j + 1 To nMaxF
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(-1, 4).Value = nBonus(i, j, k)
Next k
Next j
Next i
End Sub
Just Made a Couple of Adjustments ( Including the Above ), try this One Out for Size.
Setup Instructions are Unchanged.
All the Best.
PAB
Option Explicit
Option Base 1
Public i As Integer
Public j As Integer
Public k As Integer
Public nCount As Long
Public nDraw As Integer
Public nMinA As Integer
Public nMaxF As Integer
Public nNo(7) As Integer
Public nBonus(49, 49, 49) As Integer
Public nNoBonus(49, 49, 49) As Integer
Sub List_ALL_Triples()
Application.ScreenUpdating = False
Sheets("No Bonus").Select
Range("A2").Select
nMinA = 1
nMaxF = 49
Do While ActiveCell.Value > 0
nDraw = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
For i = 1 To nDraw
For j = 1 To 7
nNo(j) = ActiveCell.Offset(i, j).Value
Next j
nNoBonus(nNo(1), nNo(2), nNo(3)) = nNoBonus(nNo(1), nNo(2), nNo(3)) + 1
nNoBonus(nNo(1), nNo(2), nNo(4)) = nNoBonus(nNo(1), nNo(2), nNo(4)) + 1
nNoBonus(nNo(1), nNo(2), nNo(5)) = nNoBonus(nNo(1), nNo(2), nNo(5)) + 1
nNoBonus(nNo(1), nNo(2), nNo(6)) = nNoBonus(nNo(1), nNo(2), nNo(6)) + 1
nNoBonus(nNo(1), nNo(3), nNo(4)) = nNoBonus(nNo(1), nNo(3), nNo(4)) + 1
nNoBonus(nNo(1), nNo(3), nNo(5)) = nNoBonus(nNo(1), nNo(3), nNo(5)) + 1
nNoBonus(nNo(1), nNo(3), nNo(6)) = nNoBonus(nNo(1), nNo(3), nNo(6)) + 1
nNoBonus(nNo(1), nNo(4), nNo(5)) = nNoBonus(nNo(1), nNo(4), nNo(5)) + 1
nNoBonus(nNo(1), nNo(4), nNo(6)) = nNoBonus(nNo(1), nNo(4), nNo(6)) + 1
nNoBonus(nNo(1), nNo(5), nNo(6)) = nNoBonus(nNo(1), nNo(5), nNo(6)) + 1
nNoBonus(nNo(2), nNo(3), nNo(4)) = nNoBonus(nNo(2), nNo(3), nNo(4)) + 1
nNoBonus(nNo(2), nNo(3), nNo(5)) = nNoBonus(nNo(2), nNo(3), nNo(5)) + 1
nNoBonus(nNo(2), nNo(3), nNo(6)) = nNoBonus(nNo(2), nNo(3), nNo(6)) + 1
nNoBonus(nNo(2), nNo(4), nNo(5)) = nNoBonus(nNo(2), nNo(4), nNo(5)) + 1
nNoBonus(nNo(2), nNo(4), nNo(6)) = nNoBonus(nNo(2), nNo(4), nNo(6)) + 1
nNoBonus(nNo(2), nNo(5), nNo(6)) = nNoBonus(nNo(2), nNo(5), nNo(6)) + 1
nNoBonus(nNo(3), nNo(4), nNo(5)) = nNoBonus(nNo(3), nNo(4), nNo(5)) + 1
nNoBonus(nNo(3), nNo(4), nNo(6)) = nNoBonus(nNo(3), nNo(4), nNo(6)) + 1
nNoBonus(nNo(3), nNo(5), nNo(6)) = nNoBonus(nNo(3), nNo(5), nNo(6)) + 1
nNoBonus(nNo(4), nNo(5), nNo(6)) = nNoBonus(nNo(4), nNo(5), nNo(6)) + 1
Next i
Sheets("Results").Select
Range("A1").Select
For i = 1 To nMaxF - 2
For j = i + 1 To nMaxF - 1
For k = j + 1 To nMaxF
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(-1, 0).Value = i
ActiveCell.Offset(-1, 1).Value = j
ActiveCell.Offset(-1, 2).Value = k
ActiveCell.Offset(-1, 3).Value = nNoBonus(i, j, k)
Next k
Next j
Next i
Call Bonus
Columns("A:IV").AutoFit
Columns("A:IV").HorizontalAlignment = xlCenter
Application.ScreenUpdating = True
End Sub
Private Sub Bonus()
Sheets("Bonus").Select
Range("A2").Select
Do While ActiveCell.Value > " "
nDraw = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
For i = 1 To nDraw
For j = 1 To 7
nNo(j) = ActiveCell.Offset(i, j).Value
Next j
nBonus(nNo(1), nNo(2), nNo(3)) = nBonus(nNo(1), nNo(2), nNo(3)) + 1
nBonus(nNo(1), nNo(2), nNo(4)) = nBonus(nNo(1), nNo(2), nNo(4)) + 1
nBonus(nNo(1), nNo(2), nNo(5)) = nBonus(nNo(1), nNo(2), nNo(5)) + 1
nBonus(nNo(1), nNo(2), nNo(6)) = nBonus(nNo(1), nNo(2), nNo(6)) + 1
nBonus(nNo(1), nNo(2), nNo(7)) = nBonus(nNo(1), nNo(2), nNo(7)) + 1
nBonus(nNo(1), nNo(3), nNo(4)) = nBonus(nNo(1), nNo(3), nNo(4)) + 1
nBonus(nNo(1), nNo(3), nNo(5)) = nBonus(nNo(1), nNo(3), nNo(5)) + 1
nBonus(nNo(1), nNo(3), nNo(6)) = nBonus(nNo(1), nNo(3), nNo(6)) + 1
nBonus(nNo(1), nNo(3), nNo(7)) = nBonus(nNo(1), nNo(3), nNo(7)) + 1
nBonus(nNo(1), nNo(4), nNo(5)) = nBonus(nNo(1), nNo(4), nNo(5)) + 1
nBonus(nNo(1), nNo(4), nNo(6)) = nBonus(nNo(1), nNo(4), nNo(6)) + 1
nBonus(nNo(1), nNo(4), nNo(7)) = nBonus(nNo(1), nNo(4), nNo(7)) + 1
nBonus(nNo(1), nNo(5), nNo(6)) = nBonus(nNo(1), nNo(5), nNo(6)) + 1
nBonus(nNo(1), nNo(5), nNo(7)) = nBonus(nNo(1), nNo(5), nNo(7)) + 1
nBonus(nNo(1), nNo(6), nNo(7)) = nBonus(nNo(1), nNo(6), nNo(7)) + 1
nBonus(nNo(2), nNo(3), nNo(4)) = nBonus(nNo(2), nNo(3), nNo(4)) + 1
nBonus(nNo(2), nNo(3), nNo(5)) = nBonus(nNo(2), nNo(3), nNo(5)) + 1
nBonus(nNo(2), nNo(3), nNo(6)) = nBonus(nNo(2), nNo(3), nNo(6)) + 1
nBonus(nNo(2), nNo(3), nNo(7)) = nBonus(nNo(2), nNo(3), nNo(7)) + 1
nBonus(nNo(2), nNo(4), nNo(5)) = nBonus(nNo(2), nNo(4), nNo(5)) + 1
nBonus(nNo(2), nNo(4), nNo(6)) = nBonus(nNo(2), nNo(4), nNo(6)) + 1
nBonus(nNo(2), nNo(4), nNo(7)) = nBonus(nNo(2), nNo(4), nNo(7)) + 1
nBonus(nNo(2), nNo(5), nNo(6)) = nBonus(nNo(2), nNo(5), nNo(6)) + 1
nBonus(nNo(2), nNo(5), nNo(7)) = nBonus(nNo(2), nNo(5), nNo(7)) + 1
nBonus(nNo(2), nNo(6), nNo(7)) = nBonus(nNo(2), nNo(6), nNo(7)) + 1
nBonus(nNo(3), nNo(4), nNo(5)) = nBonus(nNo(3), nNo(4), nNo(5)) + 1
nBonus(nNo(3), nNo(4), nNo(6)) = nBonus(nNo(3), nNo(4), nNo(6)) + 1
nBonus(nNo(3), nNo(4), nNo(7)) = nBonus(nNo(3), nNo(4), nNo(7)) + 1
nBonus(nNo(3), nNo(5), nNo(6)) = nBonus(nNo(3), nNo(5), nNo(6)) + 1
nBonus(nNo(3), nNo(5), nNo(7)) = nBonus(nNo(3), nNo(5), nNo(7)) + 1
nBonus(nNo(3), nNo(6), nNo(7)) = nBonus(nNo(3), nNo(6), nNo(7)) + 1
nBonus(nNo(4), nNo(5), nNo(6)) = nBonus(nNo(4), nNo(5), nNo(6)) + 1
nBonus(nNo(4), nNo(5), nNo(7)) = nBonus(nNo(4), nNo(5), nNo(7)) + 1
nBonus(nNo(4), nNo(6), nNo(7)) = nBonus(nNo(4), nNo(6), nNo(7)) + 1
nBonus(nNo(5), nNo(6), nNo(7)) = nBonus(nNo(5), nNo(6), nNo(7)) + 1
Next i
Sheets("Results").Select
Range("A1").Select
For i = 1 To nMaxF - 2
For j = i + 1 To nMaxF - 1
For k = j + 1 To nMaxF
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(-1, 4).Value = nBonus(i, j, k)
Next k
Next j
Next i
End Sub
Hi Everyone,
I Ran the Above Program Against the 2,201 Draws for the Canadian 649 Lotto Upto and Including the 23rd of February 2005. The Results are Below. Could Somebody let me know if they are OK Please.
ALL Triples as at Draw 2,201
Times Excluding Inluding
Drawn Bonus Bonus
0 1,739 280
1 3,965 1,214
2 4,845 2,433
3 3,870 3,442
4 2,260 3,569
5 1,081 2,955
6 436 2,121
7 159 1,238
8 46 665
9 18 311
10 4 122
11 1 45
12 0 25
13 0 4
14 0 0
15 0 0
18 0 0
19 0 0
20 0 0
Total 18,424 18,424
Process Time 00:01:46
Thanks in Advance.
All the Best.
PAB
I Ran the Above Program Against the 2,201 Draws for the Canadian 649 Lotto Upto and Including the 23rd of February 2005. The Results are Below. Could Somebody let me know if they are OK Please.
ALL Triples as at Draw 2,201
Times Excluding Inluding
Drawn Bonus Bonus
0 1,739 280
1 3,965 1,214
2 4,845 2,433
3 3,870 3,442
4 2,260 3,569
5 1,081 2,955
6 436 2,121
7 159 1,238
8 46 665
9 18 311
10 4 122
11 1 45
12 0 25
13 0 4
14 0 0
15 0 0
18 0 0
19 0 0
20 0 0
Total 18,424 18,424
Process Time 00:01:46
Thanks in Advance.
All the Best.
PAB
bloubul
Member
GillesD
I've created the macro as you give.
No, how do you use these info?.
A total of 437 draws of our lotto it gives me the following "Results".
1 2 3 2 2
1 2 4 1 1
1 2 5 1 1
1 2 6 0 1
1 2 7 0 0
1 2 8 1 1
1 2 9 0 2
1 2 10 1 2
1 2 11 0 0
1 2 12 0 1
1 2 13 1 1
1 2 14 1 1
1 2 15 0 1
1 2 16 1 1
1 2 17 0 0
1 2 18 1 1
1 2 19 1 1
1 2 20 1 2
1 2 21 0 0
1 2 22 0 0
1 2 23 1 1
1 2 24 2 3
1 2 25 0 1
1 2 26 1 2
1 2 27 0 0
This is only a few "Results"
Would you also please give me a similar macro to determine the optimum set as you have not send me a copy of your spreadsheet as yet.
Any info how to use the above in future draws are welcome
BlouBul
I've created the macro as you give.
No, how do you use these info?.
A total of 437 draws of our lotto it gives me the following "Results".
1 2 3 2 2
1 2 4 1 1
1 2 5 1 1
1 2 6 0 1
1 2 7 0 0
1 2 8 1 1
1 2 9 0 2
1 2 10 1 2
1 2 11 0 0
1 2 12 0 1
1 2 13 1 1
1 2 14 1 1
1 2 15 0 1
1 2 16 1 1
1 2 17 0 0
1 2 18 1 1
1 2 19 1 1
1 2 20 1 2
1 2 21 0 0
1 2 22 0 0
1 2 23 1 1
1 2 24 2 3
1 2 25 0 1
1 2 26 1 2
1 2 27 0 0
This is only a few "Results"
Would you also please give me a similar macro to determine the optimum set as you have not send me a copy of your spreadsheet as yet.
Any info how to use the above in future draws are welcome
BlouBul
bloubul
Member
Using Excell to Determine Triples
PAB
First, thanks very much for your help, all the info looks different from the old info no wonder I did win. ( But it's not long now.)
Will it be possible for you to write a macro to look for 4 numbers and not only 3 numbers? I think it will be interesting to see what comes up.
BlouBul
PAB
First, thanks very much for your help, all the info looks different from the old info no wonder I did win. ( But it's not long now.)
Will it be possible for you to write a macro to look for 4 numbers and not only 3 numbers? I think it will be interesting to see what comes up.
BlouBul
Hi BlouBul,
I Downloaded ALL the South African 649 Lotto Results from …
http://www.nationallottery.co.za/ie/DrawResults.asp
The Following Tables ( Excluding AND Including the Bonus Number ) are a Breakdown of ALL 211,876 Combinations of 4 Numbers ( Quadruples ) from 49 Numbers as at Draw 447 ( Saturday the 2nd of April 2005 ).
Excluding the Bonus Number :-
Drawn 0 205,266
Drawn 1 6,518
Drawn 2 89
Drawn 3 3
Drawn 4 0
Total Combinations Checked 211,876
The 3 Combinations of 4 Numbers Drawn 3 Times are :-
01 11 22 42
06 16 22 47
13 19 38 45
Including the Bonus Number :-
Drawn 0 196,789
Drawn 1 14,555
Drawn 2 507
Drawn 3 24
Drawn 4 1
Total Combinations Checked 211,876
The 1 Combination of 4 Numbers Drawn 1 Time is :-
01 11 22 42
Hope this Helps.
All the Best.
PAB
I Downloaded ALL the South African 649 Lotto Results from …
http://www.nationallottery.co.za/ie/DrawResults.asp
The Following Tables ( Excluding AND Including the Bonus Number ) are a Breakdown of ALL 211,876 Combinations of 4 Numbers ( Quadruples ) from 49 Numbers as at Draw 447 ( Saturday the 2nd of April 2005 ).
Excluding the Bonus Number :-
Drawn 0 205,266
Drawn 1 6,518
Drawn 2 89
Drawn 3 3
Drawn 4 0
Total Combinations Checked 211,876
The 3 Combinations of 4 Numbers Drawn 3 Times are :-
01 11 22 42
06 16 22 47
13 19 38 45
Including the Bonus Number :-
Drawn 0 196,789
Drawn 1 14,555
Drawn 2 507
Drawn 3 24
Drawn 4 1
Total Combinations Checked 211,876
The 1 Combination of 4 Numbers Drawn 1 Time is :-
01 11 22 42
Hope this Helps.
All the Best.
PAB
bloubul
Member
Using Excell to Determine Triples
Hi PAB
Sorry for the late response, but our file server has decided it had enough of us and left.
Thanks for that information.
PAB, in your COMBO you don't cater for 3+ and 4+, any reason or will it become to big.
Maybe you can help me with this problem in your and GillesD Triples Macro.
Numbers Count1 Count2
1 2 3 2 2
1 2 4 1 1
1 2 5 1 1
1 2 6 0 1
1 2 7 0 0
1 2 8 1 1
1 2 9 0 2
1 2 10 1 2
1 2 11 0 0
Which one of the 2 counts must be used to determine the best triples? If I run it again after the first run Count2 increases but there is no change to Count1.
Thanks
BlouBul
Hi PAB
Sorry for the late response, but our file server has decided it had enough of us and left.
Thanks for that information.
PAB, in your COMBO you don't cater for 3+ and 4+, any reason or will it become to big.
Maybe you can help me with this problem in your and GillesD Triples Macro.
Numbers Count1 Count2
1 2 3 2 2
1 2 4 1 1
1 2 5 1 1
1 2 6 0 1
1 2 7 0 0
1 2 8 1 1
1 2 9 0 2
1 2 10 1 2
1 2 11 0 0
Which one of the 2 counts must be used to determine the best triples? If I run it again after the first run Count2 increases but there is no change to Count1.
Thanks
BlouBul
Hi BlouBul,
The South African Lotto Draws SIX Main Balls and ONE Bonus Ball from a Pool of 49 Numbers. I Did NOT Realise that the Bonus Ball is Also Taken into Consideration when Matching 3 AND 4 Main Numbers as Well as Matching 5 Main Numbers. I Learnt Something Today.
Your Request was to Look for 4 Numbers ( Quadruples ) to see if Anything Interesting came up.
The 3 + the Bonus Ball is Catered for in Effect ( in the Quadruples Including the Bonus Ball Table ) by the Fact that ALL 18,424 Combinations of 3 Numbers ( Triples ) are Accounted for with the Addition of the Bonus Ball, Although this is Not Really Relevant in Regard to the Tables I Listed.
The 4 + the Bonus Ball would Make 5 Numbers in Total and is a Totally Different Scenario.
The Number Immediately to the Right of the Word "Drawn" is the Number of Times Quadruples have Been Drawn, that is my Fault for Not Making it Clearer, Sorry. The Tables are Basically the Total Number of Times ALL 211,876 Quadruples have Been Drawn in the South African 649 Lotto. I have Listed the Revised Worded Tables Excluding AND Including the Bonus Ball Again. Both Tables are as at Draw 447 ( Saturday the 2nd of April 2005 ).
Sorry About the Confusion.
Quadruples Excluding the Bonus Ball :-
Quadruples Drawn 0 Times = 205,266
Quadruples Drawn 1 Time = 6,518
Quadruples Drawn 2 Times = 89
Quadruples Drawn 3 Times = 3
Quadruples Drawn 4 Times = 0
Total Quadruples Checked 211,876
The 3 Quadruples Drawn 3 Times are :-
01 11 22 42
06 16 22 47
13 19 38 45
Quadruples Including the Bonus Ball :-
Quadruples Drawn 0 Times = 196,789
Quadruples Drawn 1 Time = 14,555
Quadruples Drawn 2 Times = 507
Quadruples Drawn 3 Times = 24
Quadruples Drawn 4 Times = 1
Total Quadruples Checked 211,876
The 1 Quadruple Drawn 4 Times is :-
01 11 22 42
I will have a Look at why the Macro does that Over the Weekend. I Didn't have Any Problems with it, But there Again I Only Run it the Once. Out of Interest, why do you Need to Run it More than Once when the First Run Produces the Correct Results. The Macro is Probably Not the Best Coding in the World, But it did Achieve the Required Results.
Count 1 is Actually the Times Drawn EXCLUDING the Bonus Ball.
Count 2 is Actually the Times Drawn INCLUDING the Bonus Ball.
All the Best.
PAB
The South African Lotto Draws SIX Main Balls and ONE Bonus Ball from a Pool of 49 Numbers. I Did NOT Realise that the Bonus Ball is Also Taken into Consideration when Matching 3 AND 4 Main Numbers as Well as Matching 5 Main Numbers. I Learnt Something Today.
Your Request was to Look for 4 Numbers ( Quadruples ) to see if Anything Interesting came up.
The 3 + the Bonus Ball is Catered for in Effect ( in the Quadruples Including the Bonus Ball Table ) by the Fact that ALL 18,424 Combinations of 3 Numbers ( Triples ) are Accounted for with the Addition of the Bonus Ball, Although this is Not Really Relevant in Regard to the Tables I Listed.
The 4 + the Bonus Ball would Make 5 Numbers in Total and is a Totally Different Scenario.
The Number Immediately to the Right of the Word "Drawn" is the Number of Times Quadruples have Been Drawn, that is my Fault for Not Making it Clearer, Sorry. The Tables are Basically the Total Number of Times ALL 211,876 Quadruples have Been Drawn in the South African 649 Lotto. I have Listed the Revised Worded Tables Excluding AND Including the Bonus Ball Again. Both Tables are as at Draw 447 ( Saturday the 2nd of April 2005 ).
Sorry About the Confusion.
Quadruples Excluding the Bonus Ball :-
Quadruples Drawn 0 Times = 205,266
Quadruples Drawn 1 Time = 6,518
Quadruples Drawn 2 Times = 89
Quadruples Drawn 3 Times = 3
Quadruples Drawn 4 Times = 0
Total Quadruples Checked 211,876
The 3 Quadruples Drawn 3 Times are :-
01 11 22 42
06 16 22 47
13 19 38 45
Quadruples Including the Bonus Ball :-
Quadruples Drawn 0 Times = 196,789
Quadruples Drawn 1 Time = 14,555
Quadruples Drawn 2 Times = 507
Quadruples Drawn 3 Times = 24
Quadruples Drawn 4 Times = 1
Total Quadruples Checked 211,876
The 1 Quadruple Drawn 4 Times is :-
01 11 22 42
I will have a Look at why the Macro does that Over the Weekend. I Didn't have Any Problems with it, But there Again I Only Run it the Once. Out of Interest, why do you Need to Run it More than Once when the First Run Produces the Correct Results. The Macro is Probably Not the Best Coding in the World, But it did Achieve the Required Results.
Count 1 is Actually the Times Drawn EXCLUDING the Bonus Ball.
Count 2 is Actually the Times Drawn INCLUDING the Bonus Ball.
All the Best.
PAB
Last edited:
For Anyone who has been Following this Thread and is Interested, I have Started a New Thread with an Updated Version of the Macro.
http://www.lotto649.ws/showthread.php?s=&postid=84241#post84241
The Macro can be Run as Many Times as you like Without the Figures Becoming Corrupted.
Have Fun!.
All the Best.
PAB
http://www.lotto649.ws/showthread.php?s=&postid=84241#post84241
The Macro can be Run as Many Times as you like Without the Figures Becoming Corrupted.
Have Fun!.
All the Best.
PAB