A volte basta uno script facile per tutti.

[Missione Impossibile.]

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.

 

[Missione Impossibile.]

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.

 

[toon]

Codice,Missione, Vi può interessare uno script sui ritardi di posizione di un numero, molto ben fatto, di Mike58?

 

[Codicebinario]

Codice,Missione, Vi può interessare uno script sui ritardi di posizione di un numero, molto ben fatto, di Mike58?

E lo chiedi pure? mannaggi a capa toia....E' solo teoria e ricerca,conoscenza,curiosità,.....e verifiche....in altre parole è "cultura"...

 

[Missione Impossibile.]

Codice,Missione, Vi può interessare uno script sui ritardi di posizione di un numero, molto ben fatto, di Mike58?

 

[toon]

Ecchive...

Anticipazione (Spoiler)

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

 

[Codicebinario]

Ecchive...

Anticipazione (Spoiler)

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.

 

[Missione Impossibile.]

Ecchive...

Anticipazione (Spoiler)

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

 

[Codicebinario]

Giretto con Ciruzzo mio e poi divanello con consorte......Ciao a tutti. a Domani.

 

[KEN]

Grazie Toon mi sai dire da quale valore di indice convenienza è meglio giocare

 

[Missione Impossibile.]

Grazie Toon mi sai dire da quale valore di indice convenienza è meglio giocare

Quelle evidenziate in giallo esempio Bari i/c 1,21 se scegli 1 - 47

 

[KEN]

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 .

 

[toon]

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...

 

[sorujoe]

Ottimo lavoro

 

[Missione Impossibile.]

Sto' progettando Futuro 4,per ambi e terni,ora si passa ad un progetto ancora più potente,ma richiede un po' di tempo . Spero che Mike lo rivediamo presto.

 

[Codicebinario]

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

 

[Missione Impossibile.]

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

 

[Missione Impossibile.]

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...

 

[Missione Impossibile.]

E stasera dal metodo mensile esce ancora il 12 a Venesia Ed il 21 a Napoli,per me molto soddisfatto,il metodo funziona.Caso chiuso.
Ora concentriamoci su quel 1-47 a Bari mancano 7 colpi!

 

[Missione Impossibile.]

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!!!