datazh.prg

来自「这是一款非常实用的福彩3D彩票统计分析软件,实现各种代码走势图的查看,以及按照相」· PRG 代码 · 共 660 行 · 第 1/2 页

set talk off
Select 1
USE x3d 
go bottom
rec1=recno()
Select 10
Use 3ds2007 
go bottom
rec2=recno()
IF REC2=1
   REC2=0
   ENDIF
REC3=REC2+1
Dime S(41)
if rec1>rec2
Select A
go rec3
Do while.Not.Eof()
    S(1)=期号
    S(2)=机球
    S(3)=试机号
    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))
    
    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)="单"
           If D1=0.OR.D2=0.OR.D3=0
              If D1=0.and.D2=0.and.D3=0
                 S(10)="直"
                 Else
                 S(10)="③"
              EndIf   
              Else
              S(10)="⑥"
           EndIf
              
           else
               S(10)="双"
              If D1=0.OR.D2=0.OR.D3=0
                 If D1=0.and.D2=0.and.D3=0
                 S(9)="直"
                 Else
                 S(9)="③"
              EndIf   
              Else
              S(9)="⑥"
              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)="单"
          If D1=0.OR.D2=0.OR.D3=0
              If D1=0.and.D2=0.and.D3=0
                 S(12)="直"
                 Else
                 S(12)="③"
              EndIf   
              
              Else
              S(12)="⑥"
           EndIf
          
          Else
             S(12)="双"
             If D1=0.OR.D2=0.OR.D3=0
                If D1=0.and.D2=0.and.D3=0
                 S(11)="直"
                 Else
                 S(11)="③"
              EndIf   
             
              Else
              S(11)="⑥"
           EndIf
       
       EndIf
    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(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
    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
    
    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
    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"
       EndIf
    
    
    IF s(8)=0.or.s(8)=3.or.s(8)=6.or.s(8)=9.or.s(8)=12.or.s(8)=15.or.s(8)=18.or.s(8)=21.or.s(8)=24.or. s(8)=27  
         IF s(7)=0.or.s(7)=3.or.s(7)=6.or.s(7)=9
               S(27)="A00"    
               ENDIF
         IF s(7)=1.or.s(7)=4.or.s(7)=7
               S(27)="A01"    
               ENDIF   
         IF s(7)=2.or.s(7)=5.or.s(7)=8
               S(27)="A02"    
               ENDIF 
       ENDIF
       
     IF s(8)=1.or.s(8)=4.or.s(8)=7.or.s(8)=10.or.s(8)=13.or.s(8)=16.or.s(8)=19.or.s(8)=22.or.s(8)=25  
         IF s(7)=0.or.s(7)=3.or.s(7)=6.or.s(7)=9
               S(27)="B10"    
               ENDIF
         IF s(7)=1.or.s(7)=4.or.s(7)=7
               S(27)="B11"    
               ENDIF   
         IF s(7)=2.or.s(7)=5.or.s(7)=8
               S(27)="B12"    
               ENDIF 
       ENDIF
    
      IF s(8)=2.or.s(8)=5.or.s(8)=8.or.s(8)=11.or.s(8)=14.or.s(8)=17.or.s(8)=20.or.s(8)=23.or.s(8)=26  
         IF s(7)=0.or.s(7)=3.or.s(7)=6.or.s(7)=9
               S(27)="C20"    
               ENDIF
         IF s(7)=1.or.s(7)=4.or.s(7)=7
               S(27)="C21"    
               ENDIF   
         IF s(7)=2.or.s(7)=5.or.s(7)=8
               S(27)="C22"    
               ENDIF 
       ENDIF  
    
     M1=MAX(百位,十位)
     M2=MIN(百位,十位)
     M3=个位
     IF M3>M1
          M=str(m3,1)+str(m1,1)+str(m2,1)
         else
           IF M3<M2
               M=str(m1,1)+str(m2,1)+str(m3,1)
               else
               M=str(m1,1)+str(m3,1)+str(m2,1)
           ENDIF
      ENDIF	
      
      IF M="980".OR.M="970".OR.M="870".OR.M="987".OR.M="960".OR.M="860".OR.M="986".OR.M="760".OR.M="976".OR.M="876"          
          s(28)="①"
          ENDIF
                  
      IF M="950".OR.M="850".OR.M="985".OR.M="750".OR.M="975".OR.M="875".OR.M="650".OR.M="965".OR.M="865".OR.M="765"          
          s(28)="②"
          ENDIF
      
      IF M="940".OR.M="840".OR.M="984".OR.M="740".OR.M="974".OR.M="874".OR.M="640".OR.M="964".OR.M="864".OR.M="764"          
         s(28)="③"
          ENDIF
      
      IF M="540".OR.M="954".OR.M="854".OR.M="754".OR.M="654".OR.M="930".OR.M="830".OR.M="983".OR.M="730".OR.M="973"          
         s(28)="④"
          ENDIF
      
      IF M="873".OR.M="630".OR.M="963".OR.M="863".OR.M="763".OR.M="530".OR.M="953".OR.M="853".OR.M="753".OR.M="653"          
         s(28)="⑤"
          ENDIF
      
      IF M="430".OR.M="943".OR.M="843".OR.M="743".OR.M="643".OR.M="543".OR.M="920".OR.M="820".OR.M="982".OR.M="720"          
          s(28)="⑥"
          ENDIF
      
      IF M="972".OR.M="872".OR.M="620".OR.M="962".OR.M="862".OR.M="762".OR.M="520".OR.M="952".OR.M="852".OR.M="752"          
          s(28)="⑦"
          ENDIF
          
      IF M="652".OR.M="420".OR.M="942".OR.M="842".OR.M="742".OR.M="642".OR.M="542".OR.M="320".OR.M="932".OR.M="832"          
         s(28)="⑧"
          ENDIF
      
      IF M="732".or.M="632".or.M="532".or.M="432".or.M="910".or.M="810".or.M="981".or.M="710".or.M="971".or.M="871"          
          s(28)="⑨"
          ENDIF
      
      IF M="610".or.M="961".or.M="861".or.M="761".or.M="510".or.M="951".or.M="851".or.M="751".or.M="651".or.M="410"          
         s(28)="⑩"
          ENDIF
      
      IF M="941".or.M="841".or.M="741".or.M="641".or.M="541".or.M="310".or.M="931".or.M="831".or.M="731".or.M="631"          
         s(28)="11"
          ENDIF
      
      IF M="531".or.M="431".or.M="210".or.M="921".or.M="821".or.M="721".or.M="621".or.M="521".or.M="421".or.M="321"          
          s(28)="12"
          ENDIF
      
      IF M="900".or.M="990".or.M="800".or.M="880".or.M="998".or.M="988".or.M="700".or.M="770".or.M="997".or.M="977"          
         s(28)="13"
          ENDIF
      
      
      IF M="887".or.M="877".or.M="600".or.M="660".or.M="996".or.M="966".or.M="886".or.M="866".or.M="776".or.M="766"          
          s(28)="14"
          ENDIF
          
      IF M="500".or.M="550".or.M="995".or.M="955".or.M="885".or.M="855".or.M="775".or.M="755".or.M="665".or.M="655"          
         s(28)="15"
          ENDIF
          
       IF M="400".or.M="440".or.M="994".or.M="944".or.M="884".or.M="844".or.M="774".or.M="744".or.M="664".or.M="644"          
         s(28)="16"
          ENDIF
          
       IF M="554".or.M="544".or.M="300".or.M="330".or.M="993".or.M="933".or.M="883".or.M="833".or.M="773".or.M="733"          
         s(28)="17"