datazh.prg

来自「这是一款非常实用的福彩3D彩票统计分析软件,实现各种代码走势图的查看,以及按照相」· PRG 代码 · 共 660 行 · 第 1/2 页

          ENDIF   

       IF M="663".or.M="633".or.M="553".or.M="533".or.M="443".or.M="433".or.M="200".or.M="220".or.M="992".or.M="922"          
          s(28)="18"
          ENDIF   

       IF M="882".or.M="822".or.M="772".or.M="722".or.M="662".or.M="622".or.M="552".or.M="522".or.M="442".or.M="422"          
        s(28)="19"
          ENDIF
          
       IF M="332".or.M="322".or.M="100".or.M="110".or.M="991".or.M="911".or.M="881".or.M="811".or.M="771".or.M="711"          
         s(28)="20"
          ENDIF      
        
       IF M="661".or.M="611".or.M="551".or.M="511".or.M="441".or.M="411".or.M="331".or.M="311".or.M="221".or.M="211"          
          s(28)="21"
          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(28)="22"
          ENDIF
        
    
    
      IF M="910".OR.M="920".OR.M="930".OR.M="210".OR.M="310".OR.M="410".OR.M="510".OR.M="610".OR.M="710".OR.M="810"          
          s(29)="①"
          ENDIF    
      IF M="820".or.M="830".or.M="840".or.M="950".or.M="320".or.M="420".or.M="520".or.M="620".or.M="720".or.M="940"          
         s(29)="①"
          ENDIF
      
      IF M="730".OR.M="740".OR.M="750".OR.M="850".OR.M="860".OR.M="960".OR.M="970".OR.M="430".OR.M="530".OR.M="630"          
          s(29)="②"
          ENDIF
      IF M="000".or.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"          
          s(29)="②"
          ENDIF
      IF M="640".OR.M="650".OR.M="921".OR.M="760".OR.M="941".OR.M="870".OR.M="321".OR.M="980".OR.M="521".OR.M="540"          
         s(29)="③"
          ENDIF
      IF M="811".or.M="911".or.M="110".or.M="111".or.M="211".or.M="311".or.M="411".or.M="511".or.M="611".or.M="711"          
         s(29)="③"
          ENDIF
      IF M="721".OR.M="821".OR.M="831".OR.M="931".OR.M="851".OR.M="951".OR.M="961".OR.M="421".OR.M="431".OR.M="621"          
         s(29)="④"
          ENDIF
      IF M="622".or.M="722".or.M="822".or.M="922".or.M="220".or.M="221".or.M="222".or.M="322".or.M="422".or.M="522"          
         s(29)="④"
          ENDIF
      IF M="631".OR.M="731".OR.M="741".OR.M="841".OR.M="761".OR.M="861".OR.M="871".OR.M="971".OR.M="981".OR.M="531"          
         s(29)="⑤"
          ENDIF
      IF M="433".or.M="533".or.M="633".or.M="733".or.M="833".or.M="933".or.M="330".or.M="331".or.M="332".or.M="333"          
         s(29)="⑤"
          ENDIF

      IF M="541".OR.M="641".OR.M="651".OR.M="751".OR.M="932".OR.M="942".OR.M="952".OR.M="962".OR.M="972".OR.M="432"          
          s(29)="⑥"
          ENDIF
      IF M="442".or.M="443".or.M="444".or.M="544".or.M="644".or.M="744".or.M="844".or.M="944".or.M="440".or.M="441"          
          s(29)="⑥"
          ENDIF
     
      IF M="532".OR.M="632".OR.M="732".OR.M="832".OR.M="842".OR.M="852".OR.M="862".OR.M="872".OR.M="963".OR.M="982"          
          s(29)="⑦"
          ENDIF
      IF M="550".or.M="551".or.M="552".or.M="553".or.M="554".or.M="555".or.M="655".or.M="755".or.M="855".or.M="955"          
        s(29)="⑦"
          ENDIF
      IF M="983".OR.M="542".OR.M="642".OR.M="742".OR.M="752".OR.M="762".OR.M="943".OR.M="953".OR.M="873".OR.M="973"          
         s(29)="⑧"
          ENDIF
      IF M="866".or.M="966".or.M="660".or.M="661".or.M="662".or.M="663".or.M="664".or.M="665".or.M="666".or.M="667"          
         s(29)="⑧"
          ENDIF   
       
       IF M="974".or.M="984".or.M="543".or.M="652".or.M="743".or.M="843".or.M="853".or.M="863".or.M="864".or.M="964"          
          s(29)="⑨"
          ENDIF
      IF M="776".or.M="777".or.M="877".or.M="770".or.M="771".or.M="772".or.M="773".or.M="774".or.M="775".or.M="977"          
          s(29)="⑨"
          ENDIF
      
      IF M="965".or.M="975".or.M="976".or.M="643".or.M="653".or.M="753".or.M="763".or.M="854".or.M="765".or.M="874"          
         s(29)="⑩"
          ENDIF
      IF M="884".or.M="885".or.M="886".or.M="887".or.M="888".or.M="988".or.M="880".or.M="881".or.M="882".or.M="883"          
          s(29)="⑩"
          ENDIF
      IF M="875".or.M="876".or.M="985".or.M="986".or.M="987".or.M="654".or.M="754".or.M="764".or.M="954".or.M="865"          
         s(29)="11"
          ENDIF
      
      IF M="992".or.M="993".or.M="994".or.M="995".or.M="996".or.M="997".or.M="998".or.M="999".or.M="990".or.M="991"          
          s(29)="11"
          ENDIF
      
       S(30)=MAX(百位,十位)-MIN(百位,十位)
       S(31)=MAX(十位,个位)-MIN(十位,个位)
       S(32)=STR(百位,1)+str(十位,1)+str(个位,1) 
       
       ************************************************
        *************************************************
       *************************************s(33)
        IF M="100".OR.M="900".OR.M="221".OR.M="322".OR.M="443".OR.M="110".OR.M="211".OR.M="332".OR.M="433".OR.M="554"          
           s(33)="①"
          ENDIF
                  
      IF M="544".OR.M="665".OR.M="766".OR.M="887".OR.M="988".OR.M="655".OR.M="776".OR.M="877".OR.M="990".OR.M="998"          
          s(33)="②"
          ENDIF
      
      IF M="210".OR.M="410".OR.M="610".OR.M="810".OR.M="320".OR.M="310".OR.M="510".OR.M="710".OR.M="910".OR.M="930"          
         s(33)="③"
          ENDIF
      
      IF M="920".OR.M="430".OR.M="540".OR.M="940".OR.M="650".OR.M="950".OR.M="970".OR.M="321".OR.M="521".OR.M="721"          
          s(33)="④"
          ENDIF
      
      IF M="760".OR.M="960".OR.M="870".OR.M="980".OR.M="421".OR.M="921".OR.M="431".OR.M="541".OR.M="651".OR.M="761"          
         s(33)="⑤"
          ENDIF
      
      IF M="621".OR.M="821".OR.M="432".OR.M="632".OR.M="832".OR.M="871".OR.M="981".OR.M="532".OR.M="732".OR.M="932"          
          s(33)="⑥"
          ENDIF
      
      IF M="542".OR.M="652".OR.M="762".OR.M="872".OR.M="982".OR.M="543".OR.M="743".OR.M="943".OR.M="653".OR.M="763"          
          s(33)="⑦"
          ENDIF
          
      IF M="643".OR.M="843".OR.M="654".OR.M="854".OR.M="764".OR.M="873".OR.M="983".OR.M="754".OR.M="954".OR.M="765"          
           s(33)="⑧"
          ENDIF
      
      IF M="874".or.M="984".or.M="865".or.M="876".or.M="986".or.M="965".or.M="875".or.M="985".or.M="976".or.M="987"          
           s(33)="⑨"
          ENDIF
      
      IF M="111".or.M="333".or.M="555".or.M="777".or.M="999".or.M="000".or.M="222".or.M="444".or.M="666".or.M="888"          
           s(33)="⑩"
          ENDIF
      
      IF M="300".or.M="500".or.M="700".or.M="311".or.M="511".or.M="200".or.M="400".or.M="600".or.M="800".or.M="411"          
          s(33)="11"
          ENDIF
      
      IF M="711".or.M="911".or.M="522".or.M="722".or.M="922".or.M="611".or.M="811".or.M="220".or.M="422".or.M="622"          
         s(33)="12"
          ENDIF
      
      IF M="331".or.M="533".or.M="733".or.M="933".or.M="441".or.M="822".or.M="330".or.M="633".or.M="833".or.M="440"          
           s(33)="13"
          ENDIF
      
      
      IF M="744".or.M="944".or.M="551".or.M="553".or.M="755".or.M="442".or.M="644".or.M="844".or.M="550".or.M="552"          
          s(33)="14"
          ENDIF
          
      IF M="955".or.M="661".or.M="663".or.M="966".or.M="771".or.M="855".or.M="660".or.M="662".or.M="664".or.M="866"       
          s(33)="15"
          ENDIF
          
       IF M="773".or.M="775".or.M="977".or.M="881".or.M="883".or.M="770".or.M="772".or.M="774".or.M="880".or.M="882"          
           s(33)="16"
          ENDIF
          
       IF M="885".or.M="991".or.M="993".or.M="995".or.M="997".or.M="884".or.M="886".or.M="992".or.M="994".or.M="996"          
          s(33)="17"
          ENDIF   

       IF M="520".or.M="720".or.M="630".or.M="830".or.M="740".or.M="420".or.M="620".or.M="820".or.M="530".or.M="730"          
         s(33)="18"
          ENDIF   

       IF M="850".or.M="531".or.M="731".or.M="931".or.M="641".or.M="640".or.M="840".or.M="750".or.M="860".or.M="631"          
         s(33)="19"
          ENDIF
          
       IF M="841".or.M="751".or.M="951".or.M="861".or.M="971".or.M="831".or.M="741".or.M="941".or.M="851".or.M="961"          
          s(33)="20"
          ENDIF      
        
       IF M="742".or.M="942".or.M="852".or.M="962".or.M="753".or.M="642".or.M="842".or.M="752".or.M="952".or.M="862"          
           s(33)="21"
          ENDIF
       
       IF M="953".or.M="863".or.M="973".or.M="964".or.M="975".or.M="972".or.M="853".or.M="963".or.M="864".or.M="974"          
           s(33)="22"
          ENDIF
       ******************************************      
       
       ***************************************
       ***********************************s(34)
      IF M="111".OR.M="333".OR.M="555".OR.M="777".OR.M="999".OR.M="000".OR.M="222".OR.M="444".OR.M="666".OR.M="888"          
          s(34)="①"
          ENDIF
                  
      IF M="100".OR.M="300".OR.M="500".OR.M="700".OR.M="900".OR.M="200".OR.M="400".OR.M="600".OR.M="800".OR.M="110"          
          s(34)="②"
          ENDIF
      
      IF M="311".OR.M="511".OR.M="711".OR.M="911".OR.M="221".OR.M="211".OR.M="411".OR.M="611".OR.M="811".OR.M="220"          
         s(34)="③"
          ENDIF
      
      IF M="322".OR.M="522".OR.M="722".OR.M="922".OR.M="331".OR.M="422".OR.M="622".OR.M="822".OR.M="330".OR.M="332"          
          s(34)="④"
          ENDIF
      
      IF M="533".OR.M="733".OR.M="933".OR.M="441".OR.M="443".OR.M="433".OR.M="633".OR.M="440".OR.M="833".OR.M="442"          
          s(34)="⑤"
          ENDIF
      
      IF M="544".OR.M="744".OR.M="944".OR.M="551".OR.M="553".OR.M="644".OR.M="844".OR.M="550".OR.M="552".OR.M="554"          
          s(34)="⑥"
          ENDIF
      
      IF M="755".OR.M="955".OR.M="661".OR.M="663".OR.M="665".OR.M="655".OR.M="855".OR.M="660".OR.M="662".OR.M="664"          
          s(34)="⑦"
          ENDIF
          
      IF M="766".OR.M="966".OR.M="771".OR.M="773".OR.M="775".OR.M="866".OR.M="770".OR.M="772".OR.M="774".OR.M="776"          
          s(34)="⑧"
          ENDIF
      
      IF M="977".or.M="881".or.M="863".or.M="885".or.M="887".or.M="877".or.M="880".or.M="882".or.M="884".or.M="886"          
         s(34)="⑨"
          ENDIF
      
      IF M="988".or.M="991".or.M="993".or.M="995".or.M="997".or.M="990".or.M="992".or.M="994".or.M="996".or.M="998"          
           s(34)="⑩"
          ENDIF
      
      IF M="210".or.M="410".or.M="610".or.M="810".or.M="320".or.M="310".or.M="510".or.M="710".or.M="910".or.M="420"          
           s(34)="11"
          ENDIF
      
      IF M="520".or.M="720".or.M="920".or.M="430".or.M="630".or.M="620".or.M="820".or.M="530".or.M="730".or.M="930"          
          s(34)="12"
          ENDIF
      
      IF M="830".or.M="540".or.M="740".or.M="940".or.M="650".or.M="640".or.M="840".or.M="750".or.M="950".or.M="860"          
          s(34)="13"
          ENDIF
      
      
      IF M="850".or.M="760".or.M="960".or.M="870".or.M="980".or.M="970".or.M="321".or.M="521".or.M="721".or.M="921"          
           s(34)="14"
          ENDIF
          
      IF M="421".or.M="621".or.M="821".or.M="531".or.M="731".or.M="431".or.M="631".or.M="831".or.M="541".or.M="741"       
           s(34)="15"
          ENDIF
          
       IF M="931".or.M="641".or.M="841".or.M="751".or.M="951".or.M="941".or.M="651".or.M="851".or.M="761".or.M="961"          
          s(34)="16"
          ENDIF
          
       IF M="861".or.M="971".or.M="432".or.M="632".or.M="832".or.M="871".or.M="981".or.M="532".or.M="732".or.M="932"          
          s(34)="17"
          ENDIF   

       IF M="542".or.M="742".or.M="942".or.M="652".or.M="852".or.M="642".or.M="842".or.M="752".or.M="952".or.M="862"          
          s(34)="18"
          ENDIF   

       IF M="762".or.M="962".or.M="872".or.M="982".or.M="643".or.M="972".or.M="543".or.M="743".or.M="943".or.M="653"          
          s(34)="19"
          ENDIF
          
       IF M="843".or.M="753".or.M="953".or.M="863".or.M="973".or.M="853".or.M="763".or.M="963".or.M="873".or.M="983"          
          s(34)="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(34)="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(34)="22"
          ENDIF
       ***********************************************sp46
       IF S(4)=2.OR.S(4)=4.OR.S(4)=6.OR.S(4)=7
          S(35)="A"
          ELSE
          S(35)="B"
          ENDIF
      IF S(5)=2.OR.S(5)=4.OR.S(5)=6.OR.S(5)=7
          S(36)="A"
          ELSE
          S(36)="B"
          ENDIF 
      IF S(6)=2.OR.S(6)=4.OR.S(6)=6.OR.S(6)=7
          S(37)="A"
          ELSE
          S(37)="B"
          ENDIF   
    **********************************************
    IF S(4)=3.OR.S(4)=5.OR.S(4)=6.OR.S(4)=8
          S(38)="T"
          ELSE
          S(38)="F"
          ENDIF
    IF S(5)=3.OR.S(5)=5.OR.S(5)=6.OR.S(5)=8
          S(39)="T"
          ELSE
          S(39)="F"
          ENDIF
    IF S(6)=3.OR.S(6)=5.OR.S(6)=6.OR.S(6)=8
          S(40)="T"
          ELSE
          S(40)="F"
          ENDIF
    ********************
    s(41)=str(百位,1)+str(十位,1)+str(个位,1)
    ******************************************
       
    ***********************************************
    Skip
    Select J
    Append Blank
    Gather From S
    Select A
        
    EndDo
 endif
    Close All