datazh2008.prg

这是一款非常实用的福彩3D彩票统计分析软件,实现各种代码走势图的查看,以及按照相应统计指标进行统计分析、浏览报表、打印报表

set talk off
Select 1
USE X3d 
GO BOTTOM
REC1=RECNO()
Select 10
Use pfds2008 
GO BOTTOM
 REC2=RECNO()
 if rec2=1
    rec2=0
    endif
rec3=rec2+1
Dime s(77)   &&定义数组（54—+7+1+1+4+3+6）
IF REC1>REC2
 &&&---------S(52)
Select A
GO REC3
Do while.Not.Eof()
    S(1)=期号
    S(2)=机球
    s(63)=试机号  &&试机号
    s(64)=val(left(试机号,1))+val(right(left(试机号,2),1))+val(right(试机号,1))   
    s(65)=val(left(试机号,1))
    s(66)=val(right(left(试机号,2),1))
    s(67)=val(right(试机号,1)) 
    S(3)=str(百位,1)+str(十位,1)+str(个位,1)
    ******************************
    S(4)=百位
    S(5)=十位
    S(6)=个位
    S(7)=Max(Max(S(4),S(5)),S(6))-Min(Min(S(4),S(5)),S(6))
    S(8)=S(4)+S(5)+S(6)
    ************************************
    S(9)=""
    S(10)=""
    S(11)=""
    S(12)=""
    
    D1=0
    D2=0
    D3=0
    T=S(8)
      
    D1=Max(S(4),S(5))-Min(S(4),S(5))
    D2=Max(S(4),S(6))-Min(S(4),S(6))
    D3=Max(S(5),S(6))-Min(S(5),S(6))
  *****************************************************************  
  tm1=""
  tm2=""
  s(53)=" "
  s(54)=" "
  if d1=0.or.d2=0.or.d3=0
           s(53)="组三"
           else
            s(54)="组六"
            endif
    If D1=1.or.D1=9.or.D2=1.or.D2=9.or.D3=1.or.D3=9
        
        S(11)=""
        S(12)=""
        If T=1.OR.T=3.OR.T=5.OR.T=7.OR.T=9.OR.T=11.OR.T=13.OR.T=15.OR.T=17.OR.T=19.OR.T=21.OR.T=23.OR.T=25.OR.T=27
           S(9)="单"
           tm1="连号单"  &&&&&&&
           If D1=0.OR.D2=0.OR.D3=0
              If D1=0.and.D2=0.and.D3=0
                 S(10)="直"
                 tm2="直"&&&&&&
                 Else
                 S(10)="③"
                 tm2="组三"
              EndIf   
              Else
              S(10)="⑥"
                tm2="组六"
           EndIf
              
           else
               S(10)="双"
               tm1="连号双" 
              If D1=0.OR.D2=0.OR.D3=0
                 If D1=0.and.D2=0.and.D3=0
                 S(9)="直"
                 tm2="直"&&&&&&
                 Else
                 S(9)="③"
                 tm2="组三"
              EndIf   
              Else
              S(9)="⑥"
               tm2="组六"
              EndIf
               
        EndIf
       Else
       S(9)=""
       S(10)=""
       If T=1.OR.T=3.OR.T=5.OR.T=7.OR.T=9.OR.T=11.OR.T=13.OR.T=15.OR.T=17.OR.T=19.OR.T=21.OR.T=23.OR.T=25.OR.T=27                
          S(11)="单"
          tm1="不连号单"  &&&&&&&
          If D1=0.OR.D2=0.OR.D3=0
              If D1=0.and.D2=0.and.D3=0
                 S(12)="直"
                 tm2="直"&&&&&&
                 Else
                 S(12)="③"
                  tm2="组三"
              EndIf   
              
              Else
              S(12)="⑥"
              tm2="组六"
           EndIf
          
          Else
             S(12)="双"
             tm1="不连号双"  &&&&&&&
             If D1=0.OR.D2=0.OR.D3=0
                If D1=0.and.D2=0.and.D3=0
                 S(11)="直"
                 tm2="直"&&&&&&
                 Else
                 S(11)="③"
                  tm2="组三"
              EndIf   
             
              Else
              S(11)="⑥"
              tm2="组六"
           EndIf
       
       EndIf
    EndIf
          s(52)=tm1+tm2   &&&连不连组合 赋值
******************************************************************************************     
    N0=0
    If S(4)>=5 
       N0=N0+1
        EndIf
    If S(5)>=5
       N0=N0+1
        EndIf
    If S(6)>=5
       N0=N0+1
        EndIf
    If N0=3
       S(13)="3/0"
       S(14)=""
       S(15)=""
       S(16)=""
        EndIf
    If N0=2
       S(14)="2/1"
       S(13)=""
       S(15)=""
       S(16)=""
       EndIf
    If N0=1
       S(15)="1/2"
       S(14)=""
       S(13)=""
       S(16)=""
       EndIf
    If N0=0
       S(16)="0/3"
       S(14)=""
       S(15)=""
       S(13)=""
       EndIf
       
      ******************************************
      N0=0
    If S(4)>=5 
       N0=N0+1
        EndIf
    If S(5)>=5
       N0=N0+1
        EndIf
    If S(6)>=5
       N0=N0+1
        EndIf
    If N0=3
       S(41)="3/0"
       
        EndIf
    If N0=2
       S(41)="2/1"

       EndIf
    If N0=1
       S(41)="1/2"
      
       EndIf
    If N0=0
       S(41)="0/3"
       
       EndIf
      
      
 **************************************8
 
    N1=0
    If S(4)=1.or.S(4)=3.or.S(4)=5.or.S(4)=7.or.S(4)=9
       N1=N1+1
       EndIf
    If S(5)=1.or.S(5)=3.or.S(5)=5.or.S(5)=7.or.S(5)=9
       N1=N1+1
       EndIf    
    If S(6)=1.or.S(6)=3.or.S(6)=5.or.S(6)=7.or.S(6)=9
       N1=N1+1
       EndIf
    
    If N1=3
       S(17)="3/0"
       S(18)=""
       S(19)=""
       S(20)=""
        EndIf
    If N1=2
       S(18)="2/1"
       S(17)=""
       S(19)=""
       S(20)=""
       EndIf
    If N1=1
       S(19)="1/2"
       S(17)=""
       S(18)=""
       S(20)=""
       EndIf
    If N1=0
       S(20)="0/3"
       S(17)=""
       S(18)=""
       S(19)=""
       EndIf
  *************************************** &&奇偶赋值
    N1=0
    If S(4)=1.or.S(4)=3.or.S(4)=5.or.S(4)=7.or.S(4)=9
       N1=N1+1
       EndIf
    If S(5)=1.or.S(5)=3.or.S(5)=5.or.S(5)=7.or.S(5)=9
       N1=N1+1
       EndIf    
    If S(6)=1.or.S(6)=3.or.S(6)=5.or.S(6)=7.or.S(6)=9
       N1=N1+1
       EndIf
    
    If N1=3
       S(42)="3/0"
      
        EndIf
    If N1=2
       S(42)="2/1"
      
       EndIf
    If N1=1
       S(42)="1/2"
      
       EndIf
    If N1=0
       S(42)="0/3"
       
       EndIf
   
      
          
 *****************************************插入质合指标 s(40)
     N1=0
    If S(4)=1.or.S(4)=3.or.S(4)=5.or.S(4)=7.or.S(4)=2
       N1=N1+1
       EndIf
    If S(5)=1.or.S(5)=3.or.S(5)=5.or.S(5)=7.or.S(5)=2
       N1=N1+1
       EndIf    
    If S(6)=1.or.S(6)=3.or.S(6)=5.or.S(6)=7.or.S(6)=2
       N1=N1+1
       EndIf
    
    If N1=3
       S(40)="3/0"
      
        EndIf
    If N1=2
       S(40)="2/1"
       
       EndIf
    If N1=1
       S(40)="1/2"
       
       EndIf
    If N1=0
       S(40)="0/3"
      
       EndIf
******************************************    
    If S(4)=0.or.S(4)=3.or.S(4)=6.or.S(4)=9
       S(21)=0
      EndIf
    If S(4)=1.or.S(4)=4.or.S(4)=7
       S(21)=1
      EndIf
    If S(4)=2.or.S(4)=5.or.S(4)=8
       S(21)=2
      EndIf
    
    If S(5)=0.or.S(5)=3.or.S(5)=6.or.S(5)=9
       S(22)=0
      EndIf
    If S(5)=1.or.S(5)=4.or.S(5)=7
       S(22)=1
      EndIf
    If S(5)=2.or.S(5)=5.or.S(5)=8
       S(22)=2
      EndIf
      
    If S(6)=0.or.S(6)=3.or.S(6)=6.or.S(6)=9
       S(23)=0
      EndIf
    If S(6)=1.or.S(6)=4.or.S(6)=7
       S(23)=1
      EndIf
    If S(6)=2.or.S(6)=5.or.S(6)=8
       S(23)=2
      EndIf
      *******************************插入012路指标 s(43)
      s(43)=str(s(21),1)+str(s(22),1)+str(s(23),1)
      
 **********************************************
    S(24)=""
    S(25)=""
    S(26)=""
    If Mod(S(8),3)=0
       S(24)="0"
       EndIf
    If Mod(s(8),3)=1
       S(25)="1"
       EndIf
    If Mod(s(8),3)=2
       S(26)="2"