Lottopython
Advanced Member >PLATINUM<
ciao Cinzia ,mi segnala Firenze,cio non toglie che potrebbe sortire nuovamente a Cagliari
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.
3 ambate
- Creatore Discussione Cinzia27
- Data di inizio
2° colpo chiuso il 2° trio con l'uscita del 44 a CA
Lottopython
Advanced Member >PLATINUM<
sempre sul pezzo complimenti.
Grazie a tutti.
Lottopython, dato che sei bravo a fare programmini
con Python, potresti farmene uno che da un serie di numeri da me scelti ricavi formazioni di lunghezza impostabile con massimi storici più bassi per la sorte impostabile di ambo o terno ?
Se puoi, altrimenti nessun problema.
Lottopython, dato che sei bravo a fare programmini
con Python, potresti farmene uno che da un serie di numeri da me scelti ricavi formazioni di lunghezza impostabile con massimi storici più bassi per la sorte impostabile di ambo o terno ?
Se puoi, altrimenti nessun problema.
Lottopython
Advanced Member >PLATINUM<
ciao cinzia , ho la coppia 48-79 ripetuto in uscita su diverse ruote..ti risulta? in merito al programma ,puoi essere piu precisa con qualche esempio ? .
Ciao, lottopython.
Il 48.79 è uno degli ambi che si è ripetuto spesso, non mi stupirebbe che fosse il suo turno.
A parte questa considerazione, non ho elementi statistici che sia prossimo, ma ora che ho questa tua indicazione, di cui ti ringrazio, me
lo gioco a parte su tutte e Nz, su tutte con una leggera progressione.
Ti preparo l'esempio.
Il 48.79 è uno degli ambi che si è ripetuto spesso, non mi stupirebbe che fosse il suo turno.
A parte questa considerazione, non ho elementi statistici che sia prossimo, ma ora che ho questa tua indicazione, di cui ti ringrazio, me
lo gioco a parte su tutte e Nz, su tutte con una leggera progressione.
Ti preparo l'esempio.
Ultima modifica:
Esempio
Da questi numeri
aa = Array(0,01,12,18,23,30,45,53,60,75,83,86)
Cerco la quartina con mx st più basso per ambo su MI
Imposto un mx st <160
1)MI 1.12.23.86 st 155 at 88
2)MI 12.23.45.86 st 155 at 88
3)MI 18.23.30.86 st 154 at 29
4)MI 23.30.53.86 st 154 at 88
5)MI 23.30.60.86 st 153 at 88
6)MI 23.30.75.86 st 159 at 88
7)MI 23.60.83.86 st 155 at 88
Da questi numeri
aa = Array(0,01,12,18,23,30,45,53,60,75,83,86)
Cerco la quartina con mx st più basso per ambo su MI
Imposto un mx st <160
1)MI 1.12.23.86 st 155 at 88
2)MI 12.23.45.86 st 155 at 88
3)MI 18.23.30.86 st 154 at 29
4)MI 23.30.53.86 st 154 at 88
5)MI 23.30.60.86 st 153 at 88
6)MI 23.30.75.86 st 159 at 88
7)MI 23.60.83.86 st 155 at 88
Acquafresca
Super Member >PLATINUM<
Per Cinzia27 e Lottopython ,scusatemi se mi intrometto ,ho ripescato uno scriptbyMike58 dove ho esaminato il 48-79 ed esce con questi risultati se possono aiutarvi nella vostra ricerca, ho lo script se ne avreste bisogno di valutarlo. All'avvio ,si può scegliere (ambata /ambo ,etc. )e scegliere i numeri a piacimento non so se avete già avuto modo di testarlo. L'ho allego comunque magari lo provate già :
Sub Main
Dim num(10),numero(10),ruota(1),sorte
est = InputBox("Quante estrazioni analizzi",,10847)
sorte = CInt(InputBox("Quale sorte verificare ",,2))
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
Sub Main
Dim num(10),numero(10),ruota(1),sorte
est = InputBox("Quante estrazioni analizzi",,10847)
sorte = CInt(InputBox("Quale sorte verificare ",,2))
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
Allegati
Ultima modifica:
Acquafresca
Super Member >PLATINUM<
Di nulla Cinzia27, nel mio piccolo e se è possibile cerco di essere utile a dare una mano, penso che Lottopython saprà fare ulteriore aggiunta, comunque mia opinione io li vedrei più su Napoli o Tutte ,su Venezia ha parecchio ritardo potrebbe portarselo anche avanti per parecchio tempo
Ultima modifica:
Ciao Cinzia27 le prime tre ambate le portiamo avanti? O se riesci puoi aggiornare grazie
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 16 maggio 2026Bari8457092260Cagliari5258805776Firenze5015635860Genova0830617555Milano8268291610Napoli8646153365Palermo4629737437Roma3015028752Torino1562825267Venezia5885403548Nazionale1651567117Estrazione Simbolotto
Milano
1807273212
