zztong.prg

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

        b(25)=b(25)+1
        ENDIF
     IF M="221"
        b(26)=b(26)+1
        ENDIF
     IF M="222"
        b(27)=b(27)+1
        ENDIF
        
     
     n=n+1
     skip
    IF N=10
       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
   **************************
    ******************************************************************

SELE A
GO BOTTOM
TM=RECNO()
PM=RIGHT(STR(TM),1)
PM2=VAL(PM)
IF PM2<>0
DO WHILE PM2<>0
   GO TM
   TM=TM-1
   PM2=PM2-1
    
    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"
        b(23)=b(23)+1
        ENDIF
     
     IF M="212"
        b(24)=b(24)+1
        ENDIF
     IF M="220"
        b(25)=b(25)+1
        ENDIF
     IF M="221"
        b(26)=b(26)+1
        ENDIF
     IF M="222"
        b(27)=b(27)+1
        ENDIF
    ENDDO
     *******************************************
    K=1
       DO WHILE K<28
         IF B(K)=0
            b(k)="  "
            ELSE
              B(K)=B(K)/2
            ENDIF
          K=K+1 
          ENDDO
      SELECT J
      APPEND BLANK
      GATHER FROM B
      SELECT A
      ENDIF
*************************************
 
   
    CLOSE ALL
*************************************************************************************6////
******************************************
PROC ZH_7

SET TALK OFF

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




n=0
Select 1
USE 3ds2007
Select 10
Use hekuatong 
dele all
pack
Select A
DO WHILE .NOT.EOF()
     
     IF 和值=0.OR.和值=3.OR.和值=6.OR.和值=9.OR.和值=12.OR.和值=15.OR.和值=18.OR.和值=21.OR.和值=24.OR.和值=27
         IF 跨度=0.OR.跨度=3.OR.跨度=6.OR.跨度=9
            B(1)=B(1)+1
            ENDIF
        ENDIF          
     
     IF 和值=1.OR.和值=4.OR.和值=7.OR.和值=10.OR.和值=13.OR.和值=16.OR.和值=19.OR.和值=22.OR.和值=25
         IF 跨度=1.OR.跨度=4.OR.跨度=7
            B(2)=B(2)+1
            ENDIF
        ENDIF 
     
     IF 和值=2.OR.和值=5.OR.和值=8.OR.和值=11.OR.和值=14.OR.和值=17.OR.和值=20.OR.和值=23.OR.和值=26
         IF 跨度=2.OR.跨度=5.OR.跨度=8
            B(3)=B(3)+1
            ENDIF
        ENDIF 
     
     IF 和值=0.OR.和值=3.OR.和值=6.OR.和值=9.OR.和值=12.OR.和值=15.OR.和值=18.OR.和值=21.OR.和值=24.OR.和值=27
         IF 跨度=1.OR.跨度=4.OR.跨度=7
            B(4)=B(4)+1
            ENDIF
        ENDIF 
     
     IF 和值=0.OR.和值=3.OR.和值=6.OR.和值=9.OR.和值=12.OR.和值=15.OR.和值=18.OR.和值=21.OR.和值=24.OR.和值=27
         IF 跨度=2.OR.跨度=5.OR.跨度=8
            B(5)=B(5)+1
            ENDIF
        ENDIF 
     
     IF 和值=1.OR.和值=4.OR.和值=7.OR.和值=10.OR.和值=13.OR.和值=16.OR.和值=19.OR.和值=22.OR.和值=25
        IF 跨度=0.OR.跨度=3.OR.跨度=6.OR.跨度=9
            B(6)=B(6)+1
            ENDIF
        ENDIF   
          
     IF 和值=1.OR.和值=4.OR.和值=7.OR.和值=10.OR.和值=13.OR.和值=16.OR.和值=19.OR.和值=22.OR.和值=25
         IF 跨度=2.OR.跨度=5.OR.跨度=8
            B(7)=B(7)+1
            ENDIF
        ENDIF 
     
     IF 和值=2.OR.和值=5.OR.和值=8.OR.和值=11.OR.和值=14.OR.和值=17.OR.和值=20.OR.和值=23.OR.和值=26
        IF 跨度=0.OR.跨度=3.OR.跨度=6.OR.跨度=9
            B(8)=B(8)+1
            ENDIF
        ENDIF   
         
     IF 和值=2.OR.和值=5.OR.和值=8.OR.和值=11.OR.和值=14.OR.和值=17.OR.和值=20.OR.和值=23.OR.和值=26
         IF 跨度=1.OR.跨度=4.OR.跨度=7
            B(9)=B(9)+1
            ENDIF
        ENDIF 
    ************************************************
    IF 差1=0
       b(10)=b(10)+1
       ENDIF
     IF 差1=1
       b(11)=b(11)+1
       ENDIF  
    IF 差1=2
       b(12)=b(12)+1
       ENDIF
    IF 差1=3
       b(13)=b(13)+1
       ENDIF 
    IF 差1=4
       b(14)=b(14)+1
       ENDIF   
    IF 差1=5
       b(15)=b(15)+1
       ENDIF  
    IF 差1=6
       b(16)=b(16)+1
       ENDIF 
    IF 差1=7
       b(17)=b(17)+1
       ENDIF
    IF 差1=8
       b(18)=b(18)+1
       ENDIF
    IF 差1=9
       b(19)=b(19)+1
       ENDIF
     
     n=n+1
     skip
    IF N=10
       
       K=1
       DO WHILE K<20
          
          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

        ENDIF
   ENDDO
*************************************
******************************************************************

SELE A
GO BOTTOM
TM=RECNO()
PM=RIGHT(STR(TM),1)
PM2=VAL(PM)
IF PM2<>0
DO WHILE PM2<>0
   GO TM
   TM=TM-1
   PM2=PM2-1

IF 和值=0.OR.和值=3.OR.和值=6.OR.和值=9.OR.和值=12.OR.和值=15.OR.和值=18.OR.和值=21.OR.和值=24.OR.和值=27
         IF 跨度=0.OR.跨度=3.OR.跨度=6.OR.跨度=9
            B(1)=B(1)+1
            ENDIF
        ENDIF          
     
     IF 和值=1.OR.和值=4.OR.和值=7.OR.和值=10.OR.和值=13.OR.和值=16.OR.和值=19.OR.和值=22.OR.和值=25
         IF 跨度=1.OR.跨度=4.OR.跨度=7
            B(2)=B(2)+1
            ENDIF
        ENDIF 
     
     IF 和值=2.OR.和值=5.OR.和值=8.OR.和值=11.OR.和值=14.OR.和值=17.OR.和值=20.OR.和值=23.OR.和值=26
         IF 跨度=2.OR.跨度=5.OR.跨度=8
            B(3)=B(3)+1
            ENDIF
        ENDIF 
     
     IF 和值=0.OR.和值=3.OR.和值=6.OR.和值=9.OR.和值=12.OR.和值=15.OR.和值=18.OR.和值=21.OR.和值=24.OR.和值=27
         IF 跨度=1.OR.跨度=4.OR.跨度=7
            B(4)=B(4)+1
            ENDIF
        ENDIF 
     
     IF 和值=0.OR.和值=3.OR.和值=6.OR.和值=9.OR.和值=12.OR.和值=15.OR.和值=18.OR.和值=21.OR.和值=24.OR.和值=27
         IF 跨度=2.OR.跨度=5.OR.跨度=8
            B(5)=B(5)+1
            ENDIF
        ENDIF 
     
     IF 和值=1.OR.和值=4.OR.和值=7.OR.和值=10.OR.和值=13.OR.和值=16.OR.和值=19.OR.和值=22.OR.和值=25
        IF 跨度=0.OR.跨度=3.OR.跨度=6.OR.跨度=9
            B(6)=B(6)+1
            ENDIF
        ENDIF   
          
     IF 和值=1.OR.和值=4.OR.和值=7.OR.和值=10.OR.和值=13.OR.和值=16.OR.和值=19.OR.和值=22.OR.和值=25
         IF 跨度=2.OR.跨度=5.OR.跨度=8
            B(7)=B(7)+1
            ENDIF
        ENDIF 
     
     IF 和值=2.OR.和值=5.OR.和值=8.OR.和值=11.OR.和值=14.OR.和值=17.OR.和值=20.OR.和值=23.OR.和值=26
        IF 跨度=0.OR.跨度=3.OR.跨度=6.OR.跨度=9
            B(8)=B(8)+1
            ENDIF
        ENDIF   
         
     IF 和值=2.OR.和值=5.OR.和值=8.OR.和值=11.OR.和值=14.OR.和值=17.OR.和值=20.OR.和值=23.OR.和值=26
         IF 跨度=1.OR.跨度=4.OR.跨度=7
            B(9)=B(9)+1
            ENDIF
        ENDIF 
    ************************************************
    IF 差1=0
       b(10)=b(10)+1
       ENDIF
     IF 差1=1
       b(11)=b(11)+1
       ENDIF  
    IF 差1=2
       b(12)=b(12)+1
       ENDIF
    IF 差1=3
       b(13)=b(13)+1
       ENDIF 
    IF 差1=4
       b(14)=b(14)+1
       ENDIF   
    IF 差1=5
       b(15)=b(15)+1
       ENDIF  
    IF 差1=6
       b(16)=b(16)+1
       ENDIF 
    IF 差1=7
       b(17)=b(17)+1
       ENDIF
    IF 差1=8
       b(18)=b(18)+1
       ENDIF
    IF 差1=9
       b(19)=b(19)+1
       ENDIF
   ENDDO
   *******************************************
    K=1
       DO WHILE K<20
         IF B(K)=0
            b(k)="  "
            ELSE
              B(K)=B(K)/2
            ENDIF
          K=K+1 
          ENDDO
      SELECT J
      APPEND BLANK
      GATHER FROM B
      SELECT A
      ENDIF

   
    CLOSE ALL
 ***********************************************************************7////
******************************************
PROC ZH_8
SET TALK OFF

DIME B(32)
********************************
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
*******************************************
n=0
Select 1
USE 3ds2007
Select 10
Use 21tong 
dele all
pack
Select A

DO WHILE .NOT.EOF()
     
     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"          
          B(1)=B(1)+1
          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"          
          B(2)=B(2)+1
          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"          
          B(3)=B(3)+1
          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"          
          B(4)=B(4)+1
          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"          
          B(5)=B(5)+1
          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"          
          B(6)=B(6)+1
          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"          
          B(7)=B(7)+1
          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"          
          B(8)=B(8)+1
          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"          
          B(9)=B(9)+1
          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"          
          B(10)=B(10)+1
          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"          
          B(11)=B(11)+1
          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"          
          B(12)=B(12)+1
          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"          
          B(13)=B(13)+1
          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"          
          B(14)=B(14)+1
          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"          
          B(15)=B(15)+1
          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"          
          B(16)=B(16)+1
          ENDIF