Welcome Guest
You last visited December 6, 2016, 12:39 am
All times shown are
Eastern Time (GMT-5:00)

# Are there any lotto systems using last numbers drawn?

Topic closed. 8 replies. Last post 7 months ago by dr san.

 Page 1 of 1

United States
Member #172169
January 17, 2016
52 Posts
Offline
 Posted: April 27, 2016, 8:20 am - IP Logged

How would like to find a system for using last numbers drawn to help select the next winning numbers. Is this just wishful thinking or is it possible?  thanks

United States
Member #42083
June 27, 2006
488 Posts
Offline
 Posted: April 27, 2016, 9:11 am - IP Logged

How would like to find a system for using last numbers drawn to help select the next winning numbers. Is this just wishful thinking or is it possible?  thanks

Your question is a little vague and therefore you may not get too many responses.

Virtually all systems use last number drawn and others to get a final result. Will you find one that will just spit out out the right number. Not without some effort.

I see you are in NC. Follow the thread found in pick 3 forum and learn from the mentors there. Read the posts, study what they are doing and learn, learn, learn. No system will give just one winning number. It will give a range and you will still have to make a decision.

One game......many ways to get there.

Rock Chalk Jayhawk

Lincoln, California
United States
Member #167130
June 27, 2015
256 Posts
Offline
 Posted: April 27, 2016, 9:49 am - IP Logged

I have been working on a system that tracks Repeat Numbers.  There are many things that can be done with this in combination with other filters like Odd Even.

Try searching the Posts with some key words and you will find a few days of reading to enlighten you.

United States
Member #172169
January 17, 2016
52 Posts
Offline
 Posted: April 27, 2016, 9:49 am - IP Logged

Ok thanks

bgonÃ§alves
Brasil
Member #92564
June 9, 2010
2122 Posts
Offline
 Posted: April 27, 2016, 11:37 am - IP Logged

hello nco, pick3

excel 2010

I've changed a couple of conditions
- Extending the range covered by the sum of the digits to 7 - 19. (covers 75% theoretically) and a digit must have appeared in the previous 13 draws (again 75%)

I may have to start parameterizing things a bit soon, i.e. put some values as cells on the sheet and the user can vary them as currently, I have to keep on editing the code. However, before I can do that, I'll have to join a site where I can upload files.

In the meantime, you can experiment a bit because at the start, you are prompted to choose which filters you want to run and which you want to leave out.

----------------------------------

Sub mFilterData()
Const DIALOG_BOX_TITLE = "Pick 3 Filtering"
'
Dim arrCurrPerm(2) As Byte
Dim arrMedDigits(9, 2) As Boolean
Dim arrPrevDraw(2) As Byte
Dim b As Byte
Dim b1 As Byte
Dim b2 As Byte
Dim b3 As Byte
Dim b10 As Byte
Dim b11 As Byte
Dim blnFilterFail As Boolean
Dim blnFltrAllEO As Boolean
Dim blnFltrAllHL As Boolean
Dim blnFltrTotal As Boolean
Dim blnFltrMedian As Boolean
Dim blnFltrPrevDrawSDP As Boolean
Dim blnFltrPrevDraw1D As Boolean
Dim bytNumEven As Byte
Dim bytNumOdd As Byte
Dim bytNumLow As Byte
Dim bytNumHigh As Byte
Dim bytNumInPrevDraw As Byte
Dim bytSumNums As Byte
Dim intNumRows As Integer
'
Sheets("Filtering").Select
'
' Initialising
'
' Clear the previous selection
Range("H2:J1001").ClearContents
'
' Setup
'
' Get the previous draw
Sheets("Filtering").Select
Range("F1").Select
Selection.End(xlDown).Offset(0, -5).Select
For b = 0 To 2
arrPrevDraw(b) = ActiveCell.Offset(0, b).Value
Next b
'
' Note which digits that have appeared in the previous 13 draws
For b1 = 0 To 12
For b2 = 0 To 2
arrMedDigits(ActiveCell.Offset(0, b2).Value, b2) = True
Next b2
ActiveCell.Offset(-1, 0).Select
Next b1
'
' Choose the filters to use
blnFltrAllEO = MsgBox("Remove if all three digits even or odd", vbYesNo, DIALOG_BOX_TITLE) = vbYes
blnFltrAllHL = MsgBox("Remove if all three digits 0-4 or 5-9", vbYesNo, DIALOG_BOX_TITLE) = vbYes
blnFltrTotal = MsgBox("Sum of digits in the range 7-19 (75%)", vbYesNo, DIALOG_BOX_TITLE) = vbYes
blnFltrMedian = MsgBox("Digit must have appeared in the last 13 draws (75%)", vbYesNo, DIALOG_BOX_TITLE) = vbYes
blnFltrPrevDrawSDP = MsgBox("Remove if digit in same position (1st/2nd/3rd) in the previous draw", vbYesNo, DIALOG_BOX_TITLE) = vbYes
blnFltrPrevDraw1D = MsgBox("One of the three digits must be in the previous draw", vbYesNo, DIALOG_BOX_TITLE) = vbYes
'
' Do the filtering
For b1 = 0 To 9
For b2 = 0 To 9
For b3 = 0 To 9
' Setup
arrCurrPerm(0) = b1: arrCurrPerm(1) = b2: arrCurrPerm(2) = b3 'Easier to work with arrays
blnFilterFail = False
'
' Eliminate rows containing all evens or all odds
If Not blnFilterFail Then
If blnFltrAllEO Then
bytNumEven = 0
bytNumOdd = 0
For b = 0 To 2
If (arrCurrPerm(b) Mod 2) = 0 Then
bytNumEven = bytNumEven + 1
ElseIf (arrCurrPerm(b) Mod 2) = 1 Then
bytNumOdd = bytNumOdd + 1
End If
Next b
'
If bytNumEven = 3 Then
blnFilterFail = True
ElseIf bytNumOdd = 3 Then
blnFilterFail = True
End If
End If
End If
'
' Eliminate rows containing all low (0-4) or high (5-9) numbers
If Not blnFilterFail Then
If blnFltrAllHL Then
bytNumLow = 0
bytNumHigh = 0
For b = 0 To 2
If arrCurrPerm(b) < 5 Then
bytNumLow = bytNumLow + 1
ElseIf arrCurrPerm(b) > 4 Then
bytNumHigh = bytNumHigh + 1
End If
Next b
'
If bytNumLow = 3 Then
blnFilterFail = True
ElseIf bytNumHigh = 3 Then
blnFilterFail = True
End If
End If
End If
'
' Keep if the sum of the digits between 7 and 19
If Not blnFilterFail Then
If blnFltrTotal Then
bytSumNums = 0
For b = 0 To 2
bytSumNums = bytSumNums + arrCurrPerm(b)
Next b
If bytSumNums < 7 Then
blnFilterFail = True
ElseIf bytSumNums > 19 Then
blnFilterFail = True
End If
End If
End If
'
' Eliminate rows that have digits that have not appeared in the last 13 draws
If Not blnFilterFail Then
If blnFltrMedian Then
For b = 0 To 2
If Not arrMedDigits(arrCurrPerm(b), b) Then
blnFilterFail = True
b = 2
End If
Next b
End If
End If
'
' Eliminate all arrangements where a digit is in the same position as the previous draw
If Not blnFilterFail Then
If blnFltrPrevDrawSDP Then
For b = 0 To 2
If arrCurrPerm(b) = arrPrevDraw(b) Then
blnFilterFail = True
b = 2
End If
Next b
End If
End If
'
' Keep if one and only one of the digits was in the previous draw
If Not blnFilterFail Then
If blnFltrPrevDraw1D Then
bytNumInPrevDraw = 0
For b10 = 0 To 2
For b11 = 0 To 2
If arrCurrPerm(b10) = arrPrevDraw(b11) Then
bytNumInPrevDraw = bytNumInPrevDraw + 1
b11 = 2
End If
Next b11
Next b10
If bytNumInPrevDraw <> 1 Then
blnFilterFail = True
End If
End If
End If
'
' Increment the row count if the arrangement has passed all filters
If Not blnFilterFail Then
For b = 0 To 2
Range("H2").Offset(intNumRows, b).Value = arrCurrPerm(b)
Next b
intNumRows = intNumRows + 1
End If
Next b3
Next b2
Next b1
'
Range("G1").Select
MsgBox intNumRows & " rows left after filtering", vbInformation
End Sub
bgonÃ§alves
Brasil
Member #92564
June 9, 2010
2122 Posts
Offline
 Posted: April 27, 2016, 11:39 am - IP Logged

hello man

Had some bonus time to work on this. I've made a few upgrades to the spreadsheet (*1). There are a few more filters

1) On a couple of the earlier filters, you can now enter the values rather than having a default set

2) When each digit is converted to binary (base 2), if all three binary digits in a given position are the same, then the permutation is filtered out. There's one for the second binary digit, and one for the third, counting from right to left. The first one determines if a number is even or odd, so that is already catered for

3) Taking all three digits as a whole, then at least m digits must have appeared in the last n draws. These are configurable.
Note that when using these filters, at least the number of draws must be selected, otherwise an error will be generated. For example, if you select to have at least two digits in the last seven draws, then at least seven draws must be selected.

4) All three digits must be different

5) Toggle a number in each position between even and odd, i.e. if the first digit in the previous draw was even, then change to odd, and vice versa. This filter on its own reduces the total number of permutations to 125, so you may want to leave this one out unless you have a lot of arrangements you want to reduce.

The Sum of digits above 13 (Y/N) filter still works, but is redundant as I've modified an earlier filter so that you can add the range of values the sum of digits must lie between.

The Nxt Draw P/F column shows the filters passed and failed by the next draw. It's a useful feature because you may decide to leave out some filters, or adjust the numbers if you feel that one filter is filtering out too many winning draws.

The Def. Prms columns have default values. I've left in the ones I've been using, so replace them with your own here.

In terms of shortcut keys, there are two extra ones.
[CTRL]+[SHIFT]+[A] - Runs the filter code (as before)
[CTRL]+[SHIFT]+[b] - Clears all the filter fields
[CTRL]+[SHIFT]+[C] - Copies all of the default filter values to the filter fields (saves you typing them in each time)

I've left in the best performance with the data I've been working with, so you can get an idea of how everything is working. Getting down to 2 rows with one match is the best so far, with virtually all the filters used. I’ll continue to collate data and test things and see what happens.

With the values I've been using, you will find that on a few occasions, no rows are generated. This is not a bug! It means that if you were to play with the combinations generated, there will not be many, so hopefully, in theory, less money to spend before a match.

Good luck!

bgonÃ§alves
Brasil
Member #92564
June 9, 2010
2122 Posts
Offline
 Posted: April 27, 2016, 11:45 am - IP Logged

You've changed the contents of the first row for columns A, B, C. These are header columns; 1 for 1st number, 2 for 2nd number, 3 for third number. The same applies for row 2 of columns H, I, J.

As it stands, no rows were generated because there were none that passed all of the filters. The F and P's in column O show which filters were failed (F) or passed (P) by the next draw 420.

If you want to see some rows returned, then try changing (or removing by leaving the grey cells empty) in columns M and N. For example, if you were to remove all the filters that the next draw failed on, then you will find that 48 rows are generated. You can then see if you can reduce the combinations by the range of parameters entered in some filters

e.g. for the At least m digits in the last n draws filter, if you use 2 and 7, then you will find that the next draw 420 will pass this filter (2 appeared 5 draws previously in that column and 0 appeared 7 draws previously in that column). The number of combinations comes down to 16!

Again, restricting the range of digits to be in the range 000 - 499 (Draw number in range m-n), reduces the combinations further to 10

Again, having at least one digit in the last two draws reduces the combinations to 8.

Experimenting in this way may give you an idea of when to use which filters. For example if one draw was 247, then you may decide to restrict the range of numbers either to be 500 or more (247 is below 500) or just 248 or more.

bgonÃ§alves
Brasil
Member #92564
June 9, 2010
2122 Posts
Offline
 Posted: April 27, 2016, 12:10 pm - IP Logged

Hello the goal is to filter not playing the repeated digit in the same position
I do not know if you get the idea, of course will have to play out the standard from 1 to 5 draws,
The Winsum can improve the planilia pick3 with more filters

bgonÃ§alves
Brasil
Member #92564
June 9, 2010
2122 Posts
Offline
 Posted: April 27, 2016, 12:27 pm - IP Logged

Hello conditions to work = Must repeat the last digit in the draw but not in the same position The Monel has very good filters to apply can use If anyone knows excel forum and want to be the will to Improve planilia

 Page 1 of 1