Novità

A volte basta uno script facile per tutti.

TOON,Batters,convergo da 3 ricerche col 47 x estratto a BA....e comunque rimango ancora convinto che la ruota delle "orecchiette" DEVE sfornare un ambo in decina....questi sono i risultati:

BA 47
BA 47 . 73
BA 47 . 73 . 74
BA 47 . 49 . 76

Per il 21...ho' anche il 4 nei "numeretti" che fa la pariglia nei "numeretti" di BATTERS 1.2 2 x1 , ergo: la mia lunghetta :
1.2.4.21.47.49.74 a BA (per chi ama giocare le lunghette a caccia del colpaccio) tutte giocate a K8 (fino a fine mese)
Ottimo lavoro a riguardo della decina 71-80 a BARI mettero' a breve la quartina o la cinquina ristretta come base piu' alta di %,ora mi consulto con Mago Merlino. ;)
 

Allegati

  • Mago Merlino.PNG
    Mago Merlino.PNG
    243,3 KB · Visite: 28
BARI
Dal n° spy 74 uscito 4 volte tra tutte le spy della decina 71-80 uscite in 18 estrazioni e consultando Merlino.
Abbiamo deciso che dopo il 74 da le % piu' queste due ristrette a BARI.
 

Allegati

  • Spy 74 a Bari Missione Impossibile.PNG
    Spy 74 a Bari Missione Impossibile.PNG
    2,8 KB · Visite: 30
Codice,Missione, Vi può interessare uno script sui ritardi di posizione di un numero, molto ben fatto, di Mike58?
 
Ecchive...
Sub Main()
Dim num(10),numero(10),ruota(1),sorte

est = InputBox("Quante estrazioni analizzi",,10293)
sorte = CInt(InputBox("Quale sorte verificare ",,1))

ScegliNumeri(num)
nStart = Timer ' partenza tempo di elaborazione
Ini = EstrazioneFin - est
fin = EstrazioneFin
diff = fin - Ini + 1
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3
Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3
Scrivi String(130,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(130,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(15)
atitoli(1) = " Ruota "
'atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito - "
atitoli(14) = " data estraz.uscita "
atitoli(15) = " Indice Convenienza "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
ic = Round((freq/diff*rit),2)
'----- calcolo valori in tabella --------------
ReDim avalori(15)
avalori(1) = NomeRuota(r)
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
If retesito = "" Then avalori(14) = " -- "
avalori(15) = ic
Call AddRigaTabella(avalori,,,3,,"cambria")
If r = 11 Then Call SetColoreCella(11,3,1)
If retidestr = fin Then Call SetColoreCella(14,3,1)
If ic > 1 Then Call SetColoreCella(15,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
 
  • Like
Reazioni: KEN
Ecchive...
Sub Main()
Dim num(10),numero(10),ruota(1),sorte

est = InputBox("Quante estrazioni analizzi",,10293)
sorte = CInt(InputBox("Quale sorte verificare ",,1))

ScegliNumeri(num)
nStart = Timer ' partenza tempo di elaborazione
Ini = EstrazioneFin - est
fin = EstrazioneFin
diff = fin - Ini + 1
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3
Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3
Scrivi String(130,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(130,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(15)
atitoli(1) = " Ruota "
'atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito - "
atitoli(14) = " data estraz.uscita "
atitoli(15) = " Indice Convenienza "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
ic = Round((freq/diff*rit),2)
'----- calcolo valori in tabella --------------
ReDim avalori(15)
avalori(1) = NomeRuota(r)
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
If retesito = "" Then avalori(14) = " -- "
avalori(15) = ic
Call AddRigaTabella(avalori,,,3,,"cambria")
If r = 11 Then Call SetColoreCella(11,3,1)
If retidestr = fin Then Call SetColoreCella(14,3,1)
If ic > 1 Then Call SetColoreCella(15,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
ECCHIME!!!!....bello ! da collezzione....(salvo contollare esiti) Grazie TOON.
 
Ecchive...
Sub Main()
Dim num(10),numero(10),ruota(1),sorte

est = InputBox("Quante estrazioni analizzi",,10293)
sorte = CInt(InputBox("Quale sorte verificare ",,1))

ScegliNumeri(num)
nStart = Timer ' partenza tempo di elaborazione
Ini = EstrazioneFin - est
fin = EstrazioneFin
diff = fin - Ini + 1
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3
Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3
Scrivi String(130,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(130,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(15)
atitoli(1) = " Ruota "
'atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito - "
atitoli(14) = " data estraz.uscita "
atitoli(15) = " Indice Convenienza "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
ic = Round((freq/diff*rit),2)
'----- calcolo valori in tabella --------------
ReDim avalori(15)
avalori(1) = NomeRuota(r)
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
If retesito = "" Then avalori(14) = " -- "
avalori(15) = ic
Call AddRigaTabella(avalori,,,3,,"cambria")
If r = 11 Then Call SetColoreCella(11,3,1)
If retidestr = fin Then Call SetColoreCella(14,3,1)
If ic > 1 Then Call SetColoreCella(15,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Grazie Toon 1-47 in 1^ e 3^ a Bari
 
Si illumina in giallo sempre il valore piu' alto tra i presenti , ma se c'è un valore che indica che è prossimo in uscita tipo 2,5 ? O ??
Oppure quel valore non ha nessuna importanza dato che il numero che metto in gioco non corrisponde alla ruota prevista .
 
Ti indica , in teoria, la percentuale di probabilità del o dei numeri da Te scelti, sulla ruota più probabile.
Ricorda però che di certo non c'è nulla, io i metodi di gioco li testo per almeno 3/4 mesi prima di mettere in gioco le previsioni, naturalmente testandoli indietro nel tempo... ;)
(y)
 
REGALO X TOON,Batters.......spero sia utile,ritrovato nei miei innumerevoli script accumulati....ringrazio Cinzia 28,e' opera sua...lo script si occupa di calcolare i ritardi a colpo sia di estratti che determinati...e' guidato...occhio alla scelta delle ricerche in estrazioni.....questo e' questione di libero arbitrio....

' storici Estratto semplice ed Estratto determinato a colpo (Cinzia28)
Sub Main()
q=80:q1=70:q2=60:q3=50:q4=40' togli apice se si tratta di estratti semplici e metti apice all' inizio della riga sottostante
'q=700:q1=600:q2=500:q3=400:q4=300' togli apice se si tratta di estratti determinati e metti apice all' inizio della riga sopra
For p=1 To 5
mx=0:co=-1:casi=0
cc=0:cc1=0:cc2=0:cc3=0:cc4=0

For r=1 To 10
mx=0:co=-1:casi=0
cc=0:cc1=0:cc2=0:cc3=0:cc4=0

For es=9500 To EstrazioneFin

a=Estratto(es-1,r,p)
If a>0 Then
c=c+1
If Posizione(es,r,a)>0 Then 'estratto semplice
'If Posizione(es,r,a)=p Then'estratto determinato
co=co+1
If co>0 Then
Messaggio es
casi=casi+1
Scrivi FormatSpace(casi,4,1)&") pos. "&FormatSpace(p,4,1)&" "&FormatSpace(es-1,4,1)&" "&FormatSpace(es,4,1)&" "&SiglaRuota(r)&" "&Format2(a)&" "&FormatSpace(c,4,1)'Togli apice per vedere casi
If c>mx Then mx=c
If c >q Then cc=cc+1
If c >q1 Then cc1=cc1+1
If c >q2 Then cc2=cc2+1
If c >q3 Then cc3=cc3+1
If c >q4 Then cc4=cc4+1
c=0
End If
End If
End If
Next
Scrivi
Scrivi "Casi "&casi
Scrivi "Il max ritardo dell' uscita dello stesso numero in posizione "&p&" su "& SiglaRuota(r) & " è stato " &mx,1
Scrivi "Storici > "&q&"="&cc
Scrivi "Storici > "&q1&"="&cc1
Scrivi "Storici > "&q2&"="&cc2
Scrivi "Storici > "&q3&"="&cc3
Scrivi "Storici > "&q4&"="&cc4
Scrivi String(60,"-")

Next
Next

End Sub
 
REGALO X TOON,Batters.......spero sia utile,ritrovato nei miei innumerevoli script accumulati....ringrazio Cinzia 28,e' opera sua...lo script si occupa di calcolare i ritardi a colpo sia di estratti che determinati...e' guidato...occhio alla scelta delle ricerche in estrazioni.....questo e' questione di libero arbitrio....

' storici Estratto semplice ed Estratto determinato a colpo (Cinzia28)
Sub Main()
q=80:q1=70:q2=60:q3=50:q4=40' togli apice se si tratta di estratti semplici e metti apice all' inizio della riga sottostante
'q=700:q1=600:q2=500:q3=400:q4=300' togli apice se si tratta di estratti determinati e metti apice all' inizio della riga sopra
For p=1 To 5
mx=0:co=-1:casi=0
cc=0:cc1=0:cc2=0:cc3=0:cc4=0

For r=1 To 10
mx=0:co=-1:casi=0
cc=0:cc1=0:cc2=0:cc3=0:cc4=0

For es=9500 To EstrazioneFin

a=Estratto(es-1,r,p)
If a>0 Then
c=c+1
If Posizione(es,r,a)>0 Then 'estratto semplice
'If Posizione(es,r,a)=p Then'estratto determinato
co=co+1
If co>0 Then
Messaggio es
casi=casi+1
Scrivi FormatSpace(casi,4,1)&") pos. "&FormatSpace(p,4,1)&" "&FormatSpace(es-1,4,1)&" "&FormatSpace(es,4,1)&" "&SiglaRuota(r)&" "&Format2(a)&" "&FormatSpace(c,4,1)'Togli apice per vedere casi
If c>mx Then mx=c
If c >q Then cc=cc+1
If c >q1 Then cc1=cc1+1
If c >q2 Then cc2=cc2+1
If c >q3 Then cc3=cc3+1
If c >q4 Then cc4=cc4+1
c=0
End If
End If
End If
Next
Scrivi
Scrivi "Casi "&casi
Scrivi "Il max ritardo dell' uscita dello stesso numero in posizione "&p&" su "& SiglaRuota(r) & " è stato " &mx,1
Scrivi "Storici > "&q&"="&cc
Scrivi "Storici > "&q1&"="&cc1
Scrivi "Storici > "&q2&"="&cc2
Scrivi "Storici > "&q3&"="&cc3
Scrivi "Storici > "&q4&"="&cc4
Scrivi String(60,"-")

Next
Next

End Sub
Grazie
 
Da Futuro vi faccio un esempio reale a BARI, Probabilita' : al 100% che non sono ancora usciti sono solo x il 2x1 e ambo secco:
Se osservate bene il n° 1 ha 3 conferme e il n° 47 ne ha 4 di conferme.
La base 2x1 e' 1-47 a giro con 10-29-30-49 oppure la lunghetta per sorti 1-47-10-29-30-49 superiori x 9 colpi!!!

Con moderazione!!!
Vedi l'allegato 2280314
Maledetti laterali 48-11-49 ma si continua...
 
Ultima modifica:
Da fonti riservate le Venus hanno assunto programmatori matematici che cambiano algoritmo ad ogni estrazioni.Fidati, se vinci e' solo un caso.!!!
Ora bisogna cambiare strategia,anche le 15cine non funzionano piu'.Le ruote Nord,sud,e centro,le cambiano a loro piacere.E tu non sai piu' che statistica fare. Ho detto una stronzata ? NO!!!
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 03 aprile 2025
    Bari
    71
    57
    74
    66
    81
    Cagliari
    08
    71
    63
    28
    13
    Firenze
    02
    77
    51
    48
    40
    Genova
    20
    73
    85
    80
    83
    Milano
    13
    69
    82
    14
    43
    Napoli
    89
    22
    84
    57
    80
    Palermo
    88
    17
    29
    43
    68
    Roma
    20
    10
    67
    41
    39
    Torino
    59
    43
    71
    34
    78
    Venezia
    57
    35
    28
    39
    29
    Nazionale
    52
    72
    73
    26
    77
    Estrazione Simbolotto
    Genova
    25
    07
    38
    14
    18
Indietro
Alto