zztongx.prg

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

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 3DDANDATONG.DBF
DELE ALL
PACK
SELECT A
DO WHILE .NOT.EOF()
    **********************
    BW=MOD(百位,2)
    sw=mod(十位,2)
    gw=mod(个位,2)
    **********************
    BB=百位
    ss=十位
    gg=个位
    **************************************************单单单
    IF BW=1.AND.SW=1.AND.GW=1
        
        IF  bb>4.and.ss>4.and.gg>4
            b(1)=b(1)+1
            ENDIF
        
        IF bb>4.and.ss>4.and.gg<5
            b(2)=b(2)+1
            ENDIF   
        
        IF bb>4.and.ss<5.and.gg>4
            b(3)=b(3)+1
            ENDIF       
                   
        IF bb>4.and.ss<5.and.gg<5
            b(4)=b(4)+1
            ENDIF        
                      
         IF bb<5.and.ss>4.and.gg>4
            b(5)=b(5)+1
            ENDIF
         
         IF bb<5.and.ss>4.and.gg<5
            b(6)=b(6)+1
            ENDIF
         
         IF bb<5.and.ss<5.and.gg>4
            b(7)=b(7)+1
            ENDIF 
         
         IF bb<5.and.ss<5.and.gg<5
            b(8)=b(8)+1
            ENDIF
                 ENDIF
 *********************************************************单单双             
      IF BW=1.AND.SW=1.AND.GW=0
        
        IF  bb>4.and.ss>4.and.gg>4
            b(9)=b(9)+1
            ENDIF
        
        IF bb>4.and.ss>4.and.gg<5
            b(10)=b(10)+1
            ENDIF   
        
        IF bb>4.and.ss<5.and.gg>4
            b(11)=b(11)+1
            ENDIF       
                   
        IF bb>4.and.ss<5.and.gg<5
            b(12)=b(12)+1
            ENDIF        
                      
         IF bb<5.and.ss>4.and.gg>4
            b(13)=b(13)+1
            ENDIF
         
         IF bb<5.and.ss>4.and.gg<5
            b(14)=b(14)+1
            ENDIF
         
         IF bb<5.and.ss<5.and.gg>4
            b(15)=b(15)+1
            ENDIF 
         
         IF bb<5.and.ss<5.and.gg<5
            b(16)=b(16)+1
            ENDIF
                 ENDIF  
 *******************************************************单双单
        IF BW=1.AND.SW=0.AND.GW=1
        
        IF  bb>4.and.ss>4.and.gg>4
            b(17)=b(17)+1
            ENDIF
        
        IF bb>4.and.ss>4.and.gg<5
            b(18)=b(18)+1
            ENDIF   
        
        IF bb>4.and.ss<5.and.gg>4
            b(19)=b(19)+1
            ENDIF       
                   
        IF bb>4.and.ss<5.and.gg<5
            b(20)=b(20)+1
            ENDIF        
                      
         IF bb<5.and.ss>4.and.gg>4
            b(21)=b(21)+1
            ENDIF
         
         IF bb<5.and.ss>4.and.gg<5
            b(22)=b(22)+1
            ENDIF
         
         IF bb<5.and.ss<5.and.gg>4
            b(23)=b(23)+1
            ENDIF 
         
         IF bb<5.and.ss<5.and.gg<5
            b(24)=b(24)+1
            ENDIF
                 ENDIF
 
 
 *******************************************************单双双
        IF BW=1.AND.SW=0.AND.GW=0
        
        IF  bb>4.and.ss>4.and.gg>4
            b(25)=b(25)+1
            ENDIF
        
        IF bb>4.and.ss>4.and.gg<5
            b(26)=b(26)+1
            ENDIF   
        
        IF bb>4.and.ss<5.and.gg>4
            b(27)=b(27)+1
            ENDIF       
                   
        IF bb>4.and.ss<5.and.gg<5
            b(28)=b(28)+1
            ENDIF        
                      
         IF bb<5.and.ss>4.and.gg>4
            b(29)=b(29)+1
            ENDIF
         
         IF bb<5.and.ss>4.and.gg<5
            b(30)=b(30)+1
            ENDIF
         
         IF bb<5.and.ss<5.and.gg>4
            b(31)=b(31)+1
            ENDIF 
         
         IF bb<5.and.ss<5.and.gg<5
            b(32)=b(32)+1
            ENDIF
                 ENDIF
 
 *******************************************************双单单
      IF BW=0.AND.SW=1.AND.GW=1
        
        IF  bb>4.and.ss>4.and.gg>4
            b(33)=b(33)+1
            ENDIF
        
        IF bb>4.and.ss>4.and.gg<5
            b(34)=b(34)+1
            ENDIF   
        
        IF bb>4.and.ss<5.and.gg>4
            b(35)=b(35)+1
            ENDIF       
                   
        IF bb>4.and.ss<5.and.gg<5
            b(36)=b(36)+1
            ENDIF        
                      
         IF bb<5.and.ss>4.and.gg>4
            b(37)=b(37)+1
            ENDIF
         
         IF bb<5.and.ss>4.and.gg<5
            b(38)=b(38)+1
            ENDIF
         
         IF bb<5.and.ss<5.and.gg>4
            b(39)=b(39)+1
            ENDIF 
         
         IF bb<5.and.ss<5.and.gg<5
            b(40)=b(40)+1
            ENDIF
                 ENDIF

 *******************************************************双单双
        IF BW=0.AND.SW=1.AND.GW=0
        
        IF  bb>4.and.ss>4.and.gg>4
            b(41)=b(41)+1
            ENDIF
        
        IF bb>4.and.ss>4.and.gg<5
            b(42)=b(42)+1
            ENDIF   
        
        IF bb>4.and.ss<5.and.gg>4
            b(43)=b(43)+1
            ENDIF       
                   
        IF bb>4.and.ss<5.and.gg<5
            b(44)=b(44)+1
            ENDIF        
                      
         IF bb<5.and.ss>4.and.gg>4
            b(45)=b(45)+1
            ENDIF
         
         IF bb<5.and.ss>4.and.gg<5
            b(46)=b(46)+1
            ENDIF
         
         IF bb<5.and.ss<5.and.gg>4
            b(47)=b(47)+1
            ENDIF 
         
         IF bb<5.and.ss<5.and.gg<5
            b(48)=b(48)+1
            ENDIF
                 ENDIF

 *******************************************************双双单
        IF BW=0.AND.SW=0.AND.GW=1
        
        IF  bb>4.and.ss>4.and.gg>4
            b(49)=b(49)+1
            ENDIF
        
        IF bb>4.and.ss>4.and.gg<5
            b(50)=b(50)+1
            ENDIF   
        
        IF bb>4.and.ss<5.and.gg>4
            b(51)=b(51)+1
            ENDIF       
                   
        IF bb>4.and.ss<5.and.gg<5
            b(52)=b(52)+1
            ENDIF        
                      
         IF bb<5.and.ss>4.and.gg>4
            b(53)=b(53)+1
            ENDIF
         
         IF bb<5.and.ss>4.and.gg<5
            b(54)=b(54)+1
            ENDIF
         
         IF bb<5.and.ss<5.and.gg>4
            b(55)=b(55)+1
            ENDIF 
         
         IF bb<5.and.ss<5.and.gg<5
            b(56)=b(56)+1
            ENDIF
                 ENDIF
 *******************************************************双双双
     IF BW=0.AND.SW=0.AND.GW=0
        
        IF  bb>4.and.ss>4.and.gg>4
            b(57)=b(57)+1
            ENDIF
        
        IF bb>4.and.ss>4.and.gg<5
            b(58)=b(58)+1
            ENDIF   
        
        IF bb>4.and.ss<5.and.gg>4
            b(59)=b(59)+1
            ENDIF       
                   
        IF bb>4.and.ss<5.and.gg<5
            b(60)=b(60)+1
            ENDIF        
                      
         IF bb<5.and.ss>4.and.gg>4
            b(61)=b(61)+1
            ENDIF
         
         IF bb<5.and.ss>4.and.gg<5
            b(62)=b(62)+1
            ENDIF
         
         IF bb<5.and.ss<5.and.gg>4
            b(63)=b(63)+1
            ENDIF 
         
         IF bb<5.and.ss<5.and.gg<5
            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


********************************************************************11//////
******************************************
PROC ZH_12

SET TALK OFF

DIME B(35)
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


n=0
Select 1
USE 3ds2007
Select 10
Use 3xzddtong
dele all
pack
Select A
DO WHILE .NOT.EOF()
     ************************
     if (百位=1.or.百位=2.or.百位=3.or.百位=5.or.百位=7).and.(十位=1.or.十位=2.or.十位=3.or.十位=5.or.十位=7).and.(个位=1.or.个位=2.or.个位=3.or.个位=5.or.个位=7)
         b(1)=b(1)+1
         endif
         ***************
    if (百位=1.or.百位=2.or.百位=3.or.百位=5.or.百位=7).and.(十位=1.or.十位=2.or.十位=3.or.十位=5.or.十位=7).and.(个位=0.or.个位=4.or.个位=6.or.个位=8.or.个位=9)
         b(2)=b(2)+1
         endif
         ***************
     if (百位=1.or.百位=2.or.百位=3.or.百位=5.or.百位=7).and.(十位=0.or.十位=4.or.十位=6.or.十位=8.or.十位=9).and.(个位=1.or.个位=2.or.个位=3.or.个位=5.or.个位=7)
         b(3)=b(3)+1
         endif
         *************** 
      if (百位=1.or.百位=2.or.百位=3.or.百位=5.or.百位=7).and.(十位=0.or.十位=4.or.十位=6.or.十位=8.or.十位=9).and.(个位=0.or.个位=4.or.个位=6.or.个位=8.or.个位=9)
         b(4)=b(4)+1
         endif
         ***************    
      if (百位=0.or.百位=4.or.百位=6.or.百位=8.or.百位=9).and.(十位=0.or.十位=4.or.十位=6.or.十位=8.or.十位=9).and.(个位=0.or.个位=4.or.个位=6.or.个位=8.or.个位=9)
         b(5)=b(5)+1
         endif
         ***************  
       if (百位=0.or.百位=4.or.百位=6.or.百位=8.or.百位=9).and.(十位=0.or.十位=4.or.十位=6.or.十位=8.or.十位=9).and.(个位=1.or.个位=2.or.个位=3.or.个位=5.or.个位=7)
         b(6)=b(6)+1
         endif
         ***************   
       if (百位=0.or.百位=4.or.百位=6.or.百位=8.or.百位=9).and.(十位=1.or.十位=2.or.十位=3.or.十位=5.or.十位=7).and.(个位=0.or.个位=4.or.个位=6.or.个位=8.or.个位=9)
         b(7)=b(7)+1
         endif
         ***************
       if (百位=0.or.百位=4.or.百位=6.or.百位=8.or.百位=9).and.(十位=1.or.十位=2.or.十位=3.or.十位=5.or.十位=7).and.(个位=1.or.个位=2.or.个位=3.or.个位=5.or.个位=7)
         b(8)=b(8)+1
         endif


         *************************
         ***************  dadadadaxiao
      
      
       if (百位>4).and.(十位>4).and.(个位>4)
         b(9)=b(9)+1
         endif
         ***************  
       if (百位>4).and.(十位>4).and.(个位<5)
         b(10)=b(10)+1
         endif
         ***************
          if (百位>4).and.(十位<5).and.(个位>4)
         b(11)=b(11)+1
         endif
         ***************
           if (百位>4).and.(十位<5).and.(个位<5)
         b(12)=b(12)+1
         endif
         *************** 
          if (百位<5).and.(十位<5).and.(个位<5)
         b(13)=b(13)+1
         endif
         *************** 
         if (百位<5).and.(十位<5).and.(个位>4)
         b(14)=b(14)+1
         endif
         *************** 
          if (百位<5).and.(十位>4).and.(个位<5)
         b(15)=b(15)+1
         endif
         *************** 
         if (百位<5).and.(十位>4).and.(个位>4)
         b(16)=b(16)+1
         endif
         ***************  
         
         *****************************dandandan
         *****************************
         
         if mod(百位,2)=1.and.mod(十位,2)=1.and.mod(个位,2)=1
         b(17)=b(17)+1
         endif
         ***************  
          if mod(百位,2)=1.and.mod(十位,2)=1.and.mod(个位,2)=0
         b(18)=b(18)+1
         endif
         ***************  
          if mod(百位,2)=1.and.mod(十位,2)=0.and.mod(个位,2)=1
         b(19)=b(19)+1
         endif
         *************** 
          if mod(百位,2)=1.and.mod(十位,2)=0.and.mod(个位,2)=0
         b(20)=b(20)+1
         endif
         ***************   
          if mod(百位,2)=0.and.mod(十位,2)=0.and.mod(个位,2)=0
         b(21)=b(21)+1
         endif
         ***************  
          if mod(百位,2)=0.and.mod(十位,2)=0.and.mod(个位,2)=1
         b(22)=b(22)+1
         endif
         ***************  
          if mod(百位,2)=0.and.mod(十位,2)=1.and.mod(个