gauss curve lottery 60/6
- Thread starter jack
- Start date
Frank
Member
I think Jack wants to know the probabilities of the most common sums appearing, which is interesting but still leaves hundreds of thousands of possible combinations in those groups.
The following macro (modified from a version by GillesD to cover 6/60) will generate a list in excel of all the possible sums and how many combinations added up to each sum and the probability % of a combination with that sum being drawn.
Option Explicit
Option Base 1
Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Integer, F As Integer
Dim I As Integer, nSum(345) As Long
Sub SumAll()
Application.ScreenUpdating = False
Sheets("Sheet1").Select
Range("A2").Select
Range("A1").Value = "Sum"
Range("B1").Value = "# comb."
Range("C1").Value = "probability %."
For I = 21 To 345
nSum(I) = 0
Next I
For A = 1 To 55
For B = A + 1 To 56
For C = B + 1 To 57
For D = C + 1 To 58
For E = D + 1 To 59
For F = E + 1 To 60
nSum(A + B + C + D + E + F) = nSum(A + B + C + D + E + F) + 1
Next F
Next E
Next D
Next C
Next B
Next A
For I = 21 To 345
ActiveCell.Value = I
ActiveCell.Offset(0, 1).Value = nSum(I)
ActiveCell.Offset(0, 2).Value = nSum(I) /500638.6
ActiveCell.Offset(1, 0).Select
Next I
Application.ScreenUpdating = False
Range("A1").Select
End Sub
You will discover that there are 345 possible sums of the 6 balls and sum group (sum=183) has the highest probability at 0.958%. The snag is that 479632 combinations add up to this value, which doesn't exactly home in on the most likely combination to win.
If you group them, then - say sums of between 173 and 193 are produced by nearly 10 million combinations.
You could plot a bell curve from these results. Very interesting but does it help ?
The following macro (modified from a version by GillesD to cover 6/60) will generate a list in excel of all the possible sums and how many combinations added up to each sum and the probability % of a combination with that sum being drawn.
Option Explicit
Option Base 1
Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Integer, F As Integer
Dim I As Integer, nSum(345) As Long
Sub SumAll()
Application.ScreenUpdating = False
Sheets("Sheet1").Select
Range("A2").Select
Range("A1").Value = "Sum"
Range("B1").Value = "# comb."
Range("C1").Value = "probability %."
For I = 21 To 345
nSum(I) = 0
Next I
For A = 1 To 55
For B = A + 1 To 56
For C = B + 1 To 57
For D = C + 1 To 58
For E = D + 1 To 59
For F = E + 1 To 60
nSum(A + B + C + D + E + F) = nSum(A + B + C + D + E + F) + 1
Next F
Next E
Next D
Next C
Next B
Next A
For I = 21 To 345
ActiveCell.Value = I
ActiveCell.Offset(0, 1).Value = nSum(I)
ActiveCell.Offset(0, 2).Value = nSum(I) /500638.6
ActiveCell.Offset(1, 0).Select
Next I
Application.ScreenUpdating = False
Range("A1").Select
End Sub
You will discover that there are 345 possible sums of the 6 balls and sum group (sum=183) has the highest probability at 0.958%. The snag is that 479632 combinations add up to this value, which doesn't exactly home in on the most likely combination to win.
If you group them, then - say sums of between 173 and 193 are produced by nearly 10 million combinations.
You could plot a bell curve from these results. Very interesting but does it help ?
Hello, Frank, okay, thank you very good job, conglatulations
You'll need third grade math to get the reference point.
Add the lowest sum ..... 21
To the highest sum ..... 345
1 + 5 = 6
2 + 4 = 6
bring the 3 down.
This equals 366
366 divided by 2 (two because you added two numbers) Which equal 183.
*
Alternative method ....
Add the sum of all sets and 50,063,860 divided by 50,063,860. If you do it this way you can chart Them While You work.
Frank you can do donate Numerous even and odd. make separate sums, like two lotteries the even and odd numbers. Then we have two sums in general
* And even and odd, and further sum positional
Eexemplo the most = 4/2 and 3/3 odd / even
In two positions, 6x2 = 15 and 6x4 = 20
* example
12,15,18 25,37 49 = odd = 15,25,37,39 numbers in positions = 2nd 4th 5th 6th pairs 1st and 3rd
6x4 posicioes are 20 = 1,2,3,4 1,2,3, 5,,,,,,,,,,, to 4,5,6,7, = 20 positions
* Of course the left is pairs. And vice versa provided 4/2
You'll need third grade math to get the reference point.
Add the lowest sum ..... 21
To the highest sum ..... 345
1 + 5 = 6
2 + 4 = 6
bring the 3 down.
This equals 366
366 divided by 2 (two because you added two numbers) Which equal 183.
*
Alternative method ....
Add the sum of all sets and 50,063,860 divided by 50,063,860. If you do it this way you can chart Them While You work.
Frank you can do donate Numerous even and odd. make separate sums, like two lotteries the even and odd numbers. Then we have two sums in general
* And even and odd, and further sum positional
Eexemplo the most = 4/2 and 3/3 odd / even
In two positions, 6x2 = 15 and 6x4 = 20
* example
12,15,18 25,37 49 = odd = 15,25,37,39 numbers in positions = 2nd 4th 5th 6th pairs 1st and 3rd
6x4 posicioes are 20 = 1,2,3,4 1,2,3, 5,,,,,,,,,,, to 4,5,6,7, = 20 positions
* Of course the left is pairs. And vice versa provided 4/2
Hello, good job, Frank, noted that of 50 million in 60/6 lowered to 10 million ie
* In 75% to 80% of the draws, eliminated 40 million, very good!
Already in power ball, 59/5 or 49/6 50/5 eurominhoes, this will greatly decrease or not pick3,4,5 etc.
You have to separate the even and odd numbers, but in their positions, under the draw
* The lottery in question, so positioning may have a reference, a base,
A first, the difference of the two ends, ie the initial number and final number
example =
05,15,26,35,47,58, start number 05 final number 58 delta frontier 01-60
* In 75% to 80% of the draws, eliminated 40 million, very good!
Already in power ball, 59/5 or 49/6 50/5 eurominhoes, this will greatly decrease or not pick3,4,5 etc.
You have to separate the even and odd numbers, but in their positions, under the draw
* The lottery in question, so positioning may have a reference, a base,
A first, the difference of the two ends, ie the initial number and final number
example =
05,15,26,35,47,58, start number 05 final number 58 delta frontier 01-60
Frank and ice, down the relationship of all the posicioes
* In 6por 4 = 15
3 = 6 per 20
* Are all possible locations in 100% passing beneath a drawing for 60/6 ok
6 a third position
123
124
125
126
134
135
136
145
146
156
234
235
236
245
246
256
345
346
356
456
* 6 4 position by
1234
1235
1236
1245
1246
1256
1345
1346
1356
1456
2345
2346
2356
2456
3456
* In 6por 4 = 15
3 = 6 per 20
* Are all possible locations in 100% passing beneath a drawing for 60/6 ok
6 a third position
123
124
125
126
134
135
136
145
146
156
234
235
236
245
246
256
345
346
356
456
* 6 4 position by
1234
1235
1236
1245
1246
1256
1345
1346
1356
1456
2345
2346
2356
2456
3456
example = = 02,21,30,35,45,50 overall sum = 183
= 02.30 pairs are 50 = 82
are odd = 21, 101 = 35.45
plus the two (even and odd) = 183
* then what we have as a reference are the positions, capichi !!
* also we have the endings 1,5,5 = 9
endings last couple digist = 2,0,0 = 2
Frank and ice have split the iminigo 50milhoes in 1
* to weaken, capichi
= 02.30 pairs are 50 = 82
are odd = 21, 101 = 35.45
plus the two (even and odd) = 183
* then what we have as a reference are the positions, capichi !!
* also we have the endings 1,5,5 = 9
endings last couple digist = 2,0,0 = 2
Frank and ice have split the iminigo 50milhoes in 1
* to weaken, capichi
Frank
Member
Calm down Jack, you do have a habit of doing multiple posts, going off topic, not giving people chance to respond between posts.
I am sticking to the topic which is the sum distribution question. You mentioned evens and odd sums. Thats easy. In cell D2 enter the formula =MOD(A2,2). Copy that down to row 326. Now use Autofilter on column D to filter 1 (odd sums) or 0, even sums. Thats me finished, I don't juggle with digits, thats another topic anyway.
Let me remind you of the good advice given by PAB. http://www.lottoforums.com/lottery/anything-goes/12902-suggestion-jack.html
Good luck !
I am sticking to the topic which is the sum distribution question. You mentioned evens and odd sums. Thats easy. In cell D2 enter the formula =MOD(A2,2). Copy that down to row 326. Now use Autofilter on column D to filter 1 (odd sums) or 0, even sums. Thats me finished, I don't juggle with digits, thats another topic anyway.
Let me remind you of the good advice given by PAB. http://www.lottoforums.com/lottery/anything-goes/12902-suggestion-jack.html
Good luck !
Hello frank you can do, as was done in the 6 numbers of 60/6
Make the macro sums of even and odd? please!
* We have two sum within six numbers, you can do this
See the two sums of odd and even numbers in their positions.
* 3/3 4/2 and vice versa?
* target = filter the sums of the central part dacurva bell (gauus) stop and separate imapres then joins riding bet
Make the macro sums of even and odd? please!
* We have two sum within six numbers, you can do this
See the two sums of odd and even numbers in their positions.
* 3/3 4/2 and vice versa?
* target = filter the sums of the central part dacurva bell (gauus) stop and separate imapres then joins riding bet
Frank
Member
Here are a few (6) to be going on with. You should notice the subtle difference in each macro which takes place on the longest line in the middle of each macro. (the If statement)
the test If A Mod 2 = 1 is testing to see if A is odd. The test F Mod 2 = 0 is testing to see if F is even. You can combine varying sequences to get the right 3/3 4/2, 2/4 etc. test.
Put these macros on the same module as the one you already have.
Sub SumOddeven33() 'A,B,C are odd, D,E,F are even
Application.ScreenUpdating = False
Sheets("Sheet2").Select
Range("A2").Select
Range("A1").Value = "Sum"
Range("B1").Value = "# comb."
Range("C1").Value = "probability %."
For I = 21 To 345
nSum(I) = 0
Next I
For A = 1 To 55
For B = A + 1 To 56
For C = B + 1 To 57
For D = C + 1 To 58
For E = D + 1 To 59
For F = E + 1 To 60
If A Mod 2 = 1 And B Mod 2 = 1 And C Mod 2 = 1 And D Mod 2 = 0 And E Mod 2 = 0 And F Mod 2 = 0 Then
nSum(A + B + C + D + E + F) = nSum(A + B + C + D + E + F) + 1
End If
Next F
Next E
Next D
Next C
Next B
Next A
For I = 21 To 345
ActiveCell.Value = I
ActiveCell.Offset(0, 1).Value = nSum(I)
ActiveCell.Offset(0, 2).Value = nSum(I) / 500638.6
ActiveCell.Offset(1, 0).Select
Next I
Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = "3 odd 3 even"
Range("A1").Select
End Sub
Sub SumEvenodd33() 'A,B,C are even, D,E,F are odd
Application.ScreenUpdating = False
Sheets("Sheet3").Select
Range("A2").Select
Range("A1").Value = "Sum"
Range("B1").Value = "# comb."
Range("C1").Value = "probability %."
For I = 21 To 345
nSum(I) = 0
Next I
For A = 1 To 55
For B = A + 1 To 56
For C = B + 1 To 57
For D = C + 1 To 58
For E = D + 1 To 59
For F = E + 1 To 60
If A Mod 2 = 0 And B Mod 2 = 0 And C Mod 2 = 0 And D Mod 2 = 1 And E Mod 2 = 1 And F Mod 2 = 1 Then
nSum(A + B + C + D + E + F) = nSum(A + B + C + D + E + F) + 1
End If
Next F
Next E
Next D
Next C
Next B
Next A
For I = 21 To 345
ActiveCell.Value = I
ActiveCell.Offset(0, 1).Value = nSum(I)
ActiveCell.Offset(0, 2).Value = nSum(I) / 500638.6
ActiveCell.Offset(1, 0).Select
Next I
Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = "3 even 3 odd"
Range("A1").Select
End Sub
Sub SumEvenodd42() 'A,B,C,D are even,E,F are odd
Application.ScreenUpdating = False
Sheets("Sheet4").Select
Range("A2").Select
Range("A1").Value = "Sum"
Range("B1").Value = "# comb."
Range("C1").Value = "probability %."
For I = 21 To 345
nSum(I) = 0
Next I
For A = 1 To 55
For B = A + 1 To 56
For C = B + 1 To 57
For D = C + 1 To 58
For E = D + 1 To 59
For F = E + 1 To 60
If A Mod 2 = 0 And B Mod 2 = 0 And C Mod 2 = 0 And D Mod 2 = 0 And E Mod 2 = 1 And F Mod 2 = 1 Then
nSum(A + B + C + D + E + F) = nSum(A + B + C + D + E + F) + 1
End If
Next F
Next E
Next D
Next C
Next B
Next A
For I = 21 To 345
ActiveCell.Value = I
ActiveCell.Offset(0, 1).Value = nSum(I)
ActiveCell.Offset(0, 2).Value = nSum(I) / 500638.6
ActiveCell.Offset(1, 0).Select
Next I
Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = "4 even 2 odd"
Range("A1").Select
End Sub
Sub SumOddeven42() 'A,B,C,D are odd E,F are even
Application.ScreenUpdating = False
Sheets("Sheet5").Select
Range("A2").Select
Range("A1").Value = "Sum"
Range("B1").Value = "# comb."
Range("C1").Value = "probability %."
For I = 21 To 345
nSum(I) = 0
Next I
For A = 1 To 55
For B = A + 1 To 56
For C = B + 1 To 57
For D = C + 1 To 58
For E = D + 1 To 59
For F = E + 1 To 60
If A Mod 2 = 1 And B Mod 2 = 1 And C Mod 2 = 1 And D Mod 2 = 1 And E Mod 2 = 0 And F Mod 2 = 0 Then
nSum(A + B + C + D + E + F) = nSum(A + B + C + D + E + F) + 1
End If
Next F
Next E
Next D
Next C
Next B
Next A
For I = 21 To 345
ActiveCell.Value = I
ActiveCell.Offset(0, 1).Value = nSum(I)
ActiveCell.Offset(0, 2).Value = nSum(I) / 500638.6
ActiveCell.Offset(1, 0).Select
Next I
Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = "4 odd 2 even"
Range("A1").Select
End Sub
Sub SumOddeven24() 'A,B are odd C,D,E,F are even
Application.ScreenUpdating = False
Sheets("Sheet6").Select
Range("A2").Select
Range("A1").Value = "Sum"
Range("B1").Value = "# comb."
Range("C1").Value = "probability %."
For I = 21 To 345
nSum(I) = 0
Next I
For A = 1 To 55
For B = A + 1 To 56
For C = B + 1 To 57
For D = C + 1 To 58
For E = D + 1 To 59
For F = E + 1 To 60
If A Mod 2 = 1 And B Mod 2 = 1 And C Mod 2 = 0 And D Mod 2 = 0 And E Mod 2 = 0 And F Mod 2 = 0 Then
nSum(A + B + C + D + E + F) = nSum(A + B + C + D + E + F) + 1
End If
Next F
Next E
Next D
Next C
Next B
Next A
For I = 21 To 345
ActiveCell.Value = I
ActiveCell.Offset(0, 1).Value = nSum(I)
ActiveCell.Offset(0, 2).Value = nSum(I) / 500638.6
ActiveCell.Offset(1, 0).Select
Next I
Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = "2 odd 4 even"
Range("A1").Select
End Sub
Sub SumEvenodd24() 'A,B are even,C,D, E,F are odd
Application.ScreenUpdating = False
Sheets("Sheet7").Select
Range("A2").Select
Range("A1").Value = "Sum"
Range("B1").Value = "# comb."
Range("C1").Value = "probability %."
For I = 21 To 345
nSum(I) = 0
Next I
For A = 1 To 55
For B = A + 1 To 56
For C = B + 1 To 57
For D = C + 1 To 58
For E = D + 1 To 59
For F = E + 1 To 60
If A Mod 2 = 0 And B Mod 2 = 0 And C Mod 2 = 1 And D Mod 2 = 1 And E Mod 2 = 1 And F Mod 2 = 1 Then
nSum(A + B + C + D + E + F) = nSum(A + B + C + D + E + F) + 1
End If
Next F
Next E
Next D
Next C
Next B
Next A
For I = 21 To 345
ActiveCell.Value = I
ActiveCell.Offset(0, 1).Value = nSum(I)
ActiveCell.Offset(0, 2).Value = nSum(I) / 500638.6
ActiveCell.Offset(1, 0).Select
Next I
Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = "2 even 4 odd"
Range("A1").Select
End Sub
if you need other odd/even sequences you can do them yourself.
the test If A Mod 2 = 1 is testing to see if A is odd. The test F Mod 2 = 0 is testing to see if F is even. You can combine varying sequences to get the right 3/3 4/2, 2/4 etc. test.
Put these macros on the same module as the one you already have.
Sub SumOddeven33() 'A,B,C are odd, D,E,F are even
Application.ScreenUpdating = False
Sheets("Sheet2").Select
Range("A2").Select
Range("A1").Value = "Sum"
Range("B1").Value = "# comb."
Range("C1").Value = "probability %."
For I = 21 To 345
nSum(I) = 0
Next I
For A = 1 To 55
For B = A + 1 To 56
For C = B + 1 To 57
For D = C + 1 To 58
For E = D + 1 To 59
For F = E + 1 To 60
If A Mod 2 = 1 And B Mod 2 = 1 And C Mod 2 = 1 And D Mod 2 = 0 And E Mod 2 = 0 And F Mod 2 = 0 Then
nSum(A + B + C + D + E + F) = nSum(A + B + C + D + E + F) + 1
End If
Next F
Next E
Next D
Next C
Next B
Next A
For I = 21 To 345
ActiveCell.Value = I
ActiveCell.Offset(0, 1).Value = nSum(I)
ActiveCell.Offset(0, 2).Value = nSum(I) / 500638.6
ActiveCell.Offset(1, 0).Select
Next I
Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = "3 odd 3 even"
Range("A1").Select
End Sub
Sub SumEvenodd33() 'A,B,C are even, D,E,F are odd
Application.ScreenUpdating = False
Sheets("Sheet3").Select
Range("A2").Select
Range("A1").Value = "Sum"
Range("B1").Value = "# comb."
Range("C1").Value = "probability %."
For I = 21 To 345
nSum(I) = 0
Next I
For A = 1 To 55
For B = A + 1 To 56
For C = B + 1 To 57
For D = C + 1 To 58
For E = D + 1 To 59
For F = E + 1 To 60
If A Mod 2 = 0 And B Mod 2 = 0 And C Mod 2 = 0 And D Mod 2 = 1 And E Mod 2 = 1 And F Mod 2 = 1 Then
nSum(A + B + C + D + E + F) = nSum(A + B + C + D + E + F) + 1
End If
Next F
Next E
Next D
Next C
Next B
Next A
For I = 21 To 345
ActiveCell.Value = I
ActiveCell.Offset(0, 1).Value = nSum(I)
ActiveCell.Offset(0, 2).Value = nSum(I) / 500638.6
ActiveCell.Offset(1, 0).Select
Next I
Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = "3 even 3 odd"
Range("A1").Select
End Sub
Sub SumEvenodd42() 'A,B,C,D are even,E,F are odd
Application.ScreenUpdating = False
Sheets("Sheet4").Select
Range("A2").Select
Range("A1").Value = "Sum"
Range("B1").Value = "# comb."
Range("C1").Value = "probability %."
For I = 21 To 345
nSum(I) = 0
Next I
For A = 1 To 55
For B = A + 1 To 56
For C = B + 1 To 57
For D = C + 1 To 58
For E = D + 1 To 59
For F = E + 1 To 60
If A Mod 2 = 0 And B Mod 2 = 0 And C Mod 2 = 0 And D Mod 2 = 0 And E Mod 2 = 1 And F Mod 2 = 1 Then
nSum(A + B + C + D + E + F) = nSum(A + B + C + D + E + F) + 1
End If
Next F
Next E
Next D
Next C
Next B
Next A
For I = 21 To 345
ActiveCell.Value = I
ActiveCell.Offset(0, 1).Value = nSum(I)
ActiveCell.Offset(0, 2).Value = nSum(I) / 500638.6
ActiveCell.Offset(1, 0).Select
Next I
Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = "4 even 2 odd"
Range("A1").Select
End Sub
Sub SumOddeven42() 'A,B,C,D are odd E,F are even
Application.ScreenUpdating = False
Sheets("Sheet5").Select
Range("A2").Select
Range("A1").Value = "Sum"
Range("B1").Value = "# comb."
Range("C1").Value = "probability %."
For I = 21 To 345
nSum(I) = 0
Next I
For A = 1 To 55
For B = A + 1 To 56
For C = B + 1 To 57
For D = C + 1 To 58
For E = D + 1 To 59
For F = E + 1 To 60
If A Mod 2 = 1 And B Mod 2 = 1 And C Mod 2 = 1 And D Mod 2 = 1 And E Mod 2 = 0 And F Mod 2 = 0 Then
nSum(A + B + C + D + E + F) = nSum(A + B + C + D + E + F) + 1
End If
Next F
Next E
Next D
Next C
Next B
Next A
For I = 21 To 345
ActiveCell.Value = I
ActiveCell.Offset(0, 1).Value = nSum(I)
ActiveCell.Offset(0, 2).Value = nSum(I) / 500638.6
ActiveCell.Offset(1, 0).Select
Next I
Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = "4 odd 2 even"
Range("A1").Select
End Sub
Sub SumOddeven24() 'A,B are odd C,D,E,F are even
Application.ScreenUpdating = False
Sheets("Sheet6").Select
Range("A2").Select
Range("A1").Value = "Sum"
Range("B1").Value = "# comb."
Range("C1").Value = "probability %."
For I = 21 To 345
nSum(I) = 0
Next I
For A = 1 To 55
For B = A + 1 To 56
For C = B + 1 To 57
For D = C + 1 To 58
For E = D + 1 To 59
For F = E + 1 To 60
If A Mod 2 = 1 And B Mod 2 = 1 And C Mod 2 = 0 And D Mod 2 = 0 And E Mod 2 = 0 And F Mod 2 = 0 Then
nSum(A + B + C + D + E + F) = nSum(A + B + C + D + E + F) + 1
End If
Next F
Next E
Next D
Next C
Next B
Next A
For I = 21 To 345
ActiveCell.Value = I
ActiveCell.Offset(0, 1).Value = nSum(I)
ActiveCell.Offset(0, 2).Value = nSum(I) / 500638.6
ActiveCell.Offset(1, 0).Select
Next I
Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = "2 odd 4 even"
Range("A1").Select
End Sub
Sub SumEvenodd24() 'A,B are even,C,D, E,F are odd
Application.ScreenUpdating = False
Sheets("Sheet7").Select
Range("A2").Select
Range("A1").Value = "Sum"
Range("B1").Value = "# comb."
Range("C1").Value = "probability %."
For I = 21 To 345
nSum(I) = 0
Next I
For A = 1 To 55
For B = A + 1 To 56
For C = B + 1 To 57
For D = C + 1 To 58
For E = D + 1 To 59
For F = E + 1 To 60
If A Mod 2 = 0 And B Mod 2 = 0 And C Mod 2 = 1 And D Mod 2 = 1 And E Mod 2 = 1 And F Mod 2 = 1 Then
nSum(A + B + C + D + E + F) = nSum(A + B + C + D + E + F) + 1
End If
Next F
Next E
Next D
Next C
Next B
Next A
For I = 21 To 345
ActiveCell.Value = I
ActiveCell.Offset(0, 1).Value = nSum(I)
ActiveCell.Offset(0, 2).Value = nSum(I) / 500638.6
ActiveCell.Offset(1, 0).Select
Next I
Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = "2 even 4 odd"
Range("A1").Select
End Sub
if you need other odd/even sequences you can do them yourself.
Hmmm, splendid, wonderful job, when I win a good prize will be rewarded by 20%, thanks frank
Well now we have a base, a reference sum for the positions 3/3 4/2 At least these two standards that leave 80% of the time, is that so you can locate positionally the even and odd numbers, obrigafo frank the good work, keep informed and posicioes for the secret of probalidades is the repetitions in their positions in each column
Well now we have a base, a reference sum for the positions 3/3 4/2 At least these two standards that leave 80% of the time, is that so you can locate positionally the even and odd numbers, obrigafo frank the good work, keep informed and posicioes for the secret of probalidades is the repetitions in their positions in each column
Frank
Member
My system is windows 7 64-bit, Excel 2010 and there is nothing wrong with these macros.
You are not making any sense. If you have all 7 macros with the Sumall() macro at the top and (very important) all the commands that came at the top of sumall() :-
Option Explicit
Option Base 1
Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Integer, F As Integer
Dim I As Integer, nSum(345) As Long
at the TOP of the macro sheet before any SUB command, they must all be on the SAME macro sheet. It should work in ANY version of Excel.
On sheet 2 and sheet3 there are no sums (Nsum answer =0) for even numbered sums.
On sheets 4,5,6,and 7 there are no sums (Nsum =0) for odd numbered sums.
You must NOT rename any sheets, they need to be named the same as the name in the macros.
My version works, but its exactly the same as I've posted on here:-
http://www.mediafire.com/view/1a69mw4ze47l699/sums_of_balls_macros_and_bell_curves_for_6_60.xlsm
You are not making any sense. If you have all 7 macros with the Sumall() macro at the top and (very important) all the commands that came at the top of sumall() :-
Option Explicit
Option Base 1
Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Integer, F As Integer
Dim I As Integer, nSum(345) As Long
at the TOP of the macro sheet before any SUB command, they must all be on the SAME macro sheet. It should work in ANY version of Excel.
On sheet 2 and sheet3 there are no sums (Nsum answer =0) for even numbered sums.
On sheets 4,5,6,and 7 there are no sums (Nsum =0) for odd numbered sums.
You must NOT rename any sheets, they need to be named the same as the name in the macros.
My version works, but its exactly the same as I've posted on here:-
http://www.mediafire.com/view/1a69mw4ze47l699/sums_of_balls_macros_and_bell_curves_for_6_60.xlsm
TheConcept
Member
jack said:
Icewynd said:
Hi all.Frank said:
I experimented with this a while back for the UK National Lottery. The stratey was as follows:
1. Get a list of all of the numbers that have appeared in the last five draws.
(I used five because the median is 5.31 for a 6/49 lottery, and numbers here repeat more often.)
2. For all the possible permutations of six numbers, keep only those with
a) 3 even and 3 odd numbers
b) 3 low (1-24) and 3 high (25-49) numbers
c) The sum of all six digits being between 149 and 151. 150 (21 + 279)/2 is the middle value, and with the totals fitting a normal distribution, 150 is also the mode (most common) and mean. However, the sum of three even and three odd numbers is odd, so I used 149 and 151.
The number of arrangements comes down dramatically, but there was still hundreds to narrow down, so more filters had to be introduced.
It's something I may return to in the future as I did get the odd success, but the UK 6/49 lottery is poor value if a lottery ticket is bought. The odds are much better for other lotteries played online, but the setup is different (pick 1, match 1; pick 2, match 2; etc)