zztongx2.prg

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

*******************************************
****MAIN PROGRAM
****公共变量 N=zq
****功能：完成开奖数据的数据分析统计
******************************************
public hao
hao=0
DO ZH_1
DO ZH_2
DO ZH_3
DO ZH_4
DO ZH_5
DO ZH_6
DO ZH_7
DO ZH_8
DO ZH_9
DO ZH_10
DO ZH_11
DO ZH_12
DO ZH_13
DO ZH_14
DO ZH_15
DO ZH_16
DO ZH_17
DO ZH_18
DO ZH_19
DO ZH_20
do zh_21
do zh_22
do zh_23


*****************************************
*****
*****过程共16个
****************************************
PROC ZH_1   &&跨度和值统计

SET TALK OFF
DIME B(21)
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

N=0

SELECT 1
USE 3DS2007.DBF
SELECT 10
USE SUMTONG
DELE ALL
PACK
*************************************************
*******************************************************
SELECT A
DO WHILE .NOT.EOF()
    
    IF  跨度=0
        b(1)=b(1)+1
         
          ENDIF
    
    IF  跨度=1
        b(2)=b(2)+1
             
            ENDIF
     
     IF  跨度=2
        b(3)=b(3)+1
             
          ENDIF
     
     IF  跨度=3
        b(4)=b(4)+1
           
           ENDIF
                        
     IF  跨度=4
        b(5)=b(5)+1
          
           ENDIF
     

      IF  跨度=5
        b(6)=b(6)+1
          
          ENDIF

      IF  跨度=6
        b(7)=b(7)+1
          
          ENDIF
       
      IF  跨度=7
        b(8)=b(8)+1
        
         ENDIF
             
       IF  跨度=8
        b(9)=b(9)+1
         
         ENDIF

        IF  跨度=9
        b(10)=b(10)+1
         
          ENDIF
       
       IF 和值>=4.AND.和值<=8
            b(11)=b(11)+1
            
             ENDIF

        IF 和值>=9.AND.和值<=11
            b(12)=b(12)+1
              
             ENDIF
            
       
       IF 和值>=12.AND.和值<=13
            b(13)=b(13)+1
            
            ENDIF     
        
                     
       IF 和值>=14.AND.和值<=15
            b(14)=b(14)+1
              
            ENDIF
        
       
       IF 和值>=16.AND.和值<=18
            b(15)=b(15)+1
            
            ENDIF
         
         
      IF 和值>=19.AND.和值<=23
            b(16)=b(16)+1
             
            ENDIF
            
            
      IF 和值>=0.AND.和值<=3
            b(17)=b(17)+1
           
             ENDIF


      IF 和值>=24.AND.和值<=27
            b(18)=b(18)+1
             
            ENDIF


      IF 和除3余0="0"
         b(19)=b(19)+1
          
            ENDIF
         
      IF 和除3余1="1"
         b(20)=b(20)+1
         
            ENDIF
         
      IF 和除3余2="2"
         b(21)=b(21)+1
          
           ENDIF
    
   N=N+1
   
   SKIP

   IF n=zq
         K=1
       DO WHILE K<22
         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
      ENDIF
        
ENDDO

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

********************************************************************************************************1///
******************************************
PROC ZH_2    &&和值统计
SET TALK OFF

DIME B(28)
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
n=0
Select 1
USE 3ds2007
Select 10
Use hetong 
dele all
pack
Select A
DO WHILE .NOT.EOF()
     
     IF 和值=4
        b(1)=b(1)+1
        ENDIF
     IF 和值=5
        b(2)=b(2)+1
        ENDIF  
     IF 和值=6
        b(3)=b(3)+1
        ENDIF
    IF 和值=7
        b(4)=b(4)+1
        ENDIF
     IF 和值=8
        b(5)=b(5)+1
        ENDIF
    IF 和值=9
        b(6)=b(6)+1
        ENDIF    
     IF 和值=10
        b(7)=b(7)+1
        ENDIF
        IF 和值=11
        b(8)=b(8)+1
        ENDIF
        
        IF 和值=12
        b(9)=b(9)+1
        ENDIF
        
        IF 和值=13
        b(10)=b(10)+1
        ENDIF
        
        IF 和值=14
        b(11)=b(11)+1
        ENDIF   
     IF 和值=15
        b(12)=b(12)+1
        ENDIF
     IF 和值=16
        b(13)=b(13)+1
        ENDIF
     IF 和值=17
        b(14)=b(14)+1
        ENDIF
     IF 和值=18
        b(15)=b(15)+1
        ENDIF
     IF 和值=19
        b(16)=b(16)+1
        ENDIF
     IF 和值=20
        b(17)=b(17)+1
        ENDIF
     IF 和值=21
        b(18)=b(18)+1
        ENDIF
     IF 和值=22
        b(19)=b(19)+1
        ENDIF
     IF 和值=23
        b(20)=b(20)+1
        ENDIF
     IF 和值=0
        b(21)=b(21)+1
        ENDIF
     
     IF 和值=1
        b(22)=b(22)+1
        ENDIF
     
     IF 和值=2
        b(23)=b(23)+1
        ENDIF
     
     IF 和值=3
        b(24)=b(24)+1
        ENDIF
     IF 和值=24
        b(25)=b(25)+1
        ENDIF
     IF 和值=25
        b(26)=b(26)+1
        ENDIF
     IF 和值=26
        b(27)=b(27)+1
        ENDIF
     IF 和值=27
        b(28)=b(28)+1
        ENDIF
     
     
     
     n=n+1
     skip
     
    IF n=zq
       
       K=1
       DO WHILE K<29
          
          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
        ENDIF
   ENDDO
*********************************
   K=1
       DO WHILE K<29
         IF B(K)=0
            b(k)="  "
            ENDIF
          K=K+1 
          ENDDO
      SELECT J
      APPEND BLANK
      GATHER FROM B
      SELECT A
     
   *************************************


 CLOSE ALL
*****************************************************************************************************2///
******************************************
PROC ZH_3  &&和值16分区统计
SET TALK OFF

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

DO WHILE .NOT.EOF()
     
     M1=MAX(百位,十位)
     M2=MIN(百位,十位)
     M3=个位
     M4=STR(百位,1)+STR(十位,1)+STR(个位,1)
     B(17)=B(17)+M4+"__"
     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="000".OR.M="111".OR.M="222".OR.M="333".OR.M="444".OR.M="555".OR.M="666".OR.M="777".OR.M="888".OR.M="999"          
          B(1)=B(1)+1
          ENDIF
                  
      IF  M="100".OR.M="200".OR.M="300".OR.M="400".OR.M="500".OR.M="600".OR.M="700".OR.M="800".OR.M="900".OR.M="811".OR.M="911".OR.M="822".OR.M="922".OR.M="833".OR.M="933".OR.M="844".OR.M="944".OR.M="855".OR.M="955".OR.M="866".OR.M="966".OR.M="877".OR.M="977".OR.M="996".OR.M="988".OR.M="998"          
          B(2)=B(2)+1
          ENDIF
      
      IF M="110".OR.M="211".OR.M="311".OR.M="411".OR.M="511".OR.M="611".OR.M="711".OR.M="622".OR.M="722".OR.M="633".OR.M="733".OR.M="644".OR.M="744".OR.M="655".OR.M="755".OR.M="774".OR.M="766".OR.M="776".OR.M="885".OR.M="886".OR.M="887".OR.M="997"          
          B(3)=B(3)+1
          ENDIF
      
      IF M="220".OR.M="221".OR.M="330".OR.M="322".OR.M="422".OR.M="522".OR.M="433".OR.M="533".OR.M="552".OR.M="544".OR.M="554".OR.M="663".OR.M="664".OR.M="665".OR.M="882".OR.M="775".OR.M="884".OR.M="993".OR.M="994".OR.M="995"          
          B(4)=B(4)+1
          ENDIF
      
      IF M="331".OR.M="332".OR.M="441".OR.M="442".OR.M="443".OR.M="660".OR.M="553".OR.M="662".OR.M="771".OR.M="772".OR.M="773".OR.M="990".OR.M="883".OR.M="992"         
          B(5)=B(5)+1
          ENDIF
      
      IF M="440".OR.M="550".OR.M="551".OR.M="661".OR.M="770".OR.M="880".OR.M="881".OR.M="991"          
          B(6)=B(6)+1
          ENDIF
      
      IF M="210".OR.M="310".OR.M="410".OR.M="510".OR.M="610".OR.M="710".OR.M="810".OR.M="910".OR.M="920".OR.M="930".OR.M="940".OR.M="950".OR.M="960".OR.M="970".OR.M="980".OR.M="981".OR.M="982".OR.M="983".OR.M="984".OR.M="985".OR.M="986".OR.M="987"          
          B(7)=B(7)+1
          ENDIF
          
      IF M="320".OR.M="420".OR.M="520".OR.M="620".OR.M="720".OR.M="820".OR.M="830".OR.M="840".OR.M="850".OR.M="860".OR.M="870".OR.M="961".OR.M="971".OR.M="972".OR.M="973".OR.M="974".OR.M="975".OR.M="976"          
          B(8)=B(8)+1
          ENDIF
      
      IF M="321".or.M="430".or.M="530".or.M="630".or.M="730".or.M="740".or.M="750".or.M="760".or.M="941".or.M="951".or.M="871".or.M="962".or.M="963".or.M="964".or.M="965".or.M="876"          
          B(9)=B(9)+1
          ENDIF
      
      IF M="421".or.M="521".or.M="540".or.M="640".or.M="650".or.M="921".or.M="931".or.M="851".or.M="861".or.M="952".or.M="872".or.M="873".or.M="874".or.M="875"          
          B(10)=B(10)+1
          ENDIF
      
      IF M="431".or.M="621".or.M="721".or.M="821".or.M="831".or.M="841".or.M="761".or.M="942".or.M="862".or.M="953".or.M="954".or.M="865"          
          B(11)=B(11)+1
          ENDIF
      
      IF M="531".or.M="631".or.M="731".or.M="741".or.M="751".or.M="932".or.M="852".or.M="943".or.M="863".or.M="864"          
          B(12)=B(12)+1
          ENDIF
      
      IF M="432".or.M="541".or.M="641".or.M="651".or.M="832".or.M="842".or.M="762".or.M="853".or.M="854".or.M="765"          
          B(13)=B(13)+1
          ENDIF
      
      
      IF M="532".or.M="632".or.M="732".or.M="742".or.M="752".or.M="843".or.M="763".or.M="764"          
          B(14)=B(14)+1
          ENDIF
          
      IF M="542".or.M="642".or.M="652".or.M="743".or.M="753".or.M="754"         
          B(15)=B(15)+1
          ENDIF
          
       IF M="543".or.M="643".or.M="653".or.M="654"   
          B(16)=B(16)+1
          ENDIF
          
      
******************************************************
       
     n=n+1
     skip
    IF n=zq
       
       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
    
    N=0
**********************************
b(1)=0
b(2)=0
b(3)=0
b(4)=0
b(5)=0
b(6)=0