Welcome Guest
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
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

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

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.

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

Trump / 2016 & 2020

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

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

Trump / 2016 & 2020

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

Trump / 2016 & 2020

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

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

Trump / 2016 & 2020

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

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.

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

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

 Page 2 of 4