Welcome Guest
Log In | Register )
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
PrintE-mailLink
ncognito88's avatar - Lottery-051.jpg

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

    Avatar

    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

      Avatar
      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.

        ncognito88's avatar - Lottery-051.jpg

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

        Ok thanks

          Avatar
          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
            Avatar
            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!

              Avatar
              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.

                Avatar
                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

                  Avatar
                  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