zztongx.prg

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

      
      IF M="986".OR.M="982".OR.M="963".OR.M="861".OR.M="932".OR.M="821".OR.M="631".OR.M="321".OR.M="981".OR.M="931".OR.M="831".OR.M="983".OR.M="111".OR.M="911".OR.;          
          M="988".or.M="881".or.M="933".or.M="331".or.M="998".or.M="993".or.M="811".or.M="311"
          B(7)=B(7)+1
          ENDIF
          
      IF M="760".OR.M="720".OR.M="640".OR.M="765".OR.M="420".OR.M="752".OR.M="654".OR.M="542".OR.M="764".OR.M="742".OR.M="642".OR.M="762".OR.M="222".OR.M="622".OR.;          
          M="644".or.M="442".or.M="766".or.M="664".or.M="722".or.M="422".or.M="776".or.M="772" 
          B(8)=B(8)+1
          ENDIF
      
      IF M="976".or.M="972".or.M="964".or.M="761".or.M="942".or.M="721".or.M="641".or.M="421".or.M="971".or.M="941".OR.M="741".OR.M="974".OR.M="444".OR.M="744".OR.;          
          M="711".or.M="411".or.M="977".or.M="771".or.M="944".or.M="441".or.M="997".or.M="994"
          B(9)=B(9)+1
          ENDIF
      
      IF M="876".or.M="872".or.M="864".or.M="763".or.M="842".or.M="732".or.M="643".or.M="432".or.M="873".or.M="843".OR.M="743".OR.M="874".OR.M="888".OR.M="883".OR.;         
          M="877".or.M="773".or.M="844".or.M="443".or.M="887".or.M="884".or.M="733".or.M="433"
          B(10)=B(10)+1
          ENDIF
     

******************************************************
       
     n=n+1
     skip
    IF n=zq
       
       K=1
       DO WHILE K<11
          
          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
********************************
        ENDIF
   ENDDO

    K=1
       DO WHILE K<11
         IF B(K)=0
            b(k)="  "
            
            ENDIF
          K=K+1 
          ENDDO
      SELECT J
      APPEND BLANK
      GATHER FROM B
      SELECT A
        
*************************************
  
   
    CLOSE ALL
*******************************************************************************9//// 
******************************************
PROC ZH_10

SET TALK OFF
DIME B(64)
************************************************
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
b(28)=0
b(29)=0
b(30)=0
b(31)=0
B(32)=0
b(33)=0
b(34)=0
b(35)=0
b(36)=0
b(37)=0
b(38)=0
b(39)=0
b(40)=0
b(41)=0
b(42)=0
b(43)=0
b(44)=0
b(45)=0
b(46)=0
b(47)=0
b(48)=0
b(49)=0
b(50)=0
b(51)=0
B(52)=0
B(53)=0
B(54)=0
b(55)=0
b(56)=0
b(57)=0
b(58)=0
b(59)=0
b(60)=0
b(61)=0
B(62)=0
b(63)=0
B(64)=0
********************************************************
N=0

SELECT 1
USE 3DS2007.DBF
SELECT 10
USE 3DDADANTONG.DBF
DELE ALL
PACK
SELECT A
DO WHILE .NOT.EOF()
    IF 百位>4.and.十位>4.and.个位>4
        
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=5.or.十位=7.or.十位=9).and.(个位=5.or.个位=7.or.个位=9)
            b(1)=b(1)+1
            ENDIF
        
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=5.or.十位=7.or.十位=9).and.(个位=6.or.个位=8)
            b(2)=b(2)+1
            ENDIF   
        
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=6.or.十位=8).and.(个位=5.or.个位=7.or.个位=9)
            b(3)=b(3)+1
            ENDIF       
                  
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=6.or.十位=8).and.(个位=6.or.个位=8)
            b(4)=b(4)+1
            ENDIF        
                      
         IF (百位=6.or.百位=8).and.(十位=5.or.十位=7.or.十位=9).and.(个位=5.or.个位=7.or.个位=9)
            b(5)=b(5)+1
            ENDIF
         
         IF (百位=6.or.百位=8).and.(十位=5.or.十位=7.or.十位=9).and.(个位=6.or.个位=8)
            b(6)=b(6)+1
            ENDIF
         
         IF (百位=6.or.百位=8).and.(十位=6.or.十位=8).and.(个位=5.or.个位=7.or.个位=9)
            b(7)=b(7)+1
            ENDIF 
         
         IF (百位=6.or.百位=8).and.(十位=6.or.十位=8).and.(个位=6.or.个位=8)
            b(8)=b(8)+1
            ENDIF
                 ENDIF
                 
     IF 百位>4.and.十位>4.and.个位<5
        
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=5.or.十位=7.or.十位=9).and.(个位=1.or.个位=3)
            b(9)=b(9)+1
            ENDIF
        
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=5.or.十位=7.or.十位=9).and.(个位=0.or.个位=2.or.个位=4)
            b(10)=b(10)+1
            ENDIF   
        
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=6.or.十位=8).and.(个位=1.or.个位=3)
            b(11)=b(11)+1
            ENDIF       
                  
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=6.or.十位=8).and.(个位=0.or.个位=2.or.个位=4)
            b(12)=b(12)+1
            ENDIF        
                      
         IF (百位=6.or.百位=8).and.(十位=5.or.十位=7.or.十位=9).and.(个位=1.or.个位=3)
            b(13)=b(13)+1
            ENDIF
         
         IF (百位=6.or.百位=8).and.(十位=5.or.十位=7.or.十位=9).and.(个位=0.or.个位=2.or.个位=4)
            b(14)=b(14)+1
            ENDIF
         
         IF (百位=6.or.百位=8).and.(十位=6.or.十位=8).and.(个位=1.or.个位=3)
            b(15)=b(15)+1
            ENDIF 
         
         IF (百位=6.or.百位=8).and.(十位=6.or.十位=8).and.(个位=0.or.个位=2.or.个位=4)
            b(16)=b(16)+1
            ENDIF
                 ENDIF
       
       IF 百位>4.and.十位<5.and.个位>4
        
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=1.or.十位=3).and.(个位=5.or.个位=7.or.个位=9)
            b(17)=b(17)+1
            ENDIF
        
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=1.or.十位=3).and.(个位=6.or.个位=8)
            b(18)=b(18)+1
            ENDIF   
        
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=0.or.十位=2.or.十位=4).and.(个位=5.or.个位=7.or.个位=9)
            b(19)=b(19)+1
            ENDIF       
                  
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=0.or.十位=2.or.十位=4).and.(个位=6.or.个位=8)
            b(20)=b(20)+1
            ENDIF        
                      
         IF (百位=6.or.百位=8).and.(十位=1.or.十位=3).and.(个位=5.or.个位=7.or.个位=9)
            b(21)=b(21)+1
            ENDIF
         
         IF (百位=6.or.百位=8).and.(十位=1.or.十位=3).and.(个位=6.or.个位=8)
            b(22)=b(22)+1
            ENDIF
         
         IF (百位=6.or.百位=8).and.(十位=0.or.十位=2.or.十位=4).and.(个位=5.or.个位=7.or.个位=9)
            b(23)=b(23)+1
            ENDIF 
         
         IF (百位=6.or.百位=8).and.(十位=0.or.十位=2.or.十位=4).and.(个位=6.or.个位=8)
            b(24)=b(24)+1
            ENDIF
                 ENDIF
                 
        IF 百位>4.and.十位<5.and.个位<5
        
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=1.or.十位=3).and.(个位=1.or.个位=3)
            b(25)=b(25)+1
            ENDIF
        
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=1.or.十位=3).and.(个位=0.or.个位=2.or.个位=4)
            b(26)=b(26)+1
            ENDIF   
        
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=0.or.十位=2.or.十位=4).and.(个位=1.or.个位=3)
            b(27)=b(27)+1
            ENDIF       
                  
        IF (百位=5.or.百位=7.or.百位=9).and.(十位=0.or.十位=2.or.十位=4).and.(个位=0.or.个位=2.or.个位=4)
            b(28)=b(28)+1
            ENDIF        
                      
         IF (百位=6.or.百位=8).and.(十位=1.or.十位=3).and.(个位=1.or.个位=3)
            b(29)=b(29)+1
            ENDIF
         
         IF (百位=6.or.百位=8).and.(十位=1.or.十位=3).and.(个位=0.or.个位=2.or.个位=4)
            b(30)=b(30)+1
            ENDIF
         
         IF (百位=6.or.百位=8).and.(十位=0.or.十位=2.or.十位=4).and.(个位=1.or.个位=3)
            b(31)=b(31)+1
            ENDIF 
         
         IF (百位=6.or.百位=8).and.(十位=0.or.十位=2.or.十位=4).and.(个位=0.or.个位=2.or.个位=4)
            b(32)=b(32)+1
            ENDIF
                 ENDIF
 *********************************************************
 *********************************************************
  IF 百位<5.and.十位>4.and.个位>4
        
        IF (百位=1.or.百位=3).and.(十位=5.or.十位=7.or.十位=9).and.(个位=5.or.个位=7.or.个位=9)
            b(33)=b(33)+1
            ENDIF
        
        IF (百位=1.or.百位=3).and.(十位=5.or.十位=7.or.十位=9).and.(个位=6.or.个位=8)
            b(34)=b(34)+1
            ENDIF   
        
        IF (百位=1.or.百位=3).and.(十位=6.or.十位=8).and.(个位=5.or.个位=7.or.个位=9)
            b(35)=b(35)+1
            ENDIF       
                  
        IF (百位=1.or.百位=3).and.(十位=6.or.十位=8).and.(个位=6.or.个位=8)
            b(36)=b(36)+1
            ENDIF        
                      
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=5.or.十位=7.or.十位=9).and.(个位=5.or.个位=7.or.个位=9)
            b(37)=b(37)+1
            ENDIF
         
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=5.or.十位=7.or.十位=9).and.(个位=6.or.个位=8)
            b(38)=b(38)+1
            ENDIF
         
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=6.or.十位=8).and.(个位=5.or.个位=7.or.个位=9)
            b(39)=b(39)+1
            ENDIF 
         
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=6.or.十位=8).and.(个位=6.or.个位=8)
            b(40)=b(40)+1
            ENDIF
                 ENDIF
                 
 ********************************************************************************************
  IF 百位<5.and.十位>4.and.个位<5
        
        IF (百位=1.or.百位=3).and.(十位=5.or.十位=7.or.十位=9).and.(个位=1.or.个位=3)
            b(41)=b(41)+1
            ENDIF
        
        IF (百位=1.or.百位=3).and.(十位=5.or.十位=7.or.十位=9).and.(个位=0.or.个位=2.or.个位=4)
            b(42)=b(42)+1
            ENDIF   
        
        IF (百位=1.or.百位=3).and.(十位=6.or.十位=8).and.(个位=1.or.个位=3)
            b(43)=b(43)+1
            ENDIF       
                  
        IF (百位=1.or.百位=3).and.(十位=6.or.十位=8).and.(个位=0.or.个位=2.or.个位=4)
            b(44)=b(44)+1
            ENDIF        
                      
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=5.or.十位=7.or.十位=9).and.(个位=1.or.个位=3)
            b(45)=b(45)+1
            ENDIF
         
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=5.or.十位=7.or.十位=9).and.(个位=0.or.个位=2.or.个位=4)
            b(46)=b(46)+1
            ENDIF
         
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=6.or.十位=8).and.(个位=1.or.个位=3)
            b(47)=b(47)+1
            ENDIF 
         
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=6.or.十位=8).and.(个位=0.or.个位=2.or.个位=4)
            b(48)=b(48)+1
            ENDIF
                 ENDIF
  *******************************************************     
  IF 百位<5.and.十位<5.and.个位>4
        
        IF (百位=1.or.百位=3).and.(十位=1.or.十位=3).and.(个位=5.or.个位=7.or.个位=9)
            b(49)=b(49)+1
            ENDIF
        
        IF (百位=1.or.百位=3).and.(十位=1.or.十位=3).and.(个位=6.or.个位=8)
            b(50)=b(50)+1
            ENDIF   
        
        IF (百位=1.or.百位=3).and.(十位=0.or.十位=2.or.十位=4).and.(个位=5.or.个位=7.or.个位=9)
            b(51)=b(51)+1
            ENDIF       
                  
        IF (百位=1.or.百位=3).and.(十位=0.or.十位=2.or.十位=4).and.(个位=6.or.个位=8)
            b(52)=b(52)+1
            ENDIF        
                      
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=1.or.十位=3).and.(个位=5.or.个位=7.or.个位=9)
            b(53)=b(53)+1
            ENDIF
         
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=1.or.十位=3).and.(个位=6.or.个位=8)
            b(54)=b(54)+1
            ENDIF
         
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=0.or.十位=2.or.十位=4).and.(个位=5.or.个位=7.or.个位=9)
            b(55)=b(55)+1
            ENDIF 
         
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=0.or.十位=2.or.十位=4).and.(个位=6.or.个位=8)
            b(56)=b(56)+1
            ENDIF
                 ENDIF
 *********************************************************************************                
  IF 百位<5.and.十位<5.and.个位<5
        
        IF (百位=1.or.百位=3).and.(十位=1.or.十位=3).and.(个位=1.or.个位=3)
            b(57)=b(57)+1
            ENDIF
        
        IF (百位=1.or.百位=3).and.(十位=1.or.十位=3).and.(个位=0.or.个位=2.or.个位=4)
            b(58)=b(58)+1
            ENDIF   
        
        IF (百位=1.or.百位=3).and.(十位=0.or.十位=2.or.十位=4).and.(个位=1.or.个位=3)
            b(59)=b(59)+1
            ENDIF       
                  
        IF (百位=1.or.百位=3).and.(十位=0.or.十位=2.or.十位=4).and.(个位=0.or.个位=2.or.个位=4)
            b(60)=b(60)+1
            ENDIF        
                      
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=1.or.十位=3).and.(个位=1.or.个位=3)
            b(61)=b(61)+1
            ENDIF
         
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=1.or.十位=3).and.(个位=0.or.个位=2.or.个位=4)
            b(62)=b(62)+1
            ENDIF
         
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=0.or.十位=2.or.十位=4).and.(个位=1.or.个位=3)
            b(63)=b(63)+1
            ENDIF 
         
         IF (百位=0.or.百位=2.or.百位=4).and.(十位=0.or.十位=2.or.十位=4).and.(个位=0.or.个位=2.or.个位=4)
            b(64)=b(64)+1
            ENDIF
                 ENDIF
   
   N=N+1
   
   SKIP

   IF n=zq
      
      K=1
       DO WHILE K<65
          
          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
b(28)=0
b(29)=0
b(30)=0
b(31)=0
B(32)=0
b(33)=0
b(34)=0
b(35)=0
b(36)=0
b(37)=0
b(38)=0
b(39)=0
b(40)=0
b(41)=0
b(42)=0
b(43)=0
b(44)=0
b(45)=0
b(46)=0
b(47)=0
b(48)=0
b(49)=0
b(50)=0
b(51)=0
B(52)=0
B(53)=0
B(54)=0
b(55)=0
b(56)=0
b(57)=0
b(58)=0
b(59)=0
b(60)=0
b(61)=0
B(62)=0
b(63)=0
B(64)=0 
********************************************


      ENDIF
        
ENDDO

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

close all


*****************************************************************************10/////
******************************************
PROC ZH_11

SET TALK OFF
DIME B(64)
************************************************
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
b(28)=0
b(29)=0
b(30)=0
b(31)=0
B(32)=0
b(33)=0
b(34)=0
b(35)=0
b(36)=0
b(37)=0
b(38)=0
b(39)=0
b(40)=0