Novità

AMBATA/E DAI NUMERI TERMINATORI

micro__

Advanced Member >GOLD<
Al rigo 34, nel confronto dei tabelloni, trovo ben cinque numeri terminatori (condizione ai limiti della statistica pregressa).

E' pensabile che a breve almeno uno dei cinque numeri, sotto descritti, possa uscire:

BARI---50---

MILANO---72---

NAPOLI---39---

TORINO ---25---

VENEZIA---4---


saluti a chi legge
micro
 

Cinzia27

Advanced Member >PLATINUM PLUS<
Ciao, Micro.
Puoi spiegare a chi come me non lo sa, cosa sono i numeri terminatori ( magari con un esempio)?
Grazie e complimenti per il 4 a Venezia.
 

micro__

Advanced Member >GOLD<
Buongiorno Cinzia27 grazie per i complimenti e complimenti a te per i tuoi studi, cerco di seguirti e noto con notevole ottimismo la tua ricerca e perseveranza verso di questi e l' apertura che hai verso gli studi di altri forumisti.

Ti copio quanto scritto nel novembre 2020 in questo post che puoi leggere:


Buongiorno, chiedo se è possibile fare uno script o inserire in spaziometria i tabelloni analitici comparati.


Qual è il numero terminatore? è il numero che sgretola la sua colonna determinata, composta da tutti numeri diversi.

se osservi le figure in excel noterai che, sempre a livello 0, quindi con l'ultima estrazione, ci sono alcuni numeri che sono su fondo celeste, in alto sopra ad un certo numero di colonne determinate. Per l'estrazione del 22 ottobre te le ho già scritte.
Nel tabellone analitico che va posto in comparazione con il classico tabellone analitico ci vanno questi numeri a quella data e nella stessa posizione determinata.
Sgretolare significa anche ridurre la colonna determinata, perchè è uscito un numero contenuto nella stessa colonna determinata, che, per DEFINIZIONE: contiene solo numeri tutti diversi. Logico che, se esce un numero contenuto in essa la colonna si sgretola o si riduce(se piace di più),se non esce, la colonna determinata continua il suo "allungamento" fino a che uscirà un numero terminatore.
I numeri terminatori costituiranno un nuovo tabellone analitico che va messo a fianco, a confronto, con quello analitico classico, ruota per ruota e ti accorgerai che, nel confronto tra i due tab, il sincronismo, su una ruota, cadrà quando usciranno i numeri anche se non sono terminatori.
I terminatori infatti presentano ritardi anche notevoli, ma a me interessano solo quelli che mantengono il sincronismo nella stessa ruota. Poi si potrà vedere anche l'isocronismo tra tutte le 11 ruote.
Numeri terminatori del 24/10/2020(vedi la figura sopra)
Ba3ED:77
Mi3Ed:57
Mi4Ed:36
Pa3Ed:65
Pa4Ed:54
Ro4Ed:84


Come vedi i numeri terminatori variano ( in quantità) ad ogni estrazione. Basterà sistemarli al loro posto determinato per creare questo nuovo tabellone analitico, che dovrà comunque contenere 90 numeri. Lo affiancherai al tabellone analitico classico e vedrai che solo alcuni numeri " reggeranno il sincronismo" su ruota (che sono poi quelli che compongono le lunghette). Questo è il nuovo parametro che, secondo me, va considerato.



Molto interessante è lo studio sui sincronismo e isocronismi a TUTTE (da cui ho tratto la previsione con il 4 di Venezia), quando se ne presentano i ritardi opportuni per affrontare un gioco sulle convergenze.

Ti copio lo script, per me eccezionale, di Claudio8 bravissimo, che potrebbe essere implementato,se possibile) con i ritardi (o altri parametri) su ruota e a TT sia per i terminatori che escono che per i terminatori che entrano (Quota 0).


Option Explicit
Sub Main()
Dim Ru,coRu,co,x,y,z,W,cc,lu,coW,numTer,col,coT,insRP1,a,b,Tab_Ana,Coe,retPos,pos
Dim lunghetta(12,990)
Dim numLung(12,90)
Dim posLung(12,90)
Dim clpLung(12,90)
Dim aruote(2)
Dim aPos(1)
ReDim aNum(0)
ReDim aRit(0)
aruote(1) = 11
aruote(2) = 12
Dim esR,ini,fin,p,es,esc,rit,num,RuElab,esAn
Call PiuRitardatari(EstrazioneFin,aruote,aNum,,aRit)
Tab_Ana = CInt(InputBox(" Scrivo tabellone analitico delle singole ruote? " & Chr(13) & Chr(13) & " Scrivo = 1; NON scrivo = 0 o altro"," TABELLONE ANALITICO RUOTE ",0))
Coe = CInt(InputBox(" Scrivo i coestratti dei Terminatori?" & Chr(13) & Chr(13) & " Scrivo = 1; NON scrivo = 0 o altro ","TABELLONE TERMINATORI ",1))
esAn = aRit(1) 'CInt(InputBox(" Quantità estrazioni in analisi " & Chr(13) & Chr(13) & " Attuale Massimo Ritardo su TT e NZ","ESTRAZIONI In ANALISI",aRit(1)))
esc = 40'InputBox("Quante estrazioni di controllo Isotopia ","ESTRAZIONI di ISOTOPIA",50)
coRu =(Ru - 1)*5
ReDim ArchivioTerm(esAn + 1,60)
Scrivi " Tabellone Analitico Classico e Tabellone TERMINATORI di Micro - Script by Claudio8 - isotopia " & esc & " max rit. " & aRit(1) & " data elaborazione " & DataEstrazione(EstrazioneFin),1,,3,2,1
Scrivi " Data N°estr Rit ",1,False,6,,1
For Ru = 1 To 11
ArchivioTerm(0,(Ru - 1)*5 + 5) = SiglaRuota(Ru)
If Ru = 11 Then Ru = 12 : ArchivioTerm(0,(Ru - 2)*5 + 5) = SiglaRuota(Ru)
If Tab_Ana = 1 Then
Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Analitico Terminatore",33,False),1,False,6,,1
Else
Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Terminatore",16,False),1,False,6,,1
End If
Next
Scrivi
For W = esAn To 0 Step - 1
ArchivioTerm(W + 1,0) = W
If ScriptInterrotto Then Exit For
ini = EstrazioneFin - esc - W
ReDim Term(esc,55)
ReDim TermFin(1,55)
fin = EstrazioneFin - W
Call GeneraAnalitico(EstrazioneFin)
co = 0
For es = ini To fin - 1
co = co + 1
rit = esc - co + 1
For Ru = 1 To 11
coRu =(Ru - 1)*5
If Ru = 11 Then Ru = 12
For p = 1 To 5
For esR = es + 1 To fin
If Estratto(esR,Ru,p) = Estratto(es,Ru,p) Then Term(co,coRu + p) = Estratto(esR,Ru,p)
Next
Next
Next
Next
For z = 1 To coRu + p - 1
For y =(esc) To 1 Step - 1
If Term(y,z) > 0 Then
TermFin(1,z) = Term(y,z)
Exit For
End If
Next
Next
Scrivi DataEstrazione(es) & " [" & es & "] " & FormatSpace(W,3,1) & " | ",1,False,,,1
For Ru = 1 To 11
coRu =(Ru - 1)*5
If Ru = 11 Then Ru = 12
If Tab_Ana = 1 Then
For p = 1 To 5
If W <= aRit(1) Then
num =(TabelloneAnalitico(W,Ru,p))
If num > 0 Then
Scrivi FormatSpace(num,2,True) & " ",,False,,,1
Else
Scrivi "-- ",,False,,,1
End If
Else
Scrivi ".. ",,False,,,1
End If
If p = 5 Then Scrivi "| ",1,False,,,1
Next '
End If
For p = 1 To 5
cc = 0
If W <= aRit(1) Then
For es = fin - 1 To ini Step - 1
If Estratto(fin,Ru,p) = TermFin(1,coRu + p) Then
cc = cc + 1
End If
Next
If cc > 0 And Estratto(fin,Ru,p) = TabelloneAnalitico(W,Ru,p) Then
Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),1,False,vbGreen,,1
ArchivioTerm(W + 1,coRu + p) = Estratto(fin,Ru,p)
lu = lu + 1
lunghetta(Ru,0) = SiglaRuota(Ru)
lunghetta(Ru,lu) = Estratto(fin,Ru,p)
ElseIf cc > 0 Then
Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),1,False,,,1
ArchivioTerm(W + 1,coRu + p) = Estratto(fin,Ru,p)
Else
If Coe = 1 Then
Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),,False,,6,1
Else
Scrivi FormatSpace("..",2,True),,False,,,1
End If
End If
If p < 5 Then Scrivi " ",1,False,,,1
If p = 5 Then Scrivi " | ",1,False,,,1
Else
For es = fin - 1 To ini Step - 1
If Estratto(fin,Ru,p) = TermFin(1,coRu + p) Then
cc = cc + 1 '''''''
End If
Next
If cc > 0 Then
Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),1,False,,,1
ArchivioTerm(W + 1,coRu + p) = Estratto(fin,Ru,p)
Else
If Coe = 1 Then
Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),,False,,6,1
Else
Scrivi FormatSpace("..",2,True),,False,,,1
End If
End If
Scrivi " ",,False
If p = 5 Then Scrivi "| ",,False,,,1
End If
Next
Next
Scrivi
Messaggio " Data estrazione - " & DataEstrazione(EstrazioneFin - W) & " - estr.da analizzare " & W
AvanzamentoElab 0,esAn,W
Next
Messaggio " Scrittura output - estrazione finale " & DataEstrazione(EstrazioneFin) & " - analizzate " & aRit(1)
Scrivi " Data N°estr Rit ",1,False,6,,1
For Ru = 1 To 11
If Ru = 11 Then Ru = 12
If Tab_Ana = 1 Then
Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Analitico Terminatore",33,False),1,False,6,,1
Else
Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Terminatore",16,False),1,False,6,,1
End If
co = 1
For x = 1 To UBound(lunghetta,2)
If lunghetta(Ru,x) > 0 Then
co = co + 1
numLung(Ru,co) = lunghetta(Ru,x)
numLung(Ru,0) = Ru
End If
Next
Next
Scrivi
Scrivi
Scrivi " Lunghette Terminatori " & String(12," ") & " Estrazioni analizzate : " & FormatSpace(esAn,4,1) & " al " & DataEstrazione(EstrazioneFin) & " Indice " & EstrazioneFin,1,1,3,2,1
For Ru = 1 To 11
AvanzamentoElab 0,11,Ru
If Ru = 11 Then Ru = 12
co = 0
Scrivi FormatSpace("PostoD",12,True) & " : ",1,False,,,1
For x = 2 To UBound(numLung,2)
If numLung(Ru,x) > 0 Then
co = co + 1
If co = 1 Then numLung(Ru,1) = RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru)
pos = RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru,,retPos)
If RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x + 1),EstrazioneFin,Ru) Or RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x - 1),EstrazioneFin,Ru)Then
ColoreTesto 2
Scrivi FormatSpace(retPos & "°",3,True) & " ",,False,,,1
posLung(Ru,x) = retPos
Else
Scrivi FormatSpace(retPos & "°",3,True) & " ",,False,,,1
posLung(Ru,x) = retPos
End If
End If
ColoreTesto 0
Next
Scrivi String((184 - co*4),".") & " POSIZIONI",1,,,,1
co = 0
Scrivi FormatSpace(NomeRuota(Ru),12,True) & " : ",1,False,4,,1
For x = 2 To UBound(numLung,2)
If numLung(Ru,x) > 0 Then
co = co + 1
If RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x + 1),EstrazioneFin,Ru) Or RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x - 1),EstrazioneFin,Ru)Then
ColoreTesto 2
Scrivi FormatSpace(numLung(Ru,x),3,True) & " ",1,False,4,,1
Else
Scrivi FormatSpace(numLung(Ru,x),3,True) & " ",1,False,4,,1
End If
End If
ColoreTesto 0
Next
Scrivi String((184 - co*4),".") & Format2(co) & " Numeri",1,,,,1
co = 0
Scrivi FormatSpace("Rit.",12,True) & " : ",1,False,,,1
For x = 2 To UBound(numLung,2)
If numLung(Ru,x) > 0 Then
co = co + 1
If co = 1 Then numLung(Ru,1) = RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru)
If RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x + 1),EstrazioneFin,Ru) Or RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x - 1),EstrazioneFin,Ru)Then
ColoreTesto 2
Scrivi FormatSpace(RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru),3,True) & " ",,False,,,1
Else
Scrivi FormatSpace(RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru),3,True) & " ",,False,,,1
End If
End If
ColoreTesto 0
Next
Scrivi String((184 - co*4),".") & " RC",1,,,,1
co = 0
ReDim numVer(90)
ReDim ruoVer(12)
Dim retClp
Scrivi FormatSpace("clp1°Esito",12,True) & " : ",1,False,,,1 ' x silop in questa riga, se vuoi modificare clpEsito a tuo piacere, max 12 caratteri compreso spaziature
For x = 2 To UBound(numLung,2)
If numLung(Ru,x) > 0 Then
co = co + 1
numVer(1) = numLung(Ru,x)
ruoVer(1) = Ru
If VerificaEsitoTurbo(numVer,ruoVer,EstrazioneFin + 1,1,(EstrazioniArchivio - EstrazioneFin),,,retClp) = True Then
Scrivi FormatSpace(retClp,3,True) & " ",1,False,,,1
clpLung(Ru,x) = retClp
Else
Scrivi FormatSpace("--",3,True) & " ",1,False,,,1 ' sostiuito ng con --
clpLung(Ru,x) = 0
End If
End If
Next
Scrivi String((184 - co*4),".") & " Clp di Risortita",1,,,,1
co = 0
Scrivi FormatSpace("pos1°Esito",12,True) & " : ",1,False,,,1
For x = 2 To UBound(numLung,2)
If numLung(Ru,x) > 0 Then
co = co + 1
If clpLung(Ru,x) > 0 Then
If Posizione(EstrazioneFin + clpLung(Ru,x),Ru,numLung(Ru,x)) = posLung(Ru,x) Then
Scrivi FormatSpace("D",3,True) & " ",1,False,,2,1 'De
Else
Scrivi FormatSpace("S",3,True) & " ",1,False,,,1 'Se
End If
Else
Scrivi FormatSpace("--",3,True) & " ",1,False,,,1
End If
End If
Next
Scrivi String((184 - co*4),".") & " POSIZIONE semplice/Determinata",1,,,,1
Scrivi ' serve a lasciare una riga vuota tra le ruote
Next '
Scrivi
If EstrazioneFin = EstrazioniArchivio Then
Scrivi " TERMINATORI risortiti al 1° colpo per Tabellone Analitico TT + Naz non aggionabile, estrazioni successive inesistenti in archivio",1
Else
Messaggio " Elaborazione e Scrittura output - terminatori risortiti " & DataEstrazione(EstrazioneFin)
Scrivi " Sunto TERMINATORI risortiti al 1° colpo per aggiornamento Tabellone Analitico TT + Naz",1
Scrivi "Data Risortita N°es Rit ",1,False,6,,1
For Ru = 1 To 12
If Ru = 11 Then Ru = 12
Scrivi "| " & FormatSpace(SiglaRuota(Ru) & " Te ",15,False),1,False,6,,1
Next
Scrivi
Scrivi DataEstrazione(EstrazioneFin + 1,,,"/") & " " & FormatSpace(EstrazioneFin + 1,5,1) & " " & FormatSpace(EstrazioniArchivio - EstrazioneFin,3,1) & " | ",1,False,,,1
For Ru = 1 To 12
AvanzamentoElab 0,11,Ru
If Ru = 11 Then Ru = 12
''''' numeri delle lunghette esitate e posiz di esito
For p = 1 To 5
co = 0
a = Estratto(EstrazioneFin + 1,Ru,p)
For x = 2 To UBound(numLung,2)
If numLung(Ru,x) > 0 And numLung(Ru,x) = a Then
Scrivi FormatSpace(a,2,True),1,False,,,1
co = co + 1
Exit For
End If
Next
If co = 0 Then Scrivi "--",1,False,,,1
If p < 5 Then Scrivi " ",1,False,,,1
If p = 5 Then Scrivi " | ",1,False,,,1
Next
Next
Scrivi
Scrivi "Data Risortita N°es Rit ",1,False,6,,1
For Ru = 1 To 12
If Ru = 11 Then Ru = 12
Scrivi "| " & FormatSpace(SiglaRuota(Ru) & " Te ",15,False),1,False,6,,1
Next
End If
Scrivi
Scrivi " Tempo Trascorso : " & TempoTrascorso,1,,,,1
End Sub


questo script ti fa vedere i numeri terminatori su fondo verde.
Chiedi pure per altre delucidazioni e ti rispondo non appena posso.


saluti a te e a chi legge,
micro
 

micro__

Advanced Member >GOLD<
La ricerca del ritardo dei numeri terminatori su tutte le ruote vede al 1° posto il 48 al quale seguono il 53 e l'81.

Li troviamo su queste ruote:

MI/NAZ---48---

NA/VE---53---

PA--81--


La situazione puo' variare sulla base di una eventuale uscita (v.sopra) o di nuovi ingressi (v.sopra) anche in altre ruote con l'estrazione di questa sera o altre future.

saluti a chi legge
micro
 

micro__

Advanced Member >GOLD<
Al rigo 34, nel confronto dei tabelloni, trovo ben cinque numeri terminatori (condizione ai limiti della statistica pregressa).

E' pensabile che a breve almeno uno dei cinque numeri, sotto descritti, possa uscire:

BARI---50---

MILANO---72---

NAPOLI---39---

TORINO ---25---

VENEZIA---4---


saluti a chi legge
micro
Dopo il 4 di Venezia ecco arrivare il 25 a Torino....

saluti
micro
 

micro__

Advanced Member >GOLD<
Ciao Canelillo e grazie a tutti per i like.

A meno che non hai delle convergenze sui tre numeri rimasti io li lascerei. Questo perchè per tre numeri terminatori isocroni, nel pregresso, possiamo arrivare anche ad oltre 60 colpi di ritardo.

Se avvii, aggiornando, lo script di Claudio8 su Spaziometria, al momento sono interessanti i numeri al rigo 3. So che sono molti (dodici terminatori) ma anche qui qualcosa accadrà in brevissimo tempo. Interessanti i numeri concentrati tra TO/VE/NAZ.

Se leggi sopra, a questo proposito, potrebbe essere proprio il 53 di Venezia a cadere!

Buona giornata a tutti e a chi legge,
micro
 

micro__

Advanced Member >GOLD<
TUTTO INVARIATO....

La ricerca del ritardo dei numeri terminatori su tutte le ruote vede al 1° posto il 48 al quale seguono il 53 e l'81.

Li troviamo su queste ruote:

MI/NAZ---48---

NA/VE---53---

PA--81--


La situazione puo' variare sulla base di una eventuale uscita (v.sopra) o di nuovi ingressi (v.sopra) anche in altre ruote con l'estrazione di questa sera o altre future.

saluti a chi legge
micro
 

Canelillo

Super Member >PLATINUM<
Grazie, per cortesia, visto che sono imbranata con il pc, potresti dirmi quali sono i numeri su To/Ve/Naz? Grazie anticipatamente
 

micro__

Advanced Member >GOLD<
Ciao Canelillo te li scrivo tutti:

BARI--80--86--

CAGLIARI--61--

FIRENZE--68--

NAPOLI--84--

TORINO--29--14--

VENEZIA --57--53--51--

NAZIONALE --12--16--


saluti
micro
 

micro__

Advanced Member >GOLD<
Ciao Canelillo,
potrei consigliarti il 53 di Venezia ma ora ci sono dieci numeri buoni e potremmo aspettare anche qualche colpo. Valuta anche qualche tua convergenza.
Ciao
micro
 

micro__

Advanced Member >GOLD<
Resta tutto invariato dopo l'estrazione dell'11/08/22.


La ricerca del ritardo dei numeri terminatori su tutte le ruote vede al 1° posto il 48 al quale seguono il 53 e l'81.

Li troviamo su queste ruote:

MI/NAZ---48---

NA/VE---53---

PA--81--


La situazione puo' variare sulla base di una eventuale uscita (v.sopra) o di nuovi ingressi (v.sopra) anche in altre ruote con l'estrazione di questa sera o altre future.

saluti a chi legge
micro
 

Canelillo

Super Member >PLATINUM<
Ancora complimenti: 16 nazionale e 57 Venezia, 👏👏👏👏👏. Per martedì giacchiamo gli altri otto numeri rimanenti? Grazie se mi rispondi
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 01 ottobre 2022
    Bari
    67
    36
    58
    68
    33
    Cagliari
    05
    73
    86
    24
    53
    Firenze
    46
    38
    58
    55
    19
    Genova
    67
    79
    27
    39
    70
    Milano
    03
    64
    16
    36
    27
    Napoli
    76
    53
    48
    51
    58
    Palermo
    37
    44
    56
    77
    29
    Roma
    65
    54
    89
    37
    27
    Torino
    35
    31
    24
    53
    06
    Venezia
    31
    05
    82
    37
    45
    Nazionale
    32
    82
    49
    88
    43
    Estrazione Simbolotto
    23
    04
    22
    43
    29

Ultimi Messaggi

Alto