Oggetto della ricerca: prime 50 caselle del Tabellone Analitico (da rigo rc 0 a rigo rc 9).
Scopo della ricerca : curiosità statistiche su coppie o altre formazioni.
La ricerca inizia dal 21/09/1946 (5813 estr. al 21/03/2020) ed è in work in progress.
Le caselle sono identificate con un numero a due cifre in cui la prima cifra indica la colonna del
Tabellone ( da 1 a 5) e la seconda cifra indica il rigo; userò pertanto i cinquanta numeri compresi tra
10 e 59.
Con questo script otteniamo i numeri corrispondenti alle varie caselle (i numeri cambiano ad ogni
estrazione);
alcune caselle risulteranno VUOTE, ciò comporta che alcune formazioni non saranno “giocabili” ma il
ritardo si incrementa ugualmente ,risultando alla fine superiore ai colpi effettivamente “giocati”.
'Traduzione CASELLE in relativi numeri del Tabellone Analitico
Sub Main()
Dim b1(20)
Dim b2(20)
Dim b3(20)
Dim b4(20)
Dim b5(20)
Dim RIGA(5)
es = EstrazioneFin
GeneraAnalitico(es)
For r = 1 To 10
ColoreTesto 2
Scrivi
Scrivi
Scrivi "TABELLONE ANALITICO ruota di " & NomeRuota(r) & " al "_
& DataEstrazione(es) & " da rigo RC 0 a rigo RC 9",1,1
Scrivi
For n = 0 To 9
For P = 1 To 5
If TabelloneAnalitico(n,r,P) > 0 Then
RIGA(P) = RIGA(P) + Format2(TabelloneAnalitico(n,r,P)) + " "
Else
RIGA(P) = RIGA(P) + "-- "
End If
Next
Next
For x = 1 To 5
ColoreTesto 0
Scrivi "COLONNA " & X & " " & CStr(RIGA(X)),1,1
For W = 10 To 19
b1(w) = w
b2(w) = w + 10
b3(w) = w + 20
b4(w) = w + 30
b5(w) = w + 40
Next
Next
Scrivi"____________________________________________"
Scrivi "casella...." & StringaNumeri(b1),0,1
Scrivi "casella...." & StringaNumeri(b2),0,1
Scrivi "casella...." & StringaNumeri(b3),0,1
Scrivi "casella...." & StringaNumeri(b4),0,1
Scrivi "casella...." & StringaNumeri(b5),0,1
Erase RIGA
Next
End Sub
COPPIE per ambo.
Le coppie possibili con 50 numeri sono 1225.
Le coppie a freq. 0 sono :
Ge 25.29
Pa 37.48
To 37.49
Ve 29.38 (non è più in lista in quanto sortito il 16/5 )
La coppia più ritardataria su due ruote:
Fi 18.49 rc 5684
Ge 18.49 rc 5213
La coppia più ritardataria su tre ruote:
Ba 26.59 rc 4094
Pa 26.59 rc 3861
Ve 26.59 rc 4432
al terzo posto c'è la coppia 47.57 sulle stesse ruote
(i numeri ci indicano essere due caselle "unite" a rigo rc 7 in colonna 4 e 5)
Ba 47.57 rc 3294
Pa 47.57 rc 3663
Ve 47.57 rc 4639
Segue >
Saluti
Scopo della ricerca : curiosità statistiche su coppie o altre formazioni.
La ricerca inizia dal 21/09/1946 (5813 estr. al 21/03/2020) ed è in work in progress.
Le caselle sono identificate con un numero a due cifre in cui la prima cifra indica la colonna del
Tabellone ( da 1 a 5) e la seconda cifra indica il rigo; userò pertanto i cinquanta numeri compresi tra
10 e 59.
Con questo script otteniamo i numeri corrispondenti alle varie caselle (i numeri cambiano ad ogni
estrazione);
alcune caselle risulteranno VUOTE, ciò comporta che alcune formazioni non saranno “giocabili” ma il
ritardo si incrementa ugualmente ,risultando alla fine superiore ai colpi effettivamente “giocati”.
'Traduzione CASELLE in relativi numeri del Tabellone Analitico
Sub Main()
Dim b1(20)
Dim b2(20)
Dim b3(20)
Dim b4(20)
Dim b5(20)
Dim RIGA(5)
es = EstrazioneFin
GeneraAnalitico(es)
For r = 1 To 10
ColoreTesto 2
Scrivi
Scrivi
Scrivi "TABELLONE ANALITICO ruota di " & NomeRuota(r) & " al "_
& DataEstrazione(es) & " da rigo RC 0 a rigo RC 9",1,1
Scrivi
For n = 0 To 9
For P = 1 To 5
If TabelloneAnalitico(n,r,P) > 0 Then
RIGA(P) = RIGA(P) + Format2(TabelloneAnalitico(n,r,P)) + " "
Else
RIGA(P) = RIGA(P) + "-- "
End If
Next
Next
For x = 1 To 5
ColoreTesto 0
Scrivi "COLONNA " & X & " " & CStr(RIGA(X)),1,1
For W = 10 To 19
b1(w) = w
b2(w) = w + 10
b3(w) = w + 20
b4(w) = w + 30
b5(w) = w + 40
Next
Next
Scrivi"____________________________________________"
Scrivi "casella...." & StringaNumeri(b1),0,1
Scrivi "casella...." & StringaNumeri(b2),0,1
Scrivi "casella...." & StringaNumeri(b3),0,1
Scrivi "casella...." & StringaNumeri(b4),0,1
Scrivi "casella...." & StringaNumeri(b5),0,1
Erase RIGA
Next
End Sub
COPPIE per ambo.
Le coppie possibili con 50 numeri sono 1225.
Le coppie a freq. 0 sono :
Ge 25.29
Pa 37.48
To 37.49
Ve 29.38 (non è più in lista in quanto sortito il 16/5 )
La coppia più ritardataria su due ruote:
Fi 18.49 rc 5684
Ge 18.49 rc 5213
La coppia più ritardataria su tre ruote:
Ba 26.59 rc 4094
Pa 26.59 rc 3861
Ve 26.59 rc 4432
al terzo posto c'è la coppia 47.57 sulle stesse ruote
(i numeri ci indicano essere due caselle "unite" a rigo rc 7 in colonna 4 e 5)
Ba 47.57 rc 3294
Pa 47.57 rc 3663
Ve 47.57 rc 4639
Segue >
Saluti
Ultima modifica:
