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
    sabato 05 aprile 2025
    Bari
    10
    58
    03
    61
    14
    Cagliari
    04
    67
    36
    85
    87
    Firenze
    70
    45
    80
    62
    06
    Genova
    05
    66
    32
    59
    89
    Milano
    20
    56
    02
    87
    47
    Napoli
    60
    63
    75
    72
    06
    Palermo
    14
    80
    30
    76
    70
    Roma
    73
    42
    36
    79
    08
    Torino
    26
    74
    83
    78
    31
    Venezia
    06
    60
    85
    76
    40
    Nazionale
    44
    11
    71
    06
    37
    Estrazione Simbolotto
    Genova
    26
    14
    36
    31
    44

Ultimi Messaggi

Indietro
Alto