Missione Impossibile.
Banned
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.
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
A volte basta uno script facile per tutti.
- Creatore Discussione Missione Impossibile.
- Data di inizio
Missione Impossibile.
Banned
Codicebinario
Advanced Member >PLATINUM<
E lo chiedi pure? mannaggi a capa toia....E' solo teoria e ricerca,conoscenza,curiosità,.....e verifiche....in altre parole è "cultura"...
Missione Impossibile.
Banned
Allegati
Sakti
Advanced Member
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
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
Advanced Member >PLATINUM<
ECCHIME!!!!....bello ! da collezzione....(salvo contollare esiti) Grazie TOON.
Missione Impossibile.
Banned
Grazie Toon 1-47 in 1^ e 3^ a Bari
Codicebinario
Advanced Member >PLATINUM<
Giretto con Ciruzzo mio e poi divanello con consorte......Ciao a tutti. a Domani.
Missione Impossibile.
Banned
Sakti
Advanced Member
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...
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...
Missione Impossibile.
Banned
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
Advanced Member >PLATINUM<
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
' 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.
Banned
Grazie
Missione Impossibile.
Banned
Maledetti laterali 48-11-49 ma si continua...
Ultima modifica:
Missione Impossibile.
Banned
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!
Ora concentriamoci su quel 1-47 a Bari mancano 7 colpi!
Missione Impossibile.
Banned
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!!!
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 23 novembre 2024Bari3380865225Cagliari6757590580Firenze3132588877Genova4039233681Milano2858452538Napoli2082234457Palermo7656886231Roma1281597472Torino4653724523Venezia0412426420Nazionale6344781055Estrazione Simbolotto
Torino
4342123922
