Welcome Guest
Log In | Register )
You last visited January 18, 2017, 11:21 pm
All times shown are
Eastern Time (GMT-5:00)

pick 3 separete, position

Topic closed. 50 replies. Last post 1 year ago by dr san.

Page 2 of 4
51
PrintE-mailLink
Avatar
new jersey
United States
Member #150815
December 31, 2013
513 Posts
Offline
Posted: August 12, 2015, 8:14 pm - IP Logged

the  instructions  are  dificult  to  follow

    Avatar
    bgonçalves
    Brasil
    Member #92564
    June 9, 2010
    2133 Posts
    Offline
    Posted: August 12, 2015, 9:14 pm - IP Logged

    the  instructions  are  dificult  to  follow

    Hello river, problem with google translator
    But the goal is not to repeat in the last position to the next
    So we have a 96 digit times 3 digits not known what will repeat
      96x = 3 = 294 at 100% here goes filters

      RL-RANDOMLOGIC's avatar - usafce

      United States
      Member #59354
      March 13, 2008
      4076 Posts
      Offline
      Posted: August 13, 2015, 6:07 am - IP Logged

      dr san

      Do you have a copy of the DMP-DG that Winsum posted.  I have another very old P3 program that may

      help in what your doing, below is a pic.  It might be adaptable to what your working on but not sure.

      Looks interesting but I need to study it a little more.

      RL

      I converted this to qb64 a few years back but never got around to using it.

      old p-3

      Working on my Ph.D.  "University of hard Knocks"

      I will consider the opinion that my winnings are a product of chance if you are willing to consider

      they are not.  Many great discoveries come while searching for something else

      USAF https://en.wikipedia.org/wiki/Prime_Base_Engineer_Emergency_Force

        US Flag Trump / 2016 & 2020  

        Avatar
        bgonçalves
        Brasil
        Member #92564
        June 9, 2010
        2133 Posts
        Offline
        Posted: August 13, 2015, 7:01 am - IP Logged

        Hello,RL we have rl we have four basic conditions for the last draw of the pick 3 = repeat every three digits = ie play the same
        * Repeats two digits = have a couple, not repeats or a digit
        * And repeat the digit (our study) then repeat the digit in 68% to 100% giving this standard profit tremor
        500-296 = we are spending a euro = 296 and we will win 500 = 204 profit
        In stats you can see the reps in columns 5, or 10 or 20 draws
          Where transiting the repetitions and its sweepstakes intervals
        RL Or you can also take the other condition for the remaining 7 digits
          The last draw
        * And make pairs (two digits) 7 x2 = 21
        * The third digit is the last draw that repeating
          so it's three, repeats a 21 x3 = 63,
        example
        The last deu123 left 4,5,6,7,8,9,0 (remaining 7 digits)
          Find pairs is 7 x2 = 21 pairs the 3rd digit is the last draw
          How does not know which lacks
          inversion ex = 452 = 542 254.524 .... ..

          Avatar
          bgonçalves
          Brasil
          Member #92564
          June 9, 2010
          2133 Posts
          Offline
          Posted: August 13, 2015, 7:39 am - IP Logged

           hello rl, the Winsum could build excel in it? to pick3,4,
          the digits and standards and their reps, so I type the last draw in a field, macro and shows conbinaçao. condition of success = repeating one digit out of position the setting is 100% in 294 without filters

            RL-RANDOMLOGIC's avatar - usafce

            United States
            Member #59354
            March 13, 2008
            4076 Posts
            Offline
            Posted: August 15, 2015, 5:04 am - IP Logged

            dr san

            Not sure I understand the entire concept but I think I will attempt to code it and see what I come up with.

            RL

            Working on my Ph.D.  "University of hard Knocks"

            I will consider the opinion that my winnings are a product of chance if you are willing to consider

            they are not.  Many great discoveries come while searching for something else

            USAF https://en.wikipedia.org/wiki/Prime_Base_Engineer_Emergency_Force

              US Flag Trump / 2016 & 2020  

              RL-RANDOMLOGIC's avatar - usafce

              United States
              Member #59354
              March 13, 2008
              4076 Posts
              Offline
              Posted: August 15, 2015, 5:23 am - IP Logged

              dr san

              The second option

              As I see it we would need to take each of the 3 digits from the last game and pair up the other 9 digits

              to cover a possible double.

               

              There are 36 pairings of 9 digits.

               

              Example last game = 2-5-8

              1st sets = 2 + pairing digits (0-1-3-4-5-6-7-8-9) = 36 lines

              2nd sets = 5 + pairing digits (0-1-2-3-4-6-7-8-9) = 36 lines

              3rd sets = 8 + pairing digits (0-1-2-3-4-5-6-7-9) = 36 lines

              Total lines = 108  ticket cost = $108.00 and a box hit pays $100.00 straight pays $600.00

              If there were no repeating digits or a triple then I would loose.

               

              In the last 30 games for my midday there were 14 drawings with no repeating digits from the previous

              game.

              I may not be doing this correctly as I am just using the last draw to get the 3 digits.  I don't know if this

              is the correct method for the second option

              RL

              Working on my Ph.D.  "University of hard Knocks"

              I will consider the opinion that my winnings are a product of chance if you are willing to consider

              they are not.  Many great discoveries come while searching for something else

              USAF https://en.wikipedia.org/wiki/Prime_Base_Engineer_Emergency_Force

                US Flag Trump / 2016 & 2020  

                Avatar
                bgonçalves
                Brasil
                Member #92564
                June 9, 2010
                2133 Posts
                Offline
                Posted: August 15, 2015, 6:46 am - IP Logged

                Hello, RL,  ok any questions you can ask me, ok let's see the 2nd option
                  example
                  Last draw = 478 =
                The remaining digits = 7 = 0,2,3,5,6,9,1
                7 digit for digit conseguirduplas is 7 times 2 = 21
                  The third digit is the condition of repeating the last one digit
                So 21vezes = 63, and you have bet 63 betting
                  Hit just 100% condition that the pattern repeat a digit in the last =
                  Example last gave = 478
                The next draw gave 194
                repeated 4
                7 digits = 0,1,2,3,5,6,9 the remaining pairs are possives 21
                12
                13
                15
                16
                19 3ºdigit 4 = 194
                10
                23
                25
                26
                29
                20
                35
                36
                39
                30
                56
                59
                50
                69
                60
                90

                  Avatar
                  bgonçalves
                  Brasil
                  Member #92564
                  June 9, 2010
                  2133 Posts
                  Offline
                  Posted: August 15, 2015, 6:57 am - IP Logged

                  Hello, rl to get the double or couples remaining 7 digits the last
                  Example last =
                    123 =
                  7 remaining digits = is = 0,4,5,6,7,8,9
                  So closed seven digits to get doubles in 100% is 21 pairs =
                  So as we have three digits that any of the three will repeat
                    It has to do 21 times 3 = total 63 betting
                    The third digit, is one of three, for that is 21 times 3 = 63
                    Hit condition, has repeat a digit in the last
                  Not to hit = not repeat or repeat one or two
                    If repeat three just play the same last draw of course !!
                  It's simple, it's easy if next has a digit of the latter is clear that the double digits
                  Is within the 7 that is combined = total 21 double

                    Avatar
                    bgonçalves
                    Brasil
                    Member #92564
                    June 9, 2010
                    2133 Posts
                    Offline
                    Posted: August 15, 2015, 7:10 am - IP Logged

                    In the last 30 games for my noon there were 14 drawings without digit previous repeat
                    game. Well, this then we have 7 digits to close the pick3
                    Total is 35
                    example
                    = 123 retantes 0,4,5,6,7,8,9 7 = 3 = 35 times bets
                    Rl, we can do both options = not to repeat or one digit = 35apostas
                      And the other repeat a 63-digit = bets
                      We can do both conditions, and still see each filter !!

                      RL-RANDOMLOGIC's avatar - usafce

                      United States
                      Member #59354
                      March 13, 2008
                      4076 Posts
                      Offline
                      Posted: August 15, 2015, 7:14 am - IP Logged

                      dr san

                      The translation you are using is really bad so if you can give number examples as you did a couple post

                      back then it would be very useful.  Many times the text is not readable in a logical order. 

                       

                      I started coding the project and should have it done in a week or so our as time permits.

                      RL

                      Working on my Ph.D.  "University of hard Knocks"

                      I will consider the opinion that my winnings are a product of chance if you are willing to consider

                      they are not.  Many great discoveries come while searching for something else

                      USAF https://en.wikipedia.org/wiki/Prime_Base_Engineer_Emergency_Force

                        US Flag Trump / 2016 & 2020  

                        Avatar
                        bgonçalves
                        Brasil
                        Member #92564
                        June 9, 2010
                        2133 Posts
                        Offline
                        Posted: August 15, 2015, 7:16 am - IP Logged

                        Hello RL, compared to the last draw of pick3 we have 4 conditions
                        1. Repeats a digit
                        2- Repeat zero digit
                        3 Repeat two digits
                        4- digit Repete3 well here just play the same result
                        So let's focus on item 1 and 2 ok to be peers of 87% of the time the condition 1 and 2

                          Avatar
                          bgonçalves
                          Brasil
                          Member #92564
                          June 9, 2010
                          2133 Posts
                          Offline
                          Posted: August 15, 2015, 8:09 am - IP Logged

                          ok RL google translate poorly and inverts data, but calmly
                           It is to take the concept is quite easy.
                          7 digits conbinando by 2 = '21

                            Avatar
                            bgonçalves
                            Brasil
                            Member #92564
                            June 9, 2010
                            2133 Posts
                            Offline
                            Posted: August 15, 2015, 8:12 am - IP Logged
                            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
                              2133 Posts
                              Offline
                              Posted: August 15, 2015, 8:19 am - IP Logged

                              hello RL, can ask pro friends Winsum, to enable and improve macro to be able to use filters.
                              ie you type in a field excel in the last draw
                                macro is separate and assemble the filters of repetition for position! please. !!