datazh2000.prg

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

          s(33)="20"
          ENDIF      
        
       IF M="654".or.M="854".or.M="764".or.M="964".or.M="874".or.M="754".or.M="954".or.M="864".or.M="974".or.M="765"          
         s(33)="21"
          ENDIF
       
       IF M="984".or.M="865".or.M="975".or.M="876".or.M="986".or.M="965".or.M="875".or.M="985".or.M="976".or.M="987"          
           s(33)="22"
          ENDIF
       
    ***********************************************sp46
       IF S(4)=0.OR.S(4)=1.OR.S(4)=8.OR.S(4)=9
          S(34)="A"
          ELSE
          S(34)="B"
          ENDIF
      IF S(5)=0.OR.S(5)=1.OR.S(5)=8.OR.S(5)=9
          S(35)="A"
          ELSE
          S(35)="B"
          ENDIF 
      IF S(6)=0.OR.S(6)=1.OR.S(6)=8.OR.S(6)=9
          S(36)="A"
          ELSE
          S(36)="B"
          ENDIF   
    **********************************************
    IF S(4)=3.OR.S(4)=5.OR.S(4)=6.OR.S(4)=8
          S(37)="T"
          ELSE
          S(37)="F"
          ENDIF
    IF S(5)=3.OR.S(5)=5.OR.S(5)=6.OR.S(5)=8
          S(38)="T"
          ELSE
          S(38)="F"
          ENDIF
    IF S(6)=3.OR.S(6)=5.OR.S(6)=6.OR.S(6)=8
          S(39)="T"
          ELSE
          S(39)="F"
          ENDIF
*********************************************************
*变化012路 0=039 1=478 2=1256  数组变量 S(55),S(56),S(57)
*********************************************************
     BH=S(4)
     SH=S(5)
     GH=S(6)
     IF BH=0.OR.BH=3.OR.BH=9  &&&&&&1
        S(55)="0"
        ELSE
        IF BH=4.OR.BH=7.OR.BH=8
        S(55)="1"
           ELSE
           S(55)="2"
           ENDIF
     ENDIF
     *******************************
     IF SH=0.OR.SH=3.OR.SH=9  &&&&&&2
        S(56)="0"
        ELSE
        IF SH=4.OR.SH=7.OR.SH=8
        S(56)="1"
           ELSE
           S(56)="2"
           ENDIF
     ENDIF
     ************************
     IF GH=0.OR.GH=3.OR.GH=9  &&&&&&1
        S(57)="0"
        ELSE
        IF GH=4.OR.GH=7.OR.GH=8
        S(57)="1"
           ELSE
           S(57)="2"
           ENDIF
     ENDIF
*********************************************************
*变化012路 0=019 1=2467 2=358  数组变量 S(58),S(59),S(60)
*********************************************************
     IF BH=0.OR.BH=1.OR.BH=9  &&&&&&1
        S(58)="0"
        ELSE
        IF BH=3.OR.BH=5.OR.BH=8
        S(58)="2"
           ELSE
           S(58)="1"
           ENDIF
     ENDIF
     *******************************
     IF SH=0.OR.SH=1.OR.SH=9  &&&&&&2
        S(59)="0"
        ELSE
        IF SH=3.OR.SH=5.OR.SH=8
        S(59)="2"
           ELSE
           S(59)="1"
           ENDIF
     ENDIF
     ************************
     IF GH=0.OR.GH=1.OR.GH=9  &&&&&&1
        S(60)="0"
        ELSE
        IF GH=3.OR.GH=5.OR.GH=8
        S(60)="2"
           ELSE
           S(60)="1"
           ENDIF
     ENDIF   
*********************************************************
*变化012路 0=0256 1=147 2=938  数组变量 S(68),S(69),S(70)
*********************************************************
 IF BH=3.OR.BH=8.OR.BH=9  &&&&&&1
        S(68)="2"
        ELSE
        IF BH=1.OR.BH=4.OR.BH=7
        S(68)="1"
           ELSE
           S(68)="0"
           ENDIF
     ENDIF
     *******************************
     IF SH=3.OR.SH=8.OR.SH=9  &&&&&&2
        S(69)="2"
        ELSE
        IF SH=1.OR.SH=4.OR.SH=7
        S(69)="1"
           ELSE
           S(69)="0"
           ENDIF
     ENDIF
     ************************
     IF GH=3.OR.GH=8.OR.GH=9  &&&&&&1
        S(70)="2"
        ELSE
        IF GH=1.OR.GH=4.OR.GH=7
        S(70)="1"
           ELSE
           S(70)="0"
           ENDIF
     ENDIF   

*********************************************    
*新组选20区生成程序    S(61)
*********************************************    
    
    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="810".OR.M="985".OR.M="930".OR.M="310".OR.M="851".OR.M="953".OR.M="531".OR.M="950".OR.M="510".OR.M="951".OR.M="910"          
          s(61)="①"
          ENDIF
                  
      IF M="970".OR.M="940".OR.M="710".OR.M="975".OR.M="410".OR.M="954".OR.M="751".OR.M="541".OR.M="862".OR.M="632".OR.M="863".OR.M="832"          
         s(61)="②"
          ENDIF
          
      IF M="870".OR.M="840".OR.M="730".OR.M="875".OR.M="430".OR.M="854".OR.M="753".OR.M="543".OR.M="750".OR.M="540".OR.M="754".OR.M="740"          
         s(61)="③"
          ENDIF
          
      IF M="987".OR.M="984".OR.M="973".OR.M="871".OR.M="943".OR.M="841".OR.M="731".OR.M="431".OR.M="850".OR.M="530".OR.M="853".OR.M="830"          
          s(61)="④"
          ENDIF
          
      IF M="960".OR.M="920".OR.M="610".OR.M="965".OR.M="210".OR.M="952".OR.M="651".OR.M="521".OR.M="962".OR.M="621".OR.M="961".OR.M="921"          
         s(61)="⑤"
          ENDIF
      
      IF M="860".OR.M="820".OR.M="630".OR.M="865".OR.M="320".OR.M="852".OR.M="653".OR.M="532".OR.M="650".OR.M="520".OR.M="652".OR.M="620"          
          s(61)="⑥"
          ENDIF
      
      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"          
         s(61)="⑦"
          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"          
         s(61)="⑧"
          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"          
         s(61)="⑨"
          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"         
         s(61)="⑩"
          ENDIF
      
      
      
      IF M="900".or.M="955".or.M="100".or.M="551".or.M="990".or.M="110".or.M="995".or.M="511".or.M="800".or.M="300"          
         s(61)="11"
          ENDIF
          
      IF M="855".or.M="553".or.M="880".or.M="885".or.M="330".or.M="533".or.M="998".or.M="993".or.M="811".or.M="311"          
          s(61)="12"
          ENDIF
      
      IF M="700".or.M="400".or.M="755".or.M="554".or.M="770".or.M="775".or.M="440".or.M="544".or.M="997".or.M="994"          
         s(61)="13"
          ENDIF
          
            
      IF M="711".or.M="411".or.M="977".or.M="771".or.M="944".or.M="441".or.M="887".or.M="884".or.M="733".or.M="433"          
         s(61)="14"
          ENDIF

       IF M="877".or.M="773".or.M="844".or.M="443".or.M="600".or.M="200".or.M="655".or.M="552".or.M="660".or.M="665"          
         s(61)="15"
          ENDIF   
            
      IF M="220".or.M="522".or.M="996".or.M="992".or.M="611".or.M="211".or.M="966".or.M="661".or.M="922".or.M="221"          
         s(61)="16"
          ENDIF   

       IF M="886".or.M="882".or.M="633".or.M="332".or.M="866".or.M="663".or.M="822".or.M="322".or.M="776".or.M="772"          
         s(61)="17"
          ENDIF
          
       IF M="644".or.M="442".or.M="766".or.M="664".or.M="722".or.M="422".or.M="500".or.M="550".or.M="911".or.M="991"          
         s(61)="18"
          ENDIF      
        
       IF M="622".or.M="662".or.M="833".or.M="883".or.M="744".or.M="774".or.M="988".or.M="881".or.M="933".or.M="331"          
         s(61)="19"
          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"          
         s(61)="20"
          ENDIF
    
******************************* 
*变量：S（62）
*新20区合并为10区
**********************************
      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="810".OR.M="985".OR.M="930".OR.M="310".OR.M="851".OR.M="953".OR.M="531".OR.M="950".OR.M="510".OR.M="951".OR.M="910".OR.M="500".OR.M="000".OR.;          
          M="900".or.M="955".or.M="100".or.M="551".or.M="990".or.M="110".or.M="995".or.M="511"
          s(62)="①"
          ENDIF
                  
      IF M="970".OR.M="940".OR.M="710".OR.M="975".OR.M="410".OR.M="954".OR.M="751".OR.M="541".OR.M="862".OR.M="632".OR.M="863".OR.M="832".OR.M="333".OR.M="833".OR.;         
          M="886".or.M="882".or.M="633".or.M="332".or.M="866".or.M="663".or.M="822".or.M="322"
          s(62)="②"
          ENDIF
          
      IF M="870".OR.M="840".OR.M="730".OR.M="875".OR.M="430".OR.M="854".OR.M="753".OR.M="543".OR.M="750".OR.M="540".OR.M="754".OR.M="740".OR.M="777".OR.M="774".OR.;          
          M="700".or.M="400".or.M="755".or.M="554".or.M="770".or.M="775".or.M="440".or.M="544"
           s(62)="③"
          ENDIF
          
      IF M="987".OR.M="984".OR.M="973".OR.M="871".OR.M="943".OR.M="841".OR.M="731".OR.M="431".OR.M="850".OR.M="530".OR.M="853".OR.M="830".OR.M="555".OR.M="550".OR.;          
          M="855".or.M="553".or.M="880".or.M="885".or.M="330".or.M="533".or.M="800".or.M="300" 
          s(62)="④"
          ENDIF
          
      IF M="960".OR.M="920".OR.M="610".OR.M="965".OR.M="210".OR.M="952".OR.M="651".OR.M="521".OR.M="962".OR.M="621".OR.M="961".OR.M="921".OR.M="999".OR.M="991".OR.;          
          M="996".or.M="992".or.M="611".or.M="211".or.M="966".or.M="661".or.M="922".or.M="221" 
         s(62)="⑤"
          ENDIF
      
      IF M="860".OR.M="820".OR.M="630".OR.M="865".OR.M="320".OR.M="852".OR.M="653".OR.M="532".OR.M="650".OR.M="520".OR.M="652".OR.M="620".OR.M="666".OR.M="662".OR.;          
          M="600".or.M="200".or.M="655".or.M="552".or.M="660".or.M="665".or.M="220".or.M="522"
         s(62)="⑥"
          ENDIF
      
      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"
          s(62)="⑦"
          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" 
          s(62)="⑧"
          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"
           s(62)="⑨"
          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"
          s(62)="⑩"
          ENDIF


    Skip
    Select J
    Append Blank
    Gather From S
    Select A
        
    EndDo
**********************
ENDIF
    Close All