Ripetizione estratto semplice

[FABIO60]

Ripetizione estratti, nell'estrazione successiva, su ruota e su altre ruote,

per estratto semplice.



Script ritardi attuali

(Da monitorare, come estratto singolo, la ripetizione del 5° estratto di Napoli

sulla ruota di Bari a rc 129; ( 21/05/2020 BA 83 : 5° estratto di Napoli dell'estrazione precedente)

e come coppia 2x1, il 2° estratto di Milano e Venezia su Firenze a Rc 91 e 81)

'Script per Spaziometria
Sub Main()
   Dim num(5)
   Dim ruota(1)
   Dim rita(10,12)
   Dim estr(5,10)
   For p = 1 To 5
      Messaggio p
      Scrivi "----------------------------------------posizione di rilevamento " & p
      Scrivi
      Scrivi Space(5) & "DA -->",0,0
      For rr = 1 To 10
         Scrivi FormatSpace(SiglaRuota(rr),7),0,0
         If rr = 10 Then Scrivi "in gioco SU "
         For rg = 1 To 10
            ruota(1) = rg
            eini = EstrazioneFin - 180
            efin = EstrazioneFin
            For i = eini To efin
               num(1) = Estratto(i - 1,rr,p)
               estr(p,rr) = Estratto(efin,rr,p)
               If SerieFreq(i,i,num,ruota,1) > 0 Then
                  rita(rg,rr) = 0
               Else
                  rita(rg,rr) = rita(rg,rr) + 1
               End If
            Next
         Next
      Next
      For z = 1 To 10
         rita(z,12) = SiglaRuota(z)
      Next
      ScriviMatrice rita
      ColoreTesto 1
      Scrivi Space(12) & "Numeri estratti in " & p & "^ pos. il " & DataEstrazione(efin)
      ScriviMatrice estr
      ColoreTesto 0
      Erase rita
      Erase estr
   Next
End Sub

Saluti

 

[miki55]

Studio eccellente, complimenti!!
Però manca il confronto con lo storico.
Qual'è stato il suo storico del V° di BA
su NA o sulle altre ruote??

 

[FABIO60]

Storico 5° estratto di Napoli per ripetizione su Bari, 141 estr.

Tutti gli storici dal 1946

----------------------------------------------------posizione di rilevamento 1

     DA -->BA     CA     FI     GE     MI     NA     PA     RO     TO     VE     in gioco SU
          112    104    140    108    107    120    120    161    111    129            BA       
           76     97    110    105    108     72    111    101     92    107            CA       
          116     98    106    127    108    138    143    135     91    154            FI       
          105    102    107     92    103    157    100    115    115    148            GE       
          110    125    133     73     88    111    117    156    150    149            MI       
          116    120     95    151    103    116    106     89     88     95            NA       
          104    123     90    122    132     92    134     95    113    100            PA       
           88    107    124    136     83     86     93    112    124     94            RO       
           93    117    117    117    106    122    121     91     85     90            TO       
           96    122    125    126     94    141    110     86    126    129            VE       

Max storico posizione di rilevamento 1 -> 161
----------------------------------------------------posizione di rilevamento 2

     DA -->BA     CA     FI     GE     MI     NA     PA     RO     TO     VE     in gioco SU
          139    107    107     99    142     82     79    137     93    119            BA       
          110     86     97    101     88    119     89    103     91     95            CA       
           97    104    199    125     91     99    114     97    101    117            FI       
          130    111     95    135    138    163     90    117     97    130            GE       
           94    124    109    100    114    130     94     92    172     84            MI       
           99     86    108    115    124     79    106    113    110    118            NA       
          133     95    122    149    110    109    101    108    105    146            PA       
          114    100    106     82     98     98    102    110    142    133            RO       
           87     79     86    143     99    162    120    102    136    124            TO       
          108    147    113    108    136    156    128    133     85    102            VE       

Max storico posizione di rilevamento 2 -> 199
----------------------------------------------------posizione di rilevamento 3

     DA -->BA     CA     FI     GE     MI     NA     PA     RO     TO     VE     in gioco SU
          121    110    121    104    151    110    121    122     81     80            BA       
          126     81     91    122    124     93     95     94    132     93            CA       
          182     98    109    115     97     92     96    129     90     86            FI       
           83     91    103    131     86    108    151    151    113    122            GE       
           90    132    194     77     72    124    150     95     75    121            MI       
          183     79    115    103    114    106     99     94     83    110            NA       
           91    168    147    191     80    106    120    143    111    111            PA       
          195    115     86     74    118    130    131     92     93    112            RO       
          212     91    119    104    116    109    120    105    121    129            TO       
          129     90     98     94     87    117     89    123    145    135            VE       

Max storico posizione di rilevamento 3 -> 212
----------------------------------------------------posizione di rilevamento 4

     DA -->BA     CA     FI     GE     MI     NA     PA     RO     TO     VE     in gioco SU
          106    137    155    100    136     88    118    100    103     86            BA       
          112    127    127    119    160    108    107    114     92     97            CA       
          101    141    123     96     92     85     80     80     81    110            FI       
          129    137    109    111    122     95    100    100    127    123            GE       
          105    104     94    108    110     95     85    114    135     91            MI       
          140     88     92    126    104    105     93     84    107    106            NA       
          102    116    102    102    125    127    138     89     90    103            PA       
           84    110     93    105    109     81    107    112    117    107            RO       
          124    117    131    111    105    105     93    110    139    147            TO       
          128     76    159     97    106    103    160     92     97     96            VE       

Max storico posizione di rilevamento 4 -> 160
----------------------------------------------------posizione di rilevamento 5

     DA -->BA     CA     FI     GE     MI     NA     PA     RO     TO     VE     in gioco SU
          124    102    113     97    147    141    106    109    101    144            BA       
          104    171    117     91     96     82     95    104    104     97            CA       
          118     94    110    118    166     86    123     95    119    115            FI       
          129    122    169    114    128    116    116     97    164     98            GE       
           84    141     67    105    142    112    122    108    125     88            MI       
          132    125     78    113    135    109    131    110    114    101            NA       
          154     87     81     94    131    121    107    121    100    100            PA       
          122    146     99     82    132    135     90     80    107     78            RO       
          107     86    118    102    102    108    102     99    125    124            TO       
           89    120    115    102    108     99    109    111    112    182            VE       

Max storico posizione di rilevamento 5 -> 182

Saluti

 

[miki55]

Bene, si può avere anche lo script di questi risultati cortesemente??

 

[FABIO60]

Script storici

'Script per Spaziometria
Sub Main()
   Dim num(5)
   Dim ruota(1)
   Dim rita(10,10)
   Dim max(10,12)
   Dim mx(5)
   eini = 3950
   efin = EstrazioneFin
   For p = 1 To 5
      If ScriptInterrotto Then Exit For
      Scrivi
      Scrivi "--------------------------------posizione di rilevamento " & p
      Scrivi
      Scrivi Space(10) & " Ruote di rilevamento ",0,1
      Scrivi Space(11),0,0
      For r = 1 To 10
         Scrivi FormatSpace(SiglaRuota(r),7),1,0
         If r = 10 Then Scrivi "| Ruote di gioco "
      Next
      For i = eini To efin
         Messaggio("elaboro posizione " & p & " " & i)
         For rr = 1 To 10
            For rg = 1 To 10
               ruota(1) = rg
               num(1) = Estratto(i - 1,rr,p)
               If SerieFreqTurbo(i,i,num,ruota,1) > 0 Then
                  rita(rg,rr) = 0
               Else
                  rita(rg,rr) = rita(rg,rr) + 1
                  If max(rg,rr) < rita(rg,rr) Then max(rg,rr) = rita(rg,rr)
                  If mx(p) < max(rg,rr) Then mx(p) = max(rg,rr)
               End If
            Next
         Next
      Next
      For z = 1 To 10
         max(z,12) = SiglaRuota(z)
      Next
      ScriviMatrice max
      Scrivi Space(10) & "Max storico posizione di rilevamento " & p & " -> " & mx(p)
      Erase rita
      Erase max
   Next
End Sub

Saluti

 

[miki55]

Grazie. Sei stato veramente bravo!!

 

[FABIO60]

Script :Coppie per ripetizione a colpo per ambo, su ruota e altre ruote.



Interpretazione dati:

-------------------------------------- Ruota di  gioco Torino

=======================================================ritardi attuali

Ruote ril. BA     CA     FI     GE     MI     NA     PA     RO     TO     VE      coppie di rilevamento

         1430   1248    574     56     90    284    305   1902    136    471      1      2

     
significa che la coppia formata dal 1° e dal 2° estratto della ruota Bari, non dà

ambo a colpo su Torino da 1430 estr.;

che la coppia formata dal 1° e dal 2° estratto della ruota Cagliari, non dà

ambo a colpo su Torino da 1248 estr.;

etc.



Sub Main()
   Dim num(3)
   Dim ruota(1)
   Dim rita(10,13)
   Dim max(10,13)
   Dim esiti(10,13)
   rg = 9  'SCEGLIERE RUOTA
   ruota(1) = rg
   Scrivi "-------------------------------------- Ruota di  gioco " & NomeRuota(rg),1
   Scrivi
   Scrivi "=======================================================ritardi attuali"
   Scrivi
   Scrivi "Ruote ril. ",0,0
   For r = 1 To 10
      Scrivi FormatSpace(SiglaRuota(r),7),0,0
      If r = 10 Then Scrivi " coppie di rilevamento"
   Next
   eini = 3950'scegliere inizio
   efin = EstrazioneFin
   For i = eini To efin
      Messaggio i
      For rr = 1 To 10
         c = 0
         For p = 1 To 4
            For pp = p + 1 To 5
               c = c + 1
               num(1) = Estratto(i - 1,rr,p)
               num(2) = Estratto(i - 1,rr,pp)
               If SerieFreq(i,i,num,ruota,2) > 0 Then
                  rita(c,rr) = 0
                  esiti(c,rr) = esiti(c,rr) + 1
               Else
                  rita(c,rr) = rita(c,rr) + 1
                  If max(c,rr) < rita(c,rr) Then max(c,rr) = rita(c,rr)
               End If
            Next
         Next
      Next
   Next
   For z = 1 To 4
      For k = z + 1 To 5
         h = h + 1
         rita(h,11) = Z
         rita(h,12) = K
         esiti(h,11) = Z
         esiti(h,12) = K
         max(h,11) = Z
         max(h,12) = K
      Next
   Next
   ScriviMatrice rita
   Scrivi "=======================================================ritardi storici"
   Scrivi
   ScriviMatrice max
   Scrivi "============================================================esiti"
   Scrivi
   ScriviMatrice esiti
   Scrivi Space(11),0,0
   For r = 1 To 10
      Scrivi FormatSpace(SiglaRuota(r),7),0,0
      If r = 10 Then Scrivi
   Next
   Erase rita
   Erase max
   Erase esiti
End Sub

Le coppie che riterrei utile monitorare sono due (le meno frequenti dal 1946: 3 presenze per ciascuna coppia)

1° e 2° estratto della ruota di Firenze, in gioco per ambo a colpo sulla stessa ruota;

1° e 4° estratto della ruota di Roma, in gioco per ambo a colpo sulla ruota di Torino
(ritardo attuale 510 estrazioni , ma con ultimi due ritardi di 2905 e 2032 estrazioni)




Saluti

 

[FABIO60]

'RIPETIZIONE ESTRATTI A COLPO IN POSIZIONE DETERMINATA
'RIL: posizione di rilevamento- RIP posizione in cui è avvenuta la ripetizione
Sub Main()
   Dim num(5)
   Dim ruota(1)
   Dim rita(25,13)
   Dim max(25,13)
   Scrivi "=================================================== RITARDI ATTUALI"
   Scrivi
   Scrivi Space(11),0,0
   For r = 1 To 10
      Scrivi FormatSpace(SiglaRuota(r),7),0,0
      If r = 10 Then Scrivi "RIL---> RIP "
   Next
   eini = EstrazioneFin - 800'scegliere inizio
   efin = EstrazioneFin
   For i = eini To efin
      Messaggio i
      For rr = 1 To 10
         ruota(1) = rr
         c = 0
         For p = 1 To 5
            For pp = 1 To 5
               c = c + 1
               num(1) = Estratto(i - 1,rr,p)
               If SerieFreq(i,i,num,ruota,5 + pp) > 0 Then
                  rita(c,rr) = 0
               Else
                  rita(c,rr) = rita(c,rr) + 1
                  If max(c,rr) < rita(c,rr) Then max(c,rr) = rita(c,rr)
               End If
            Next
         Next
      Next
   Next
   For z = 1 To 5
      For k = 1 To 5
         h = h + 1
         rita(h,11) = Z
         rita(h,12) = K
         max(h,11) = Z
         max(h,12) = K
      Next
   Next
   ScriviMatrice rita
   'Scrivi "=================================================== RITARDI STORICI"
   'Scrivi
   'ScriviMatrice max
   h = 0
   Erase rita
   Erase max
End Sub


output

=================================================== RITARDI ATTUALI

           BA     CA     FI     GE     MI     NA     PA     RO     TO     VE     RIL---> RIP
           31     85     93     93     97     16     18     93     42    154      1      1       
            4     54    194     85     28     20    212    139     17     11      1      2       
           40     14     51     72     88     86     24     66    342     73      1      3       
          146    116     95    193     93    162     80      6     74    113      1      4       
          104     24    186     45     24      5    161     28     11    163      1      5       
          119     44    137     23     32      4    145    164     50    132      2      1       
          190    142     79      0     26     47     22      9     78     24      2      2       
          204     80     44    140    139     39     93     34      3      6      2      3       
           30     18     43     40     25     24     27      7    253    104      2      4       
          259      5      3     10      9     15     42      6     39     68      2      5       
          114     13    168     75      1    181     39    559     47     67      3      1       
           34    111      3     92     82    182     64     84     10    121      3      2       
           73    117     37    191     26    179    104      6    438     20      3      3       
          206     15    156    149     36     18      8    143    120     27      3      4       
            1    131     80      3     11    257    191     70    252      9      3      5       
          153      7     32     44     71     22     26    272     26      7      4      1       
           50      1     27     47     32     25      3     44     81     49      4      2       
            6    191     10     31    239     53      9     70     65     35      4      3       
           53     81     46    120    153     48     16    230     60     82      4      4       
          256    117     37     36    166    120     51     15     23     90      4      5       
           20     64    156     79     75     28     32      3      0    218      5      1       
           83    115     72    124    235    168     45    130     51      1      5      2       
          223      7    184     11     45      0     56    262     40     36      5      3       
           43     40    107     97     54     23     98    196     80    106      5      4       
           58    179     98    189     52     91     63     55     20    238      5      5

Saluti

 

[FABIO60]

'RIPETIZIONE ESTRATTI A COLPO IN POSIZIONE DETERMINATA DA RUOTA SU altre RUOTE
'RIL: posizione di rilevamento nella ruota di origine
' RIP Posizione In cui è avvenuta la ripetizione nella ruota di gioco
Sub Main()
   Dim num(5)
   Dim ruota(1)
   Dim rita(25,13)
   Dim max(25,13)
   For rg = 9 To 9 'RUOTA di gioco
      ruota(1) = rg
      Scrivi
      Scrivi ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>RUOTA DI GIOCO " & NomeRuota(rg)
      Scrivi
      Scrivi
      Scrivi "=================================================== RITARDI ATTUALI"
      Scrivi
      Scrivi Space(11),0,0
      For r = 1 To 10
         Scrivi FormatSpace(SiglaRuota(r),7),0,0
         If r = 10 Then Scrivi "RIL---> RIP "
      Next
      eini = EstrazioneFin - 900'scegliere inizio
      efin = EstrazioneFin
      For i = eini To efin
         Messaggio i
         For rr = 1 To 10
            'ruota(1) = rr
            c = 0
            For p = 1 To 5
               For pp = 1 To 5
                  c = c + 1
                  num(1) = Estratto(i - 1,rr,p)
                  If SerieFreq(i,i,num,ruota,5 + pp) > 0 Then
                     rita(c,rr) = 0
                  Else
                     rita(c,rr) = rita(c,rr) + 1
                     If max(c,rr) < rita(c,rr) Then max(c,rr) = rita(c,rr)
                  End If
               Next
            Next
         Next
      Next
      For z = 1 To 5
         For k = 1 To 5
            h = h + 1
            rita(h,11) = Z
            rita(h,12) = K
            max(h,11) = Z
            max(h,12) = K
         Next
      Next
      ScriviMatrice rita
      'Scrivi "=================================================== RITARDI STORICI"
      'Scrivi
      'ScriviMatrice max
      h = 0
      Erase rita
      Erase max
   Next
   Erase rita
   Erase max
End Sub



Output

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>RUOTA DI GIOCO Torino


=================================================== RITARDI ATTUALI

           BA     CA     FI     GE     MI     NA     PA     RO     TO     VE     RIL---> RIP
          394     18    245     21     45     29     41     21     42     85      1      1       
           10    195      2    150      3     43     22    179     17      7      1      2       
          102     58      9      3     40     47     45     38    342     48      1      3       
          431     20    193     12     66     39    200    127     74    145      1      4       
          165      7     57     18     71     10    111     76     11    545      1      5       
          117     77     97     87     46     70     43     60     50     47      2      1       
           36    111     56     40     53     34     56     88     78     59      2      2       
           79    110     42     28    245    135     17     96      3     32      2      3       
           31     53     51     59    309    243     21     15    253     77      2      4       
           96     27      5    172     88     18     10     83     39     10      2      5       
           40    104      6     64     13    204     27      5     47    103      3      1       
           71    129    199     36     57    155    225     71     10    141      3      2       
           96     33     62    199     22    130    131     97    438     25      3      3       
           56    133    112     24    158     33     20      2    120    182      3      4       
          125     90      1     33      3     31     56     80    252     88      3      5       
          135     17     37    189     15     55     34     30     26    118      4      1       
          232    183     55     15     44      8     62    112     81    752      4      2       
          107     29     71     16     88    554     93      8     65      1      4      3       
          113     49    223    106     64     43    124     61     60     66      4      4       
            6     57     15     39    171     54     42     10     23     56      4      5       
           39      9     14    162    101     13    248      0      0     41      5      1       
           34    360      0     60     14      3    187    113     51    211      5      2       
          106      3      3     96      2     91    141     74     40     10      5      3       
           42     17     52    213     71    183     75      5     80     86      5      4       
           59    134    181     62    120    154    213    185     20     29      5      5