Novità

Tabellone Analitico: statistiche di casella

FABIO60

Super member
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
 
Ultima modifica:

FABIO60

Super member
Coppie bivalenti (stessa coppia sortita in due ruote nella stessa estrazione)

28.53 Ba.To rc 2228 sortita contemporanea il 27.12.2005 :sortito a To il 19/5 , numeri 78 (cas.28) e 21 (cas 53)
__________________________________________________________


27.57 Mi.Pa rc 1774 sortita contemporanea il 20.11.2008


in sostituzione della coppia 28.53 :

17.37 Mi.Pa rc 1119


Storici :

28.04.2004 Ba-Ve 38.17 sortito il 13.10.2018 a rit 2204

03.08.1968 Ca-Pa 50.27 sortito il 21.04.1999 a rit 1713

30.08.2007 Mi-Pa 23.19 sortito il 03.03.2018 a rit 1645

segue >

Saluti
 
Ultima modifica:

FABIO60

Super member
In aggiunta a quanto avevo aggiunto


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




la terzina 37.47.57 sulla ruota di Bari

ha un ritardo di 2687 estr.

Storico per tre caselle "unite"(30 terzine da 10.20.30 a 39.49.59):

Palermo 29.39.49 rit 2729

*******************************************************************

23/Aprile


Aggiungo un' altra notazione :

la coppia 47.57 sulla ruota di VENEZIA fa parte di un pentambo di coppie unite

su righi consecutivi, e precisamente:

Formazione RC
--------------------
45.55 2237
46.56 1383
47.57 4639
48.58 2076
49.59 2829

Storici per questo tipo di pentambi : 1498 estr.


TABELLONE ANALITICO ruota di Venezia al 21.03.2020 da rigo RC 0 a rigo RC 9


COLONNA 1 24 38 80 -- -- 02 89 69 -- --
COLONNA 2 41 64 32 47 34 28 78 04 -- --
COLONNA 3 76 -- 56 66 31 30 74 45 85 05
COLONNA 4 10 70 53 21 -- 58 83 61 -- 33
COLONNA 5 37 65 77 68 46 43 60 29 48 88
____________________________________________
casella...10.11.12.13.14.15.16.17.18.19
casella...20.21.22.23.24.25.26.27.28.29
casella...30.31.32.33.34.35.36.37.38.39
casella...40.41.42.43.44.45.46.47.48.49
casella...50.51.52.53.54.55.56.57.58.59


Saluti
 
Ultima modifica:

FABIO60

Super member
Accoppiando una singola casella con le cinque caselle che si trovano

in uno stesso rigo (a formare un pentambo), si evidenzia:

ruota di Napoli

12.16 rc 1263

12.26 rc 1757

12.36 rc 1664

12.46 rc 1444

12.56 rc 1577

in pratica al 21/03/2020 si dovrebbero mettere ipoteticamente in gioco

COLONNA 1 25 20 32 54 31 44 06 85 -- --
COLONNA 2 09 03 15 58 77 29 51 -- -- --
COLONNA 3 52 11 46 60 48 13 87 90 76 --
COLONNA 4 79 75 22 30 40 -- 41 -- -- 17
COLONNA 5 43 78 84 47 39 -- 18 -- 33 --
____________________________________________
casella....10.11.12.13.14.15.16.17.18.19
casella....20.21.22.23.24.25.26.27.28.29
casella....30.31.32.33.34.35.36.37.38.39
casella....40.41.42.43.44.45.46.47.48.49
casella....50.51.52.53.54.55.56.57.58.59



Saluti
 

FABIO60

Super member
Casella singola abbinata a caselle consecutive in colonna

ROMA

Formazione RC
--------------------
44.50 907
44.51 1259
44.52 1777
44.53 893
44.54 1067
44.55 1438
44.56 1215
44.57 1050
44.58 921

TABELLONE ANALITICO ruota di Roma al 21.03.2020 da rigo RC 0 a rigo RC 9


COLONNA 1 90 89 68 20 80 64 26 81 21 73
COLONNA 2 34 -- 12 56 -- 77 47 36 51 --
COLONNA 3 86 76 07 -- -- 25 23 -- 04 52
COLONNA 4 14 10 32 82 33 44 85 -- 48 03
COLONNA 5 41 50 11 70 45 09 62 13 88 --
____________________________________________
casella...10.11.12.13.14.15.16.17.18.19
casella...20.21.22.23.24.25.26.27.28.29
casella...30.31.32.33.34.35.36.37.38.39
casella...40.41.42.43.44.45.46.47.48.49
casella...50.51.52.53.54.55.56.57.58.59
-------------------------------------------------------

Casella singola abbinata a caselle consecutive in colonna

CAGLIARI

Formazione RC
--------------------
11.40 1385
11.41 947
11.42 1374
11.43 1601
11.44 1189
11.45 1327
11.46 1458
11.47 1086


TABELLONE ANALITICO ruota di Cagliari al 21.03.2020 da rigo RC 0 a rigo RC 9


COLONNA 1 62 50 59 18 63 73 -- 70 -- 48
COLONNA 2 25 04 40 -- 64 30 56 86 16 68
COLONNA 3 09 71 69 76 -- -- 03 -- 29 --
COLONNA 4 35 45 80 77 79 43 -- -- 33 27
COLONNA 5 11 53 06 -- 90 44 83 10 61 --
____________________________________________
casella...10.11.12.13.14.15.16.17.18.19
casella...20.21.22.23.24.25.26.27.28.29
casella...30.31.32.33.34.35.36.37.38.39
casella...40.41.42.43.44.45.46.47.48.49
casella...50.51.52.53.54.55.56.57.58.59


Saluti
 

FABIO60

Super member
Ruota di Torino pentambo coppie "unite verticali"




Formazione RC
--------------------
15.16 1437
25.26 1368
35.36 1803
45.46 1123 sortito il 9/5/2020
55.56 2077

TABELLONE ANALITICO ruota di Torino al 21.03.2020 da rigo RC 0 a rigo RC 9


COLONNA 1 53 61 01 -- 46 90 -- 59 27 --
COLONNA 2 81 44 78 60 42 49 -- 52 64 34
COLONNA 3 05 77 -- 18 74 75 25 09 -- --
COLONNA 4 33 02 86 51 03 55 36 10 69 07
COLONNA 5 30 32 87 12 -- 04 26 -- -- 76
____________________________________________
casella...10.11.12.13.14.15.16.17.18.19
casella...20.21.22.23.24.25.26.27.28.29
casella...30.31.32.33.34.35.36.37.38.39
casella...40.41.42.43.44.45.46.47.48.49
casella...50.51.52.53.54.55.56.57.58.59

Saluti
 
Ultima modifica:

FABIO60

Super member
Quartine condizionate per ambo.

Condizione: le 4 caselle devono trovarsi in righi consecutivi tra rigo rc 0

e rigo rc 5 (1875 quartine).

Si evidenzia (caselle in ordine di rigo):

Palermo 32.23.54.35 Rc 1113

Palermo 22.43.54.55 Rc 1050

Storici 10 ruote singola formazione: 1254 ,1144,1134,1133

Storico di ruota 1131 estr


TABELLONE ANALITICO ruota di Palermo al 21.03.2020 da rigo RC 0 a rigo RC 9

COLONNA 1 12 75 59 20 74 07 38 15 47 --
COLONNA 2 52 50 32 26 45 83 54 11 25 --
COLONNA 3 78 86 27 -- 66 43 09 28 -- 67
COLONNA 4 81 -- 58 57 -- 10 87 71 -- 34
COLONNA 5 65 13 01 29 82 30 24 84 -- 18
____________________________________________
casella...10.11.12.13.14.15.16.17.18.19
casella...20.21.22.23.24.25.26.27.28.29
casella...30.31.32.33.34.35.36.37.38.39
casella...40.41.42.43.44.45.46.47.48.49
casella...50.51.52.53.54.55.56.57.58.59


Saluti
 

FABIO60

Super member
Codice:
'Visualizzazione sortita CASELLE: per rigo(0-9) e per colonna (01-05)
Sub Main()
   Dim a(5)
   r = 5'SCEGLIERE RUOTA
   Scrivi "_________________________________________ruota di " & NomeRuota(r)
   Scrivi
   Scrivi "_______________________________________________________________________",0,0
   Scrivi "__________________________________________________"
   Scrivi "____RIGO____|____0___|_|____1___|_|____2___|_|____3___|_|____4___|_|_",0,0
   Scrivi"___5___|_|____6___|_|____7___|_|____8___|_|____9___|"
   Scrivi
   ini = EstrazioneFin - 25 'SCEGLIERE INIZIO
   For es = ini To EstrazioneFin
      c = 0
      q = 0
      Erase a
      Scrivi DataEstrazione(es) & "  ",0,0
      GeneraAnalitico(es - 1)
      For ep = 0 To 9
         For p = 1 To 5
            C = c + 1
            n = ".."
            num = TabelloneAnalitico(ep,r,p)
            If Posizione(es,r,num) > 0 And p = 1 Then
               n = "01"
               q = q + 1
               a(q) = 10 + ep
            End If
            If Posizione(es,r,num) > 0 And p = 2 Then
               n = "02"
               q = q + 1
               a(q) = 20 + ep
            End If
            
            If Posizione(es,r,num) > 0 And p = 3 Then
               n = "03"
               q = q + 1
               a(q) = 30 + ep
            End If
            If Posizione(es,r,num) > 0 And p = 4 Then
               n = "04"
               q = q + 1
               a(q) = 40 + ep
            End If
            If Posizione(es,r,num) > 0 And p = 5 Then
               n = "05"
               q = q + 1
               a(q) = 50 + ep
            End If
            Scrivi n,0,0
            If c Mod 5 = 0 Then Scrivi " ",0,0
            If c = 50 Then Scrivi StringaNumeri(a)
            
         Next
      Next
   Next
   Scrivi "_______________________________________________________________________",0,0
   Scrivi "__________________________________________________"
   Scrivi "____RIGO____|____0___|_|____1___|_|____2___|_|____3___|_|____4___|_|_",0,0
   Scrivi"___5___|_|____6___|_|____7___|_|____8___|_|____9___|"
   Scrivi
   Scrivi
End Sub
 
Ultima modifica:

joe

Advanced Member >PLATINUM PLUS<
Bravo Fabio.

Hai messo giù una enorme quantità di lavoro.

E' meritevole di qualche buon risultato.

:)
 

FABIO60

Super member
Grazie Joe :)


Fuori ricerca e dubitando della sua utilità, ho allargato la 'visuale' dello script sopra:



Codice:
'S.E.&O.
'Visualizzazione sortita CASELLE righi a scelta
'Su SPAZIOMETRIA la scelta dei righi è libera
'Su L8+  se la differenza tra h e i è superiore a 20, si ha un output illegibile.
Sub Main()
   Dim e(1)
   Dim ru(1)
   r = 1 'Ruota
   ru(1) = r
   range = 30 'numero estrazioni da esaminare
   i = 10 ' DA RIGO ..
   h = 30 ' A RIGO..
   Scrivi "_________________________________________ruota di " & NomeRuota(r)
   Scrivi
   For g = i To h + 1
      Scrivi "___________",0,0
      If G = h + 1 Then Scrivi
   Next
   Scrivi "______RIGO=>___",0,0
   For g = i To h
      Scrivi "|___" & Format2(g) & "___|_",0,0
      If G = h Then Scrivi
   Next
   fin = EstrazioneFin
   ini = Fin -(range - 1)
   For es = ini To Fin
      Messaggio es
      u = range -(EstrazioneFin - es)
      c = 0
      Scrivi FormatSpace(u,3) & DataEstrazione(es) & Space(2),0,0
      GeneraAnalitico(es - 1)
      For ep = i To h
         For p = 1 To 5
            e(1) = Estratto(ep,r,p)
            C = c + 1
            n = ".."
            num = TabelloneAnalitico(ep,r,p)
            If Posizione(es,r,num) > 0 Then k = k + 1
            If Posizione(es,r,num) > 0 And p = 1 Then n = "01"
            If Posizione(es,r,num) > 0 And p = 2 Then n = "02"
            If Posizione(es,r,num) > 0 And p = 3 Then n = "03"
            If Posizione(es,r,num) > 0 And p = 4 Then n = "04"
            If Posizione(es,r,num) > 0 And p = 5 Then n = "05"
            Scrivi n,0,0
            If c Mod 5 = 0 Then Scrivi Space(1),0,0
            If c =(h - i + 1)*5 Then Scrivi ""
         Next
      Next
   Next
   Scrivi "Tabellone ==>" & Space(2),0,0
   GeneraAnalitico(EstrazioneFin)
   For s = i To h
      For pp = 1 To 5
         j = J + 1
         nu = TabelloneAnalitico(s,r,pp)
         m = Format2(nu)
         If nu < 1 Then m = "--"
         Scrivi m,0,0
         If j Mod 5 = 0 Then Scrivi Space(1),0,0
         If j =(h - i + 1)*5 Then Scrivi
      Next
   Next
   For g = i To h + 1
      Scrivi "___________",0,0
      If G = h + 1 Then Scrivi
   Next
   Scrivi "______RIGO=>___",0,0
   For g = i To h
      Scrivi "|___" & Format2(g) & "___|_",0,0
      If G = h Then Scrivi
   Next
   Scrivi
   Scrivi "RANGE: " & range & " estraz."
   Scrivi "Totale sortite nel range: " & k & " (da rigo " & i & " a rigo " & h & ")"
   Scrivi "Media sortite per ogni estrazione :" & Round(k/range,2)
   Scrivi
   a = 79 - i
   b = 79 - h + 1
   x =(17/18)^(- a)
   Y =(17/18)^(- b)
   mt =(x - y)*5/90
   Scrivi "Media sortite teorica approssimativa:" & Round(mt,4)
End Sub

Saluti
 
Ultima modifica:

vincenzo4221

Advanced Member >PLATINUM<
Ciao Fabio, i miei complimenti, un vecchio detto dice chi fa da sè fa per tre, (corretto)un idea molto simile l'ho avuta anch'io tempo fà, inutili furono le mie richieste d'aiuto per uno script, qualcuno che seguiva mi aiutò solo in parte (volendo malignare "forse " tenne per sè il prodotto finito); ho sempre sostenuto che la collaborazione ci avrebbe potuto dare una mano in più, ma la presunzione e l'egoismo prevalse..risultato? dopo tante richieste mi sono stancato di regalare le mie idee agli altri e ogni tanto regalo qualke previsione (finora col 99% di risultati, quando le condizioni si presentano; vedi le mie pubblicazioni)..per fortuna non sono tutti cosi e con qualcuno sono riuscito a collaborare e a stringere una buona amicizia, buona fortuna e sopratutto una buona vita
 
Ultima modifica:

FABIO60

Super member
Grazie Vincenzo per i complimenti.

Continuando a 'curiosare', S.E.&O. :
Codice:
'Statistiche di rigo per sigole caselle:
'Rapporto tra sortite e presenze effettive (caselle piene):'esiti' diviso(/) 'pres'
'Ovviamente essendo le caselle a rigo rc 0 sempre piene, le presenze
'coincidono col range
Sub Main()
   Dim s(36)
   Dim rita(80,5)
   Dim esiti(80,5)
   Dim pres(80,5)
   For rr = 1 To 10 'ruote
      eini = EstrazioneFin - 46' SCEGLIERE RANGE
      efin = EstrazioneFin
      Scrivi "____________________________________________________________" & NomeRuota(rr),1
      Scrivi "Statistiche di rigo per sigole caselle"
      Scrivi "Rapporto sortite/presenze",1
      Scrivi "al " & DataEstrazione(efin) & " range " & efin - eini + 1 & " estr.",0,0
      x = 0 ' DA RIGO ...
      y = 30 ' A RIGO ...
      Scrivi " da rigo " & x & " a rigo " & y
      Scrivi "_________________________COLONNE DA 1 a 5_________________________ "
      Scrivi
      For i = eini To efin
         Messaggio rr
         GeneraAnalitico(i - 1)
         For p = 1 To 5
            For ep = x To y
               num = TabelloneAnalitico(ep,rr,p)
               If num > 0 Then
                  pres(ep,p) = pres(ep,p) + 1
               End If
               If Posizione(i,rr,num) > 0 Then
                  esiti(ep,p) = esiti(ep,p) + 1
                  k = k + 1
               End If
               s(ep) = esiti(ep,1) + esiti(ep,2) + esiti(ep,3) + esiti(ep,4) + esiti(ep,5)
               If pres(ep,p) = 0 Then pres(ep,p) = "0"
               If esiti(ep,p) = 0 Then esiti(ep,p) = "0"
            Next
         Next
      Next
      For rigo = x To y
         TD1 = esiti(rigo,1)/pres(rigo,1)
         TD2 = esiti(rigo,2)/pres(rigo,2)
         TD3 = esiti(rigo,3)/pres(rigo,3)
         TD4 = esiti(rigo,4)/pres(rigo,4)
         TD5 = esiti(rigo,5)/pres(rigo,5)
         Scrivi "RC " & FormatSpace(rigo,4) & esiti(rigo,1) & "/" & _
         FormatSpace(pres(rigo,1),3) & FormatSpace(Round(td1,3),5) & _
         Space(4) & esiti(rigo,2) & "/" & FormatSpace(pres(rigo,2),3) & FormatSpace(Round(td2,3),5) & _
         Space(4) & esiti(rigo,3) & "/" & FormatSpace(pres(rigo,3),3) & FormatSpace(Round(td3,3),5) & _
         Space(4) & esiti(rigo,4) & "/" & FormatSpace(pres(rigo,4),3) & FormatSpace(Round(td4,3),5) & _
         Space(4) & esiti(rigo,5) & "/" & FormatSpace(pres(rigo,5),3) & FormatSpace(Round(td5,3),5)
      Next
      Scrivi
      Scrivi " Sortite totali nel range " & k
      Scrivi "______________________________________________________"
      Scrivi
      Erase esiti
      Erase pres
      Erase s
      k = 0:td1 = 0:td2 = 0:td3 = 0:td4 = 0:td5 = 0
   Next
End Sub

Saluti
 

FABIO60

Super member
Codice:
Si evidenzia sul Tabellone della ruota di Genova, il ritardo per ambo del rigo rc 3
quando sono eslusivamente presenti  4 numeri.

Statistiche di rigo per ambo dei sincrononi di livello 3
dal 14.09.1946 al 21.03.2020
da rigo 0 a rigo 9

rigo   colpi__sto__pres__esiti__rit__ultima sortita   
RC 9     37   343  1995   17   128    9635
RC 8     91   224  2029   22   237    9526
RC 7     256  279  1961   16   750    9013
RC 6     99   555  1782   5    323    9440
RC 5     47   293  1558   16   181    9582
RC 4     76   527  1255   7    334    9429
RC 3     2    571  880    6    11     9752
RC 2     93   342  470    2    1158   8605
RC 1     40   94   135    1    2174   7589
RC 0     .................................     



Statistiche di rigo per ambo dei sincrononi di livello 4
dal 14.09.1946 al 21.03.2020
da rigo 0 a rigo 9

rigo   colpi__sto__pres__esiti__rit__ultima sortita   
RC 9     98   340  1530   23   400    9363
RC 8     28   153  1728   27   118    9645
RC 7     18   322  1968   27   60     9703
RC 6     28   254  2180   35   86     9677
RC 5     128  360  2392   43   304    9459
RC 4     66   402  2468   20   152    9611
RC 3     517  517  2385   22   1245   8518
RC 2     42   274  2070   24   126    9637
RC 1     45   225  1353   21   199    9564
RC 0     ...................................       



Statistiche di rigo per ambo dei sincrononi di livello 5
dal 14.09.1946 al 21.03.2020
da rigo 0 a rigo 9

rigo   colpi__sto__pres__esiti__rit__ultima sortita   
RC 9     41   116  404    14   546    9217
RC 8     87   155  541    8    886    8877
RC 7     29   137  727    15   248    9515
RC 6     40   169  995    24   270    9493
RC 5     1    129  1312   34   4      9759
RC 4     0    305  1758   35   0      9763
RC 3     6    207  2382   60   14     9749
RC 2     3    203  3219   88   5      9758
RC 1     40   264  4319   91   52     9711
RC 0     85   214  5814   142  85     9678



Riepilogo 10 ruote

 ====================R I G O 3
Statistiche di rigo per ambo dei sincrononi di livello 4
dal14.09.1946 al 21.03.2020

             colpi____sto___pres___esit____rit___ultima sortita

      Bari     61     196    2362   39     139    9624 

  Cagliari     75     282    2420   32     196    9567 

   Firenze     44     245    2324   29     88     9675 

    Genova     517    517    2385   22     1245   8518 

    Milano     6      242    2460   33     26     9737 

    Napoli     73     450    2417   28     182    9581 

   Palermo     14     211    2365   35     29     9734 

      Roma     388    532    2377   22     990    8773 

    Torino     60     239    2384   32     168    9595 

   Venezia     15     176    2367   39     47     9716


Saluti
 
Ultima modifica:

FABIO60

Super member
Codice:
' Tabellone analitico - coppia per ambo: 1° Estratto + 3° Estratto COLONNA 3 (a contare da rc 0)
' RUOTE di gioco :
'BA rit. 1874
'FI rit. 1586
'Ge rit. 2081
'TO rit. 2329
'VE rit. 1291
' I numeri cambiano ad ogni estrazione
Sub Main()
   Dim nu(10)
   es = EstrazioneFin
   Scrivi " AMBI IPOTETICAMENTE IN GIOCO per l'estrazione successiva al " & DataEstrazione(es),1,1
   GeneraAnalitico(es)
   Scrivi
   Scrivi
   For r = 1 To 10
      h = 0
      For n = 0 To 9
         If TabelloneAnalitico(n,r,3) > 0 Then
            h = h + 1
            nu(h) = TabelloneAnalitico(n,r,3)
         End If
      Next
      If r = 1 Or r = 3 Or r = 4 Or r = 9 Or r = 10 Then
         Scrivi SiglaRuota(r) & Space(4),1,0
         Scrivi nu(1) & "." & nu(3)
      End If
   Next
End Sub


Output:
AMBI IPOTETICAMENTE IN GIOCO per l'estrazione successiva al 21.03.2020


Ba    89.16
Fi    61.65
Ge    21.23
To    5.18
Ve    76.66


Saluti

AMBI IPOTETICAMENTE IN GIOCO per l'estrazione successiva al 19.05.2020


Ba 33.2 sortito il 21/5/2020
Fi 37.23
Ge 62.70
To 65.20

Ve 40.87
 
Ultima modifica:

FABIO60

Super member
Ciao ciccioriccio, la scritta dell' output:

AMBI IN GIOCO per l'estrazione successiva al 21.03.2020

non va intesa come reale proposta di gioco (previsione),

ma come IPOTETICA giocata necessaria all' annullamento del ritardo

segnalato. (Ho aggiunto IPOTETICAMENTE nel post sopra)

Una "previsione" necessita di maggiori approfondimenti statistici

e di un adeguato piano di gioco.

Buona giornata
 

genios

Advanced Member >PLATINUM<
Interessante molto interessante Fabio60. Anche se non ho capito molto . Ho anche io un idea sul tabellone analitico .Ho lanciato l' idea suli' area dowload e in altro forum per avere uno script ma con scarso successo . Scopiazzando da te sono riuscito ad arrivare a questo punto :
Codice:
Sub Main()
   Dim b1(20)
   Dim b2(20)
   Dim b3(20)
   Dim b4(20)
   Dim b5(20)
   Dim NUMERO(5)
   For es = 3950 To 4000
      GeneraAnalitico(es)
      For r = 1 To 1
         ColoreTesto 2
         Scrivi
         Scrivi
         Scrivi "TABELLONE ANALITICO ruota di " & NomeRuota(r) & " al "_
         & DataEstrazione(es) & " da rigo RC 0 a rigo RC 1",1,1
         Scrivi
         For n = 0 To 1
            For P = 1 To 5
               If TabelloneAnalitico(n,r,P) > 0 Then
                  NUMERO(P) =  NUMERO(P) + Format2(TabelloneAnalitico(n,r,P)) + " "
               Else
                   NUMERO(P) =  NUMERO(P) + "-- "
               End If
            Next
         Next
         For x = 1 To 5
            ColoreTesto 0
            Scrivi "COLONNA " & X & " " & CStr( NUMERO(X)),1,1
         Next
         Scrivi"____________________________________________"
         Erase  NUMERO
      Next
   Next
End Sub
l idea è la seguente .
trovare i ritardi attuali e ritardi storici per la sorte dell ambo di una decina formata dai 10 numeri di 2 cinquine sincrone in sincronismo continuo .Se hai tempo e voglia .

ciao Eugenio
 

FABIO60

Super member
Se l'idea è quella che hai abbozzato col tuo script,

ti suggerisco la seguente funzione di Spaziometria:



Tabelloni---> Fasce di ritardo

seleziona 2 come ampiezza fascia

scegli la ruota

clicca su esegui

Saluti
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto