Welcome Guest
You last visited June 26, 2017, 11:30 pm
All times shown are
Eastern Time (GMT-5:00)

# Mathematics and the Lottery

695 replies. Last post 29 days ago by Inner G.

 Page 43 of 47

Can a winning lottery system be created with existing math formulas?

 Yes-It's all in the math books. [ 243 ] [43.47%] No-Anew math for will have to be created. [ 80 ] [14.31%] Math won't beat the lottery regularly. [ 236 ] [42.22%] Total Valid Votes [ 559 ] Discarded Votes [ 57 ]

Belgium
Member #173932
March 26, 2016
1396 Posts
Offline
 Posted: September 15, 2016, 4:37 pm - IP Logged

Texas
United States
Member #150797
December 31, 2013
824 Posts
Offline
 Posted: September 16, 2016, 7:45 am - IP Logged

OK, so this formula improves prediction.  When the value is "1" you can safely eliminate the previous 4 Root Sums 90% of the time vs. expected 75% accuracy.  I'll take any improvement I can get.

"There is no such thing as luck; only adequate or inadequate preparation to cope with a statistical universe."

~Robert A. Heinlein

New Mexico
United States
Member #86099
January 29, 2010
11475 Posts
Online
 Posted: September 16, 2016, 11:27 am - IP Logged

software filter PICK3  (formula SEA-Pick3)

trunc(abs(( abs(a1[i+1]-a2[i+2])-abs(a3[i+3]-a4[i+4]))) /4)

i=0..i+1..

Nice graphics but what do you use this for?  Zero signifies what?

New Mexico
United States
Member #86099
January 29, 2010
11475 Posts
Online
 Posted: September 16, 2016, 11:32 am - IP Logged

OK, so this formula improves prediction.  When the value is "1" you can safely eliminate the previous 4 Root Sums 90% of the time vs. expected 75% accuracy.  I'll take any improvement I can get.

Why would you eliminate a root sum?

United States
Member #176653
August 18, 2016
59 Posts
Offline
 Posted: September 22, 2016, 8:25 am - IP Logged

Nice graphics but what do you use this for?  Zero signifies what?

`It is the basis of the formula `
New Mexico
United States
Member #86099
January 29, 2010
11475 Posts
Online
 Posted: September 22, 2016, 12:29 pm - IP Logged
`It is the basis of the formula `

And......

United States
Member #176653
August 18, 2016
59 Posts
Offline
 Posted: September 24, 2016, 1:47 pm - IP Logged
`program runs tests`

United States
Member #176653
August 18, 2016
59 Posts
Offline
 Posted: September 24, 2016, 1:55 pm - IP Logged
`Example 12 Formula, "SumString" - emanation  (123=1+2+3=6)`

v3[0]:=SumString(StringGrid4.Cells[0,a]);
v3[4]:=keno[4,1];
v3[5]:=keno[4,2];
v3[6]:=keno[4,3];
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t1<>x2 then x1:=1 ;

v3[0]:=SumString(StringGrid4.Cells[1,a]);
v3[4]:=keno[5,1];
v3[5]:=keno[5,2];
v3[6]:=keno[5,3];
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t2<>x2 then x1:=1 ;

v3[0]:=SumString(StringGrid4.Cells[2,a]);
v3[4]:=keno[6,1];
v3[5]:=keno[6,2];
v3[6]:=keno[6,3];
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t3<>x2 then x1:=1 ;

/////////////////////////////////////////

v3[0]:=SumString(StringGrid4.Cells[0,a]+StringGrid4.Cells[1,a]);
v3[4]:=SumString(inttostr(keno[4,1]+keno[5,1]));
v3[5]:=SumString(inttostr(keno[4,2]+keno[5,2]));
v3[6]:=SumString(inttostr(keno[4,3]+keno[5,3]));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t4<>x2 then x1:=1 ;

v3[0]:=SumString(StringGrid4.Cells[0,a]+StringGrid4.Cells[2,a]);
v3[4]:=SumString(inttostr(keno[4,1]+keno[6,1]));
v3[5]:=SumString(inttostr(keno[4,2]+keno[6,2]));
v3[6]:=SumString(inttostr(keno[4,3]+keno[6,3]));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t5<>x2 then x1:=1 ;

v3[0]:=SumString(StringGrid4.Cells[1,a]+StringGrid4.Cells[2,a]);
v3[4]:=SumString(inttostr(keno[5,1]+keno[6,1]));
v3[5]:=SumString(inttostr(keno[5,2]+keno[6,2]));
v3[6]:=SumString(inttostr(keno[5,3]+keno[6,3]));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t6<>x2 then x1:=1 ;

///////////////******************************************************

v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[0,a]+StringGrid4.Cells[1,a]))));
v3[4]:=SumString(inttostr(3*(keno[4,1]+keno[5,1])));
v3[5]:=SumString(inttostr(3*(keno[4,2]+keno[5,2])));
v3[6]:=SumString(inttostr(3*(keno[4,3]+keno[5,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t7<>x2 then x1:=1 ;

v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[0,a]+StringGrid4.Cells[2,a]))));
v3[4]:=SumString(inttostr(3*(keno[4,1]+keno[6,1])));
v3[5]:=SumString(inttostr(3*(keno[4,2]+keno[6,2])));
v3[6]:=SumString(inttostr(3*(keno[4,3]+keno[6,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t8<>x2 then x1:=1 ;

v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[1,a]+StringGrid4.Cells[2,a]))));
v3[4]:=SumString(inttostr(3*(keno[5,1]+keno[6,1])));
v3[5]:=SumString(inttostr(3*(keno[5,2]+keno[6,2])));
v3[6]:=SumString(inttostr(3*(keno[5,3]+keno[6,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t9<>x2 then x1:=1 ;

v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[0,a]))));
v3[4]:=SumString(inttostr(3*(keno[4,1])));
v3[5]:=SumString(inttostr(3*(keno[4,2])));
v3[6]:=SumString(inttostr(3*(keno[4,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t10<>x2 then x1:=1 ;

v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[1,a]))));
v3[4]:=SumString(inttostr(3*(keno[5,1])));
v3[5]:=SumString(inttostr(3*(keno[5,2])));
v3[6]:=SumString(inttostr(3*(keno[5,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t11<>x2 then x1:=1 ;

v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[2,a]))));
v3[4]:=SumString(inttostr(3*(keno[6,1])));
v3[5]:=SumString(inttostr(3*(keno[6,2])));
v3[6]:=SumString(inttostr(3*(keno[6,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t12<>x2 then x1:=1 ;

Belgium
Member #173932
March 26, 2016
1396 Posts
Offline
 Posted: September 24, 2016, 4:32 pm - IP Logged
`Example 12 Formula, "SumString" - emanation  (123=1+2+3=6)`

v3[0]:=SumString(StringGrid4.Cells[0,a]);
v3[4]:=keno[4,1];
v3[5]:=keno[4,2];
v3[6]:=keno[4,3];
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t1<>x2 then x1:=1 ;

v3[0]:=SumString(StringGrid4.Cells[1,a]);
v3[4]:=keno[5,1];
v3[5]:=keno[5,2];
v3[6]:=keno[5,3];
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t2<>x2 then x1:=1 ;

v3[0]:=SumString(StringGrid4.Cells[2,a]);
v3[4]:=keno[6,1];
v3[5]:=keno[6,2];
v3[6]:=keno[6,3];
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t3<>x2 then x1:=1 ;

/////////////////////////////////////////

v3[0]:=SumString(StringGrid4.Cells[0,a]+StringGrid4.Cells[1,a]);
v3[4]:=SumString(inttostr(keno[4,1]+keno[5,1]));
v3[5]:=SumString(inttostr(keno[4,2]+keno[5,2]));
v3[6]:=SumString(inttostr(keno[4,3]+keno[5,3]));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t4<>x2 then x1:=1 ;

v3[0]:=SumString(StringGrid4.Cells[0,a]+StringGrid4.Cells[2,a]);
v3[4]:=SumString(inttostr(keno[4,1]+keno[6,1]));
v3[5]:=SumString(inttostr(keno[4,2]+keno[6,2]));
v3[6]:=SumString(inttostr(keno[4,3]+keno[6,3]));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t5<>x2 then x1:=1 ;

v3[0]:=SumString(StringGrid4.Cells[1,a]+StringGrid4.Cells[2,a]);
v3[4]:=SumString(inttostr(keno[5,1]+keno[6,1]));
v3[5]:=SumString(inttostr(keno[5,2]+keno[6,2]));
v3[6]:=SumString(inttostr(keno[5,3]+keno[6,3]));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t6<>x2 then x1:=1 ;

///////////////******************************************************

v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[0,a]+StringGrid4.Cells[1,a]))));
v3[4]:=SumString(inttostr(3*(keno[4,1]+keno[5,1])));
v3[5]:=SumString(inttostr(3*(keno[4,2]+keno[5,2])));
v3[6]:=SumString(inttostr(3*(keno[4,3]+keno[5,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t7<>x2 then x1:=1 ;

v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[0,a]+StringGrid4.Cells[2,a]))));
v3[4]:=SumString(inttostr(3*(keno[4,1]+keno[6,1])));
v3[5]:=SumString(inttostr(3*(keno[4,2]+keno[6,2])));
v3[6]:=SumString(inttostr(3*(keno[4,3]+keno[6,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t8<>x2 then x1:=1 ;

v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[1,a]+StringGrid4.Cells[2,a]))));
v3[4]:=SumString(inttostr(3*(keno[5,1]+keno[6,1])));
v3[5]:=SumString(inttostr(3*(keno[5,2]+keno[6,2])));
v3[6]:=SumString(inttostr(3*(keno[5,3]+keno[6,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t9<>x2 then x1:=1 ;

v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[0,a]))));
v3[4]:=SumString(inttostr(3*(keno[4,1])));
v3[5]:=SumString(inttostr(3*(keno[4,2])));
v3[6]:=SumString(inttostr(3*(keno[4,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t10<>x2 then x1:=1 ;

v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[1,a]))));
v3[4]:=SumString(inttostr(3*(keno[5,1])));
v3[5]:=SumString(inttostr(3*(keno[5,2])));
v3[6]:=SumString(inttostr(3*(keno[5,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t11<>x2 then x1:=1 ;

v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[2,a]))));
v3[4]:=SumString(inttostr(3*(keno[6,1])));
v3[5]:=SumString(inttostr(3*(keno[6,2])));
v3[6]:=SumString(inttostr(3*(keno[6,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t12<>x2 then x1:=1 ;

which programming language is this?

United States
Member #176653
August 18, 2016
59 Posts
Offline
 Posted: September 25, 2016, 4:23 am - IP Logged

Borland Delphi 7

New Mexico
United States
Member #86099
January 29, 2010
11475 Posts
Online
 Posted: September 28, 2016, 11:27 am - IP Logged

I do something similar by hand and in excel it really shows what is due etc.  Are you going to post it?

United States
Member #176653
August 18, 2016
59 Posts
Offline
 Posted: September 30, 2016, 1:57 am - IP Logged

good filters, but it needs more work

United States
Member #176653
August 18, 2016
59 Posts
Offline
 Posted: October 5, 2016, 5:08 am - IP Logged

Griffith, In
United States
Member #41637
June 20, 2006
266 Posts
Offline
 Posted: November 6, 2016, 2:25 pm - IP Logged

My vote is for #2 - prove me wrong. *S*

Hi JKing;

Can you please send me one good one for the "Pick4" lottery.... Please!

Or several, so I can take a look at what works good for me....

Thank you ..... Eddie

Thank you and have a prosperous day!

Maverick2842.......out!

United States
Member #5599
July 13, 2004
1196 Posts
Offline
 Posted: November 8, 2016, 11:57 am - IP Logged

Hi JKing;

Can you please send me one good one for the "Pick4" lottery.... Please!

Or several, so I can take a look at what works good for me....

Thank you ..... Eddie

Hi,

Sorry, I don't play pick 3 or pick 4. There are already many posts regarding those games.

Good luck

You are a slave to the choices you have made.  jk

Even a blind squirrel will occasionally find an acorn.

There is no elevator to success, you will have to take the stairs.

 Page 43 of 47