tc225.cpp

体育彩票22选5的分析程序

//---------------------------------------------------------------------------
#include <stdio.h>
#include <vcl.h>
#include <stdlib.h>

#pragma hdrstop

#include "tc225.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
int recnumber,l;
TForm1 *Form1;
bool ft=true;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
FILE *handle;
AnsiString datefile,dx,qo;
int rec,num,i[7],n;
Table1->Last();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int rem,i,j,k,bef[17],bknum,tot;
AnsiString str;
div_t m;
for(i=1;i<23;i++)
        StringGrid1->Cells[i][0]=IntToStr(i);
Table1->First();tot=1;
while(!Table1->Eof)
{       Table1->Edit();
        bef[0]=Table1->FieldValues["1"];
        bef[1]=Table1->FieldValues["2"];
        bef[2]=Table1->FieldValues["3"];
        bef[3]=Table1->FieldValues["4"];
        bef[4]=Table1->FieldValues["5"];
        for(i=0;i<7;i++)
                StringGrid1->Cells[bef[i]][tot]="k";
        tot++;
        str="";rem=0;bknum=bef[1]-bef[0];
        for(i=0;i<5;i++)
        {       rem=rem+bef[i];
                m=div(bef[i],2);
                        if(m.rem==0)
                                str=str+"双";
                        else
                                str=str+"单";
        }
        for(i=1;i<5;i++)
             if((bef[i]-bef[i-1])>bknum) bknum=bef[i]-bef[i-1];
        Table1->FieldValues["BK"]=bknum;
        Table1->FieldValues["奇偶序列"]=str;
        Table1->FieldValues["本期和"]=rem;
        Table1->Next();
}
Table1->Edit();
Table1->Post();
Table1->Refresh();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{
Table1->Last();
recnumber=Table1->FieldValues["第  期"];
Table1->Append();
Table1->FieldValues["第  期"]=recnumber+1;
DBEdit1->Enabled=true;
DBEdit2->Enabled=true;
DBEdit3->Enabled=true;
DBEdit4->Enabled=true;
DBEdit5->Enabled=true;
DBEdit6->Enabled=true;
Button3->Enabled=true;
Button2->Enabled=false;
//Table1->Post();
Table1->Refresh();

}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormDestroy(TObject *Sender)
{
Table1->Close();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button3Click(TObject *Sender)
{
int rem,num,bknum,i,bef[7];
AnsiString str;
div_t m;
AnsiString dx,qo;
Button3->Enabled=false;
Button2->Enabled=true;
DBEdit1->Enabled=false;
DBEdit2->Enabled=false;
DBEdit3->Enabled=false;
DBEdit4->Enabled=false;
DBEdit5->Enabled=false;
DBEdit6->Enabled=false;
       Table1->Edit();
        bef[0]=Table1->FieldValues["1"];
        bef[1]=Table1->FieldValues["2"];
        bef[2]=Table1->FieldValues["3"];
        bef[3]=Table1->FieldValues["4"];
        bef[4]=Table1->FieldValues["5"];
        str="";rem=0;bknum=bef[1]-bef[0];
        for(i=0;i<5;i++)
        {       rem=rem+bef[i];
                m=div(bef[i],2);
                        if(m.rem==0)
                                str=str+"双";
                        else
                                str=str+"单";
        }
        for(i=1;i<5;i++)
        if((bef[i]-bef[i-1])>bknum) bknum=bef[i]-bef[i-1];
        Table1->FieldValues["BK"]=bknum;
        Table1->FieldValues["奇偶序列"]=str;
        Table1->FieldValues["本期和"]=rem;
Table1->Post();
Table1->Refresh();
}
//---------------------------------------------------------------------------





void __fastcall TForm1::Button4Click(TObject *Sender)
{
int   G0[]={0,0,0,0,0,0x70,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,
0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0xf8,0xf8,0xf8,0xf8,0x70,0,0,0,0,0,
0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x0f,0x0f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,
0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf0,0xf0,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,
0,0,0,0,0,0,0,0xff,0xff,0xff,0xff,0xff,0,0,0,0,0,0,0,0,
0,0,0,0xc0,0xe0,0xf0,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf8,0xf0,0xe0,0xc0,0,0,0,
0x1f,0x1f,0x1f,0x1f,0x0f,0x07,0x03,0,0,0,0,0,0,0x07,0x0f,0x1f,0x1f,0x1f,0x1f,0x1f,
0,0,0,0xff,0xff,0xff,0xff,0xff,0,0,0,0,0xff,0xff,0xff,0xff,0xff,0,0,0,
0,0,0,0xf0,0xf8,0xf8,0xf8,0xf0,0,0,0,0,0xf0,0xf8,0xf8,0xf8,0xf0,0,0,0,
0,0,0,0x0f,0x1f,0x1f,0x1f,0x0f,0,0,0,0,0x0f,0x1f,0x1f,0x1f,0x0f,0,0,0,
0,0,0,0,0,0,0,0x0f,0x01f,0x1f,0x1f,0x0f,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0xf0,0xf8,0xf8,0xf8,0xf0,0,0,0,0,0,0,0,0,
0xf8,0xf8,0xff,0xff,0xff,0xff,0xff,0xf8,0xf8,0xf8,0,0,0,0,0,0,0,0,0,0,
0,0,0,0x3f,0x7f,0xff,0xff,0xff,0xf8,0xf8,
0xf0,0xf0,0xf0,0xf0,0xf0,0xf0,0xf0,0xf0,0xf0,0xf0,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0,0,0xff,0xfe,0xfc,0xf8,0xf0,0xe0,0xc0,0x80,0,0,0xff,0x7f,0x2f,0x1f,15,7,3,1,0xff,0xfe,0xfc,0xf8,0xf0,0xe0,0xc0,0x80,0,0,
0xff,0x7f,0x3f,0x1f,15,7,3,1,0,0,0,0,0x80,0xc0,0xe0,0xf0,0xf8,0xfc,0xfe,0xff,0,0,1,3,7,15,0x1f,0x3f,0x7f,0xff,
0x80,0xc0,0xe0,0xf0,0xf8,0xfc,0xfe,0xff,0,0,1,3,7,15,0x1f,0x3f,0x7f,0xff,0,0,0,0,0,0,0,0,0,0,0,0,
0x80,0xc0,0xe0,0xf0,0xf8,0xfc,0xfe,0xff,0xff,0xff,1,3,7,15,0x1f,0x3f,0x7f,0xff,0xff,0xff,0,0,0,0,0,0,0x80,0xc0,0xe0,0xf0,
0xe0,0xf0,0xf8,0xfc,0xfe,0xff,0xff,0xff,0xff,0xff,7,15,0x1f,0x3f,0x7f,0xff,0xff,0xff,0xff,0xff,
0,0,0,0,0,0,1,3,7,15,0,0,0,0,0x80,0xc0,0xe0,0xf0,0xf8,0xfc,0xf8,0xfc,0xfe,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0x1f,0x3f,0x7f,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0,0,0,0,1,3,7,15,0x1f,0x3f,0,0,0x80,0xc0,0xe0,0xf0,0xf8,0xfc,0xfe,0xff,
0xfe,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x7f,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0,0,1,3,7,15,0x1f,0x3f,0x7f,0xff, 0xff,0xfe,0xfc,0xf8,0xf0,0xe0,0xc0,0x80,0,0,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x7f,
0xff,0x7f,0x3f,0x1f,15,7,3,1,0,0,0xfc,0xf8,0xf0,0xe0,0xc0,0x80,0,0,0,0,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xfc,0xf8,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x7f,0x3f,0x1f,0x3f,0x1f,0x0f,7,3,1,0,0,0,0,0xf0,0xe0,0xc0,0x80,0,0,0,0,0,0,
0xff,0xff,0xff,0xff,0xff,0xff,0xfc,0xf8,0xf0,0xe0,0xff,0xff,0xff,0xff,0xff,0x7f,0x3f,0x1f,0x0f,7,15,7,3,1,0,0,0,0,0,0,
0xe0,0xc0,0,0,0,0,0,0,0,0,0xff,0xff,0xff,0xfe,0xfc,0xf8,0xf0,0xe0,0xc0,0x80,0xff,0xff,0xff,0x7f,0x3f,0x1f,0x0f,7,3,1,
7,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0xc0,0xe0,0,0,0,0,0,0,0,0,3,7,0,0,0,0,0,0,0,0,0xff,0xff,
0,0,0,0,0,0,0xff,0xff,0xff,0xff,0,0,0,0,0xff,0xff,0xff,0xff,0xff,0xff,0,0,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0,0,0xff,0xff,0xff,0xff,0xff,0xff,0,0,0,0,0xff,0xff,0xff,0xff,0,0,0,0,0,0,
0xff,0xff,0,0,0,0,0,0,0,0,0,0,0,0xfc,4,4,0xe4,0x24,0x24,0x24,0,0,0,0x3f,0x20,0x20,0x27,0x24,0x24,0x24,
0x24,0x24,0x24,0xe4,4,4,0xf0,0,0,0,0x24,0x24,0x24,0x27,0x20,0x20,0x3f,0,0,0,0,0,0,0xff,0,0,0xff,0,0,0,
0x24,0x24,0x24,0x24,0x24,0x24,0x24,0x24,0x24,0x24,0xff,1,0x1d,0xa5,0xa5,0x9d,0x9d,0x25,1,0xff,
0xff,0x80,0x8b,0x88,0x88,0x88,0x88,0xbb,0x80,0xff,0xff,0x81,0xbd,0x85,0x85,0x9d,0x85,0x85,0x81,0xff,
0xff,0x81,0xa5,0x99,0xbd,0xbd,0x99,0xa5,0x2a,0xff,0xff,0x81,0x81,0x81,0xbd,0xbd,0x81,0x81,0x81,0xff,
0xff,0x81,0x99,0x99,0xbd,0xbd,0x99,0x99,0x81,0xff,3,3,3,3,3,0x3f,0x3f,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1};

//int i[5],j,mj,n,k,bkm,ln,maxt,mint,num,dx[5],sl[5],bks;
AnsiString str,str1,s[5],ss[5],qostr,qo[5],hz[5],qo1[5],qo2[5],hqo1[5],hqo2[5];
int i1,i2,i3,i4,i5,cs,cs1,cs2,dxh,bkm1,dy;
/*bool flag;
div_t m[5],mbk;
sl[0]=Table1->FieldValues["1"];
sl[1]=Table1->FieldValues["2"];
sl[2]=Table1->FieldValues["3"];
sl[3]=Table1->FieldValues["4"];
sl[4]=Table1->FieldValues["5"];
Memo1->Lines->Clear();
maxt=StrToInt(Edit10->Text);
mint=StrToInt(Edit9->Text);
bkm=StrToInt(Edit1->Text);
dy=StrToInt(Edit2->Text);
bks=Table1->FieldValues["BK"];
for(j=0;j<5;j++)
{
        qo[j]=Table1->FieldValues["奇偶序列"];
        qo1[j]=qo[j].SubString(1,6);
        qo2[j]=qo[j].SubString(5,10);
        hqo1[j]=qo[j].SubString(1,8);
        hqo2[j]=qo[j].SubString(3,10);
        hz[j]=Table1->FieldValues["本期和"];
        Table1->MoveBy(-1);
}
bks=int(hz[0]/bks);
mbk=div(bks,10);
bks=mbk.rem;
Table1->MoveBy(5);
ln=0;
for(i1=dy;i1<dy+3;i1++)
   for(i2=i1+1;i2<14;i2++)
   {  if(i2<3) i2=3;
      for(i3=i2+1;i3<24;i3++)
      {
        for(i4=i3+1;i4<25;i4++)
        {
           if(i4<12) i4=12;
           for(i5=i4+1;i5<i1+24;i5++)
           {
                    num=0;
                    i[0]=i1;
                    i[1]=i2;
                    i[2]=i3;
                    i[3]=i4;
                    i[4]=i5;
                    qostr="";bkm1=0;dxh=0;
                    for(j=1;j<5;j++)
                        if((i[j]-i[j-1])>bkm1)
                                bkm1=i[j]-i[j-1];
                    for(j=0;j<5;j++)
                    {
                        m[j]=div(i[j],2);
                        num=num+i[j];
                        if(m[j].rem==0)
                                qostr=qostr+"双";
                        else
                                qostr=qostr+"单";
                        if(i[j]>=14)
                                dxh++;
                   }
                    mj=m[0].rem+m[1].rem+m[2].rem+m[3].rem+m[4].rem;
                    flag=1;
                    for(j=0;j<4;j++)
                        if(qostr==qo[j])      flag=0;
                    str1=qostr.SubString(1,6);
                    if(str1==qo1[j])      flag=0;
                    str1=qostr.SubString(5,10);
                    if(str1==hqo1[j])      flag=0;
                    for(j=0;j<3;j++)
                    {   str1=qostr.SubString(1,8);
                        if(str1==qo2[j])      flag=0;
                        str1=qostr.SubString(3,10);
                        if(str1==hqo2[j])      flag=0;
                    }
                    if(mj<2||mj>3) flag=0;
                    if(dxh<2||dxh>3) flag=0;
                    if((num>maxt)||(num<mint))       flag=0;
                    for(j=0;j<1;j++)
                        if(num==hz[j])      flag=0;
                    for(j=0;j<5;j++)
                    {   mbk=div(i[j],10);
          //              if(mbk.rem==bks)      flag=0;
                    }
                    num=i[0]+i[1]+i[2];
                    if((num<10))       flag=0;
  //                  if(bkm1>bkm||bkm1<5) flag=0;
                    cs2=0;cs1=0;cs=0 ;
                    for(k=0;k<5;k++)
                    for(n=0;n<5;n++)
                    {
                        j=abs(i[k]-sl[n]);
                         if(j==0)
                                cs++;
                    }
                    for(k=0;k<5;k++)
                    for(n=k;n<5;n++)
                    {
                         j=abs(i[k]-sl[n]);
                         if(j==1)
                                cs1++;
                    }
                    for(k=0;k<4;k++)
                    {
                        j=abs(i[k+1]-i[k]);
                         if(j==1)
                                cs2++;
                    }

                    if((cs+cs1+cs2)<4) flag=0;
                    if(flag)
                    {
                        ln++;
                        str.sprintf("%2d %2d %2d %2d %2d",i[0],i[1],i[2],i[3],i[4]);
                        Memo1->Lines->Append(str);
                    }
              }
           }
        }
      }
Edit8->Text=IntToStr(ln); */
i1=0;
i3=G0[i1];
while(i3!=-1)
{      i4=0;
       for(i2=0;i2<8;i2++)
       {
                i4=i4<<1;
                if((i3&1)!=0) i4=i4+1;
                i3=i3>>1;
       }
       str.sprintf("0x%2x,",i4);
       Memo1->Lines->Append(str);
       i1++;i3=G0[i1];
}
}
//---------------------------------------------------------------------------






void __fastcall TForm1::Button7Click(TObject *Sender)
{
FILE *handle;
AnsiString datefile,dx,qo;
if (OpenDialog1->Execute())
//datefile=OpenDialog1->FileName;
        Memo1->Lines->SaveToFile(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------





void __fastcall TForm1::Button5Click(TObject *Sender)
{
if(StringGrid1->Visible)
        StringGrid1->Visible=false;
else
        StringGrid1->Visible=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)
{
Memo1->Lines->Clear();
Edit8->Text="";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button8Click(TObject *Sender)
{
int bqjg[5],yqjg[5],i,j,ydj,edj,sdj,xt;
FILE *handle;
AnsiString datefile,dx,qo;
ydj=0;edj=0;sdj=0;
bqjg[0]=StrToInt(Edit7->Text);
bqjg[1]=StrToInt(Edit11->Text);
bqjg[2]=StrToInt(Edit12->Text);
bqjg[3]=StrToInt(Edit13->Text);
bqjg[4]=StrToInt(Edit14->Text);

Memo1->Lines->Clear();
if (OpenDialog1->Execute())
{
        datefile=OpenDialog1->FileName;
        Memo1->Lines->LoadFromFile(datefile);
}
if ((handle =fopen(datefile.c_str(), "r"))==NULL)
{
      perror("file open error!");
      return;
}
while (!feof(handle))
{
        fscanf(handle,"%d %d %d %d %d\n",&yqjg[0],&yqjg[1],&yqjg[2],&yqjg[3],&yqjg[4]);
        xt=0;
        for(i=0;i<5;i++)
        {
                if(bqjg[i]==yqjg[i])
                        xt++;
        }
        if(xt==5)       ydj++;
        if(xt==3)       sdj++;
        if(xt==4)       edj++;
}
fclose(handle);
Edit3->Text=IntToStr(ydj);
Edit4->Text=IntToStr(edj);
Edit5->Text=IntToStr(sdj);
Edit6->Text=IntToStr(edj*50+sdj*5);
}
//---------------------------------------------------------------------------