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

Quote: Originally posted by ncognito88 on April 27, 2016

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.

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.

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.

Here's the latest version so far...

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

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.

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

Hellothe goalis to filternot playingtherepeateddigitin the same position I do not knowifyou get the idea, of coursewill havetoplayoutthe standardfrom 1 to 5draws, TheWinsumcan improvetheplaniliapick3withmore filters