zztongx.prg

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

b(11)=0
b(12)=0
b(13)=0
b(14)=0
b(15)=0
b(16)=0
B(17)=""
********************************
        ENDIF
   ENDDO
    
        
    *******************************************
    K=1
       DO WHILE K<17
         IF B(K)=0
            b(k)="  "
           ENDIF
          K=K+1 
          ENDDO
      SELECT J
      APPEND BLANK
      GATHER FROM B
      SELECT A
     
    CLOSE ALL
 **********************************************************************************************************************3///
******************************************
PROC ZH_4   &&大小奇偶统计

SET TALK OFF
DIME B(24)
b(1)=0
b(2)=0
b(3)=0
b(4)=0
b(5)=0
b(6)=0
b(7)=0
b(8)=0
b(9)=0
b(10)=0
b(11)=0
b(12)=0
b(13)=0
b(14)=0
b(15)=0
b(16)=0
b(17)=0
b(18)=0
b(19)=0
b(20)=0
b(21)=0
B(22)=0
B(23)=0
B(24)=0

N=0

SELECT 1
USE 3DS2007.DBF
SELECT 10
USE DATONG.DBF
DELE ALL
PACK
SELECT A
DO WHILE .NOT.EOF()
    IF 大小1="3/0"
        
        IF 奇偶1="3/0"
           B(1)=B(1)+1
           ENDIF
        IF 奇偶2="2/1"
           B(2)=B(2)+1
           ENDIF
        IF 奇偶3="1/2"
           B(3)=B(3)+1
           ENDIF
        IF 奇偶4="0/3"
           B(4)=B(4)+1
           ENDIF
     
      ENDIF
    
    IF 大小2="2/1"
        
        IF 奇偶1="3/0"
           B(5)=B(5)+1
           ENDIF
        IF 奇偶2="2/1"
           B(6)=B(6)+1
           ENDIF
        IF 奇偶3="1/2"
           B(7)=B(7)+1
           ENDIF
        IF 奇偶4="0/3"
           B(8)=B(8)+1
           ENDIF
     
      ENDIF
   
   IF 大小3="1/2"
        
        IF 奇偶1="3/0"
           B(9)=B(9)+1
           ENDIF
        IF 奇偶2="2/1"
           B(10)=B(10)+1
           ENDIF
        IF 奇偶3="1/2"
           B(11)=B(11)+1
           ENDIF
        IF 奇偶4="0/3"
           B(12)=B(12)+1
           ENDIF
     
      ENDIF
   
   IF 大小4="0/3"
        
        IF 奇偶1="3/0"
           B(13)=B(13)+1
           ENDIF
        IF 奇偶2="2/1"
           B(14)=B(14)+1
           ENDIF
        IF 奇偶3="1/2"
           B(15)=B(15)+1
           ENDIF
        IF 奇偶4="0/3"
           B(16)=B(16)+1
           ENDIF
     
      ENDIF
   
   IF 连号单="单"
        IF 连号双="③"
           B(17)=B(17)+1
           ELSE
           B(18)=B(18)+1
           ENDIF
       ENDIF
       
   IF 连号双="双"
        IF 连号单="③"
           B(19)=B(19)+1
           ELSE
           B(20)=B(20)+1
           ENDIF
       ENDIF
   
   IF 不连号单="单"
        IF 不连号双="③"
           B(21)=B(21)+1
           ELSE
             IF 不连号双="⑥"
                B(22)=B(22)+1
             ENDIF
           ENDIF
       ENDIF
       
   IF 不连号双="双"
        IF 不连号单="③"
           B(23)=B(23)+1
           ELSE
             IF 不连号单="⑥"
              B(24)=B(24)+1
              ENDIF
           ENDIF
       ENDIF
   
   N=N+1
   
   SKIP

   IF n=zq
      
      K=1
       DO WHILE K<25
          
          IF B(K)=0
             B(K)="  "
             ENDIF
          K=K+1 
          ENDDO
   
      SELECT J
      APPEND BLANK
      GATHER FROM B
      SELECT A
      
      N=0
          


b(1)=0
b(2)=0
b(3)=0
b(4)=0
b(5)=0
b(6)=0
b(7)=0
b(8)=0
b(9)=0
b(10)=0
b(11)=0
b(12)=0
b(13)=0
b(14)=0
b(15)=0
b(16)=0
b(17)=0
b(18)=0
b(19)=0
b(20)=0
b(21)=0
B(22)=0
B(23)=0
B(24)=0

      ENDIF
        
ENDDO


    K=1
       DO WHILE K<25
         IF B(K)=0
            b(k)="  "
           
            ENDIF
          K=K+1 
          ENDDO
      SELECT J
      APPEND BLANK
      GATHER FROM B
      SELECT A
     

close all

*********************************************************************************************4////
******************************************
PROC ZH_5  &&奇偶大小统计

SET TALK OFF
DIME B(27)
b(1)=0
b(2)=0
b(3)=0
b(4)=0
b(5)=0
b(6)=0
b(7)=0
b(8)=0
b(9)=0
b(10)=0
b(11)=0
b(12)=0
b(13)=0
b(14)=0
b(15)=0
b(16)=0
b(17)=0
b(18)=0
b(19)=0
b(20)=0
b(21)=0
B(22)=0
B(23)=0
B(24)=0
b(25)=0
b(26)=0
b(27)=0

N=0

SELECT 1
USE 3DS2007.DBF
SELECT 10
USE jiTONG.DBF
DELE ALL
PACK
SELECT A
DO WHILE .NOT.EOF()
    IF 奇偶1="3/0"
        
        IF 大小1="3/0"
           B(1)=B(1)+1
           ENDIF
        IF 大小2="2/1"
           B(2)=B(2)+1
           ENDIF
        IF 大小3="1/2"
           B(3)=B(3)+1
           ENDIF
        IF 大小4="0/3"
           B(4)=B(4)+1
           ENDIF
     
      ENDIF
    
    IF 奇偶2="2/1"
        
        IF 大小1="3/0"
           B(5)=B(5)+1
           ENDIF
        IF 大小2="2/1"
           B(6)=B(6)+1
           ENDIF
        IF 大小3="1/2"
           B(7)=B(7)+1
           ENDIF
        IF 大小4="0/3"
           B(8)=B(8)+1
           ENDIF
     
      ENDIF
   
   IF 奇偶3="1/2"
        
        IF 大小1="3/0"
           B(9)=B(9)+1
           ENDIF
        IF 大小2="2/1"
           B(10)=B(10)+1
           ENDIF
        IF 大小3="1/2"
           B(11)=B(11)+1
           ENDIF
        IF 大小4="0/3"
           B(12)=B(12)+1
           ENDIF
     
      ENDIF
   
   IF 奇偶4="0/3"
        
        IF 大小1="3/0"
           B(13)=B(13)+1
           ENDIF
        IF 大小2="2/1"
           B(14)=B(14)+1
           ENDIF
        IF 大小3="1/2"
           B(15)=B(15)+1
           ENDIF
        IF 大小4="0/3"
           B(16)=B(16)+1
           ENDIF
     
      ENDIF
   
   
  IF 区2="①"
     b(17)=b(17)+1
     endif
  
  IF 区2="②"
     b(18)=b(18)+1
     endif
  
  IF 区2="③"
     b(19)=b(19)+1
     endif
  
  IF 区2="④"
     b(20)=b(20)+1
     endif
  
  IF 区2="⑤"
     b(21)=b(21)+1
     endif
  
  IF 区2="⑥"
     b(22)=b(22)+1
     endif
  
  IF 区2="⑦"
     b(23)=b(23)+1
     endif
  
  IF 区2="⑧"
     b(24)=b(24)+1
     endif
  
   IF 区2="⑨"
     b(25)=b(25)+1
     endif
  
  IF 区2="⑩"
     b(26)=b(26)+1
     endif
  
  IF 区2="11"
     b(27)=b(27)+1
     endif
  
  
   
   N=N+1
   
   SKIP

   IF n=zq
      
     K=1
       DO WHILE K<28
          
          IF B(K)=0
             B(K)="  "
             ENDIF
          K=K+1 
          ENDDO
     
      SELECT J
      APPEND BLANK
      GATHER FROM B
      SELECT A
      
      N=0
          


b(1)=0
b(2)=0
b(3)=0
b(4)=0
b(5)=0
b(6)=0
b(7)=0
b(8)=0
b(9)=0
b(10)=0
b(11)=0
b(12)=0
b(13)=0
b(14)=0
b(15)=0
b(16)=0
b(17)=0
b(18)=0
b(19)=0
b(20)=0
b(21)=0
B(22)=0
B(23)=0
B(24)=0
b(25)=0
b(26)=0
b(27)=0

      ENDIF
        
ENDDO

*******************************************
******************************************************************


     
     K=1
       DO WHILE K<28
         IF B(K)=0
            b(k)="  "
            ENDIF
          K=K+1 
          ENDDO
      SELECT J
      APPEND BLANK
      GATHER FROM B
      SELECT A


close all

*******************************************************************************************************5////
******************************************
PROC ZH_6

SET TALK OFF

DIME B(27)
b(1)=0
b(2)=0
b(3)=0
b(4)=0
b(5)=0
b(6)=0
b(7)=0
b(8)=0
b(9)=0
b(10)=0
b(11)=0
b(12)=0
b(13)=0
b(14)=0
b(15)=0
b(16)=0
b(17)=0
b(18)=0
b(19)=0
b(20)=0
b(21)=0
B(22)=0
B(23)=0
B(24)=0
b(25)=0
b(26)=0
b(27)=0

n=0
Select 1
USE 3ds2007
Select 10
Use 012tong 
dele all
pack
Select A
M=""
DO WHILE .NOT.EOF()
     
     M=str(除012路1,1)+str(除012路2,1)+str(除012路3,1)
     
     IF M="000"   
        b(1)=b(1)+1
        ENDIF
     IF M="001"
        b(2)=b(2)+1
        ENDIF  
     IF M="002"
        b(3)=b(3)+1
        ENDIF
    IF M="010"
        b(4)=b(4)+1
        ENDIF
     IF M="011"
        b(5)=b(5)+1
        ENDIF
    IF M="012"
        b(6)=b(6)+1
        ENDIF    
     IF M="020"
        b(7)=b(7)+1
        ENDIF
     IF M="021"
        b(8)=b(8)+1
        ENDIF
        
        IF M="022"
        b(9)=b(9)+1
        ENDIF
        
        IF M="100"
        b(10)=b(10)+1
        ENDIF
        
        IF M="101"
        b(11)=b(11)+1
        ENDIF   
     IF M="102"
        b(12)=b(12)+1
        ENDIF
     IF M="110"
        b(13)=b(13)+1
        ENDIF
     IF M="111"
        b(14)=b(14)+1
        ENDIF
     IF M="112"
        b(15)=b(15)+1
        ENDIF
     IF M="120"
        b(16)=b(16)+1
        ENDIF
     IF M="121"
        b(17)=b(17)+1
        ENDIF
     IF M="122"
        b(18)=b(18)+1
        ENDIF
     IF M="200"
        b(19)=b(19)+1
        ENDIF
     IF M="201"
        b(20)=b(20)+1
        ENDIF
     IF M="202"
        b(21)=b(21)+1
        ENDIF
     
     IF M="210"
        b(22)=b(22)+1
        ENDIF
     
     IF M="211"