# gauss curve lottery 60/6

#### jack

##### Member
Hello creating excel in the Gauss curve, the sum of the lottery numbers 60/6
* Mega sena?
Objective use range centered higher probabilities. Please

#### Icewynd

##### Member
The gauss curve is more commonly known as the 'bell curve'. The sums of all possible lottery combinations should generate a nice bell curve, but why would you want to do this?

Good luck!

#### 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 ?

#### jack

##### Member
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

#### jack

##### Member
The repetition of a number and the central sum of gauss curve is the secret of probability
* 80/20 or 75/25 Pareto law

#### jack

##### Member
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

#### jack

##### Member
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

#### jack

##### Member
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

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

#### jack

##### Member
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

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

#### Frank

##### Member
I almost forgot. You will need at least seven worksheets in your workbook for all the macros to run. They each use their own sheet.

#### jack

##### Member
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

#### jack

##### Member
Frank, my Excel 2013 64-bit Windows 7 64-bit
The message = sub or function not clearcut = compilation error
* yes I separated in 7 planilias,

#### jack

##### Member
hello frank ,these formulas their NSUM without this function (I) = 0.

#### Frank

##### Member
Jack, I've no idea what you are trying to tell me. Please start at the beginning, which sub are you talking about and what have you done with it ? And what exactly is the problem?

#### jack

##### Member
hello FRANK my system windows 7 64-bit, Excel 2013 macro execute the message = these formulas their NSUM without this function (I) = 0.
you get for a planilia and put the link?

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

#### TheConcept

##### Member
jack said:
Hello creating excel in the Gauss curve, the sum of the lottery numbers 60/6
* Mega sena?
Objective use range centered higher probabilities. Please
Icewynd said:
The gauss curve is more commonly known as the 'bell curve'. The sums of all possible lottery combinations should generate a nice bell curve, but why would you want to do this?
Frank said:
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.
Hi all.

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)

#### Frank

##### Member
TheConcept said:
Hi all.

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)

It will be a lot worse in a few weeks when the UK lotto goes to 6/59 !