bgonÃ§alves Brasil Member #92564 June 9, 2010 2133 Posts Offline

Posted: August 12, 2015, 9:14 pm - IP Logged

Quote: Originally posted by river26 on August 12, 2015

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

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

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

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

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

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

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

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

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