Welcome Guest
Log In | Register )
You last visited December 7, 2016, 5:07 pm
All times shown are
Eastern Time (GMT-5:00)

Mathematics and the Lottery

648 replies. Last post 23 hours ago by Sunglasses.

Page 43 of 44
4.616
PrintE-mailLink

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

Yes-It's all in the math books. [ 228 ]  [43.02%]
No-Anew math for will have to be created. [ 78 ]  [14.72%]
Math won't beat the lottery regularly. [ 224 ]  [42.26%]
Total Valid Votes [ 530 ]  
Discarded Votes [ 54 ]  

Guests cannot vote  ( Log In | Register )

Sunglasses's avatar - nicebear
Zaperlopopotam
Belgium
Member #173932
March 26, 2016
958 Posts
Offline
Posted: September 15, 2016, 4:37 pm - IP Logged

LOL

.
    Tialuvslotto's avatar - Jailin
    Texas
    United States
    Member #150797
    December 31, 2013
    815 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

      lakerben's avatar - spherewall
      New Mexico
      United States
      Member #86099
      January 29, 2010
      11119 Posts
      Offline
      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?

      How about them cowboys!

       

       

      US Flag

        lakerben's avatar - spherewall
        New Mexico
        United States
        Member #86099
        January 29, 2010
        11119 Posts
        Offline
        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?

        How about them cowboys!

         

         

        US Flag

          SEA-Pick3's avatar - eeb2feafcf44

          United States
          Member #176653
          August 18, 2016
          56 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 



            lakerben's avatar - spherewall
            New Mexico
            United States
            Member #86099
            January 29, 2010
            11119 Posts
            Offline
            Posted: September 22, 2016, 12:29 pm - IP Logged
            It is the basis of the formula 



            And......

            How about them cowboys!

             

             

            US Flag

              SEA-Pick3's avatar - eeb2feafcf44

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

               

               

                SEA-Pick3's avatar - eeb2feafcf44

                United States
                Member #176653
                August 18, 2016
                56 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 ;

                  Sunglasses's avatar - nicebear
                  Zaperlopopotam
                  Belgium
                  Member #173932
                  March 26, 2016
                  958 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?

                  .
                    SEA-Pick3's avatar - eeb2feafcf44

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

                    Borland Delphi 7

                     Embarcadero RAD Studio Delphi XE2

                      lakerben's avatar - spherewall
                      New Mexico
                      United States
                      Member #86099
                      January 29, 2010
                      11119 Posts
                      Offline
                      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?

                       

                      Thumbs Up

                      How about them cowboys!

                       

                       

                      US Flag

                        SEA-Pick3's avatar - eeb2feafcf44

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

                        good filters, but it needs more work

                          SEA-Pick3's avatar - eeb2feafcf44

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

                            Avatar
                            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 Party

                            Thank you and have a prosperous day!

                            Maverick2842.......out!Party

                              JKING's avatar - Kaleidoscope 3.gif

                              United States
                              Member #5599
                              July 13, 2004
                              1185 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 Party

                              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 occasioanlly find an acorn.

                                 
                                Page 43 of 44