3 ambate

[Lottopython]

Ciao, Lottopython Il tuo programma conferma 6.44 su CA?

ciao Cinzia ,mi segnala Firenze,cio non toglie che potrebbe sortire nuovamente a Cagliari

 

[Cinzia27]

Dopo FI segnala FI?

 

[Cinzia27]

Sfiorato l'ambo 6.44 su tutte.

 

[Cinzia27]

Grazie, Ascia.

Aggiungo un altro al trio rimasto
In ordine ipotetico di uscita

Ba 84
Fi 86
Nz 63

Ca 44
Pa 47
Ro 62

2° colpo chiuso il 2° trio con l'uscita del 44 a CA

 

[Cinzia27]

 

[Lottopython]

sempre sul pezzo complimenti.

 

[Cinzia27]

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]

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

 

[Cinzia27]

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.

 

[Cinzia27]

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

 

[Acquafresca]

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

 

[Cinzia27]

Grazie, Acquafresca.
Ottimo script del bravissimo Mike58.
Pare che VE sia favorita, vediamo se Lottopython ha qualche conferma o ruota alternativa.

 

[Acquafresca]

Grazie, Acquafresca.
Ottimo script del bravissimo Mike58.
Pare che VE sia favorita, vediamo se Lottopython ha qualche conferma o ruota alternativa.

Di nulla Cinzia27, nel mio piccolo e se è possibile cerco di essere utile a dare una mano, penso che Lottopython saprà fare ulteriore aggiunta