Novità

Gli Ambi Frequenti

  • Creatore Discussione Creatore Discussione parmando
  • Data di inizio Data di inizio
P

parmando

Guest
Ciao ragazzi, se è possibile avrei bisogno di convertire in script questa mia idea di ricerca ambi frequenti.

Selezionare il range di estrazioni per la ricerca

Quante Ruote fare la ricerca (min.1 max 11)

Selezionare le Ruote che mi interessano per la ricerca (es: se immetto:4....poi poter inserire GE/MI/TO/VE)

La data in cui gli ambi sono usciti (con la possibilità che gli ambi siano diversi nella ricerca o che nè sia solo 1 o nessuno)

Grazie mille fin d'ora a chi si interesserà.

Ciao
 
Ultima modifica:
parmando ha scritto:
Ciao ragazzi, se è possibile avrei bisogno di convertire in script questa mia idea di ricerca ambi frequenti.

Selezionare il range di estrazioni per la ricerca

Quante Ruote fare la ricerca (min.1 max 11)

Selezionare le Ruote che mi interessano per la ricerca (es: se immetto:4....poi poter inserire GE/MI/TO/VE)

La data in cui gli ambi sono usciti (con la possibilità che gli ambi siano diversi nella ricerca o che nè sia solo 1 o nessuno)

Grazie mille fin d'ora a chi si interesserà.

Ciao
Clicca per espandere...



ciao,scusa ma hai inviato un' e mail a LugiB per questo problema ?
 
Grazie Mike per l'interessamento alla mia idea....no Alien(niente cose private).

Ciao
 
Buon giorno Parmando ,mi permetto di suggerire se questa richiesta la puoi fare direttamente al Sig.Disaronno -.
Che ne pensi?
Saluti
Serpico
 
Mi auguro che legga la discussione e che possa dirci se è fattibile.

Grazie dell'interessamento.
 
UP

Porto in sù la discussione se qualcuno riesce a creare lo script...
 
E va be !!!
visto che sono di passaggio e che pochi come avevo detto potevano fare questo script, in un attimo di tenerezza eccoti lo script.

P.s. vi dovreste chiedere tutti perché avete fatto passare la voglia a tanti scripter di mettere a disposizione il proprio tempo e le loro energie.

Io la risposta la conosco " Non siete mai contenti ".

Codice: 
Sub Main
	Dim k,kk
	ReDim aValori(4005,1)
	Dim n1,n2,nu(2)
	Dim Rit,RitMax,Freq
	Dim RuoteSelezionate
	est = InputBox("QUANTE ESTRAZIONI ANALIZZO",,500)
	righe = CInt(InputBox("QUANTE RIGHE VISUALIZZO",,100))
	Ini = EstrazioneFin - est
	fin = EstrazioneFin
	Tot = fin - Ini
	Scrivi" *** Ambi più Frequenti su Ruote Selezionate *** " & " ***** Script by Mike58 ******",1,1,3,0,4
	ReDim ruota(12)
	RuoteSelezionate = ScegliRuote(ruota)
	For kk = 1 To RuoteSelezionate
		Scrivi "Ruote selezionate : ",1,0
		Scrivi NomeRuota(ruota(kk)) & " ",1,0,,2,3
		Scrivi
	Next
	Call Scrivi("Range da " & GetInfoEstrazione(Ini) & " fino a " & GetInfoEstrazione(Fin),1,1)
	Scrivi "Totali estrazioni esaminate... " & Tot,1,1,,1,3
	Scrivi
	ReDim T(13)
	T(1) = " Ambo "
	T(2) = " Freq "
	T(3) = " Rit Att "
	T(4) = " Rit.STo "
	T(5) = " Ultimo esito  "
	T(6) = " data  "
	T(7) = " Incr Max "
	T(8) = " Rp1 "
	T(9) = " Rp2 "
	T(10) = " Rp3 "
	T(11) = " Rp4 "
	T(12) = " Rp5 "
	T(13) = " Media Rit "
	Call InitTabella(T,2,,2,5,"arial black")
	Call Messaggio("Statistica ambi")
	For n1 = 1 To 89
		For n2 = n1 + 1 To 90
			k = k + 1
			nu(1) = n1
			nu(2) = n2
			Call StatisticaFormazioneTurbo(nu,ruota,2,Rit,RitMax,Incr,Freq,Ini,Fin)
			Call VerificaEsitoTurbo(nu,ruota,Fin - Rit,2,,,esito,colpi,estratti,Id)
			'------- calcolo ritardi precedenti------------
			ReDim rp(6)
			InizioR = EstrazioneFin - 500
			fineR = EstrazioneFin
			somrit = 0
			For z = 1 To 6
				rp(z) = SerieRitardoTurbo(InizioR,fineR,nu,ruota,2)
				fineR = fineR -(rp(z) + 1)
				somrit = somrit + rp(z)
				Medrit = Int(somrit/z)
			Next
			' fine calcolo----------------------------------
			ReDim V(13)
			V(1) = n1 & "." & n2
			V(2) = Freq
			V(3) = Rit
			V(4) = RitMax
			V(5) = estratti
			V(6) = DataEstrazione(id) & "   -  [ " & id & " ] "
			V(7) = Incr
			V(8) = rp(2)
			V(9) = rp(3)
			V(10) = rp(4)
			V(11) = rp(5)
			V(12) = rp(6)
			V(13) = Medrit
			Call AddRigaTabella(V,,,2,,"arial black")
			If Incr > 0 Then Call SetColoreCella(1,3,1)
			If ScriptInterrotto Then Exit For
		Next
		If ScriptInterrotto Then Exit For
		Call AvanzamentoElab(1,89,n1)
	Next
	Call CreaTabella(2,,,righe)
End Sub
 
Grazie Mike per lo script che attua proprio la mia idea base di ricerca ambi su ruote prestabilite (mi spiace per la tua puntualizzazione che non fà una grinza s'intende, sai però anche tu che il giocatore del lotto ha molte idee e gli script che ci create sono di aiuto).

Ti volevo chiedere una cosa sulla ricerca nell'archivio di spaziometria di questi ambi:

es: l'ambo 33-54 MI/GE/TO/VE ha il "quinto" ritardo a 369 (dovrebbe essere 385) analizzando l'archivio vedo che la 369 estrazione a ritroso cade il 27 dic 2010 LUNEDi'...non è che quando è fuori dai canonici MARTEDI'/GIOVEDI'/SABATO và poi a sfalsare tutto?

18.11.2010 Ge 99.....43.....62.33.54.90.82
07.05.2013 To 385... 44.....33.18.71.56.54
30.05.2013 To 9.......45.....33.56.72.69.54
28.12.2013 Ge 90.....46.....54.15.73.33.71
28.12.2013 Ve 90.....47.....33.22.54.11.38
04.02.2014 To 15.....48.....33.82.56.54.84
20.02.2014 Ve 6.......49.....34.54.78.33.49



Fammi sapere se non debba intervenire anche Luigi con qualche modifica.

Ciao e grazie mille per il tempo, lavoro e tutto il resto dedicato.
 
Ultima modifica:
Ciao Parmando

grazie a te per l'idea e mike55 x lo script
volevo chiederti ma questo ambo 33-54 ,facendo girare lo script e selezionando tutte le ruote da ba a ve ,nella lista non mi appare.
dove lo trovo?

era giusto x vedere se andava bene.
Una cosa piu' importante volevo chiederti: come sfrutti questo script? puoi farmi qualche esempio di previsione?
grazie
 
Se vedi è su GE/MI/TO/VE, guarda la media dei ritardi e il ritardo attuale da lì analizza le varie uscite anche più a ritroso e abbinale con le recenti per vedere la potenzialità d'uscita anche a tutte per recupero spese.
 
Ti volevo chiedere una cosa sulla ricerca nell'archivio di spaziometria di questi ambi:

es: l'ambo 33-54 MI/GE/TO/VE ha il "quinto" ritardo a 369 (dovrebbe essere 385) analizzando l'archivio vedo che la 369 estrazione a ritroso cade il 27 dic 2010 LUNEDi'...non è che quando è fuori dai canonici MARTEDI'/GIOVEDI'/SABATO và poi a sfalsare tutto?

18.11.2010 Ge 99.....43.....62.33.54.90.82
07.05.2013 To 385... 44.....33.18.71.56.54
30.05.2013 To 9.......45.....33.56.72.69.54
28.12.2013 Ge 90.....46.....54.15.73.33.71
28.12.2013 Ve 90.....47.....33.22.54.11.38
04.02.2014 To 15.....48.....33.82.56.54.84
20.02.2014 Ve 6.......49.....34.54.78.33.49



Fammi sapere se non debba intervenire anche Luigi con qualche modifica.
Clicca per espandere...

Ciao Parmando, non penso ci sia questo problema, nell'archivio viene messa la data e la consecutività delle estrazioni e all'archivio interessa poco se è lunedì o martedì ci si può risalire a d essi solo attraverso la data.
Però di preciso non lo so.

Per il tuo quesito ed esempio dell'ambo non ho ben capito e poi mi mancano i parametri di range usato per risalire ai tuoi dati estrapolati .

Aggiungo leggendovi che se avete un qualche dato algoritmico matematico per poter estrapolare gii ambi + papabili sarei anche disposto nonché felice di aiutarvi, purchè il dato algoritmico sia chiaro e fattibile.

P.s. la puntualizzazione deve essere chiaro che non è rivolta a nessuno in particolare ma è , e rimane solo un disappunto quanto vedo che un progetto iniziale si ferma senza approfondimenti e senza l'aiuto stesso di chi lo ha chiesto.

Ciao un saluto anche a tutti voi.
 
Mike58 ha scritto:
Per il tuo quesito ed esempio dell'ambo non ho ben capito e poi mi mancano i parametri di range usato per risalire ai tuoi dati estrapolati .
Clicca per espandere...

Metti: 100 / 100 / GE/MI/TO/VE

scorri gli ambi fin che trovi il 33-54 e troverai i cinque ritardi: 6-15-90-9-(369)<----dovrebbe essere 385, ho visto gli archivi sia di spaziometria che di un'altro software e coincidono, mi è venuto il dubbio perchè si blocca all'estrazione del 27/12/2010 che è di lunedì (devo vedere anche altri ambi per vedere se è quello il "problema").



Ho già risposto in merito ad Alex per una prima visone statistica delle ripetizioni, poi è un'idea e và analizzata con cura partendo dalla giocata a TT e se sarà possibile restringerla a ruota non avrò problemi ad immettere qualcosa di buono (vedi la spia 57 a Milano).

Ciao e grazie sempre.
 
Metti: 100 / 100 / GE/MI/TO/VE

scorri gli ambi fin che trovi il 33-54 e troverai i cinque ritardi: 6-15-90-9-(369)<----dovrebbe essere 385, ho visto gli archivi sia di spaziometria che di un'altro software e coincidono, mi è venuto il dubbio perchè si blocca all'estrazione del 27/12/2010 che è di lunedì (devo vedere anche altri ambi per vedere se è quello il "problema").
Clicca per espandere...

Ciao Parmando, sei andato a cercare il pelo e comunque hai ragione, l'errore stava nel fatto che cerchiamo anche 5 ritardi precedenti e questi possono andare oltre il limite di range impostato per la frequenza di range iniziale.
Quindi ho impostato un range iniziale di estrazioneIni che parte dall'inizio archivio per i ritardi precedenti ed adesso il tuo dato risponde alle aspettative.

Per il resto tu prova a proporre e poi vedo dove si può arrivare e se è fattibile.

Ciao e riposto lo script.

Codice: 
Sub Main
	Dim k,kk
	ReDim aValori(4005,1)
	Dim n1,n2,nu(2)
	Dim Rit,RitMax,Freq
	Dim RuoteSelezionate
	est = InputBox("QUANTE ESTRAZIONI ANALIZZO",,100)
	righe = CInt(InputBox("QUANTE RIGHE VISUALIZZO",,100))
	Ini = EstrazioneFin - est
	fin = EstrazioneFin
	Tot = fin - Ini
	Scrivi" *** Ambi più Frequenti su Ruote Selezionate *** " & " ***** Script by Mike58 ******",1,1,3,0,4
	ReDim ruota(12)
	RuoteSelezionate = ScegliRuote(ruota)
	For kk = 1 To RuoteSelezionate
		Scrivi "Ruote selezionate : ",1,0
		Scrivi NomeRuota(ruota(kk)) & " ",1,0,,2,3
		Scrivi
	Next
	Call Scrivi("Range da " & GetInfoEstrazione(Ini) & " fino a " & GetInfoEstrazione(Fin),1,1)
	Scrivi "Totali estrazioni esaminate... " & Tot,1,1,,1,3
	Scrivi
	ReDim T(13)
	T(1) = " Ambo "
	T(2) = " Freq "
	T(3) = " Rit Att "
	T(4) = " Rit.STo "
	T(5) = " Ultimo esito  "
	T(6) = " data  "
	T(7) = " Incr Max "
	T(8) = " Rp1 "
	T(9) = " Rp2 "
	T(10) = " Rp3 "
	T(11) = " Rp4 "
	T(12) = " Rp5 "
	T(13) = " Media Rit "
	Call InitTabella(T,2,,2,5,"arial black")
	Call Messaggio("Statistica ambi")
	For n1 = 1 To 89
		For n2 = n1 + 1 To 90
			k = k + 1
			nu(1) = n1
			nu(2) = n2
			Call StatisticaFormazioneTurbo(nu,ruota,2,Rit,RitMax,Incr,Freq,Ini,Fin)
			Call VerificaEsitoTurbo(nu,ruota,Fin - Rit,2,,,esito,colpi,estratti,Id)
			'------- calcolo ritardi precedenti------------
			ReDim rp(6)
			InizioR = EstrazioneIni
			fineR = EstrazioneFin
			somrit = 0
			For z = 1 To 6
				rp(z) = SerieRitardoTurbo(InizioR,fineR,nu,ruota,2)
				fineR = fineR -(rp(z) + 1)
				somrit = somrit + rp(z)
				Medrit = Int(somrit/z)
			Next
			' fine calcolo----------------------------------
			ReDim V(13)
			V(1) = n1 & "." & n2
			V(2) = Freq
			V(3) = Rit
			V(4) = RitMax
			V(5) = estratti
			V(6) = DataEstrazione(id) & "   -  [ " & id & " ] "
			V(7) = Incr
			V(8) = rp(2)
			V(9) = rp(3)
			V(10) = rp(4)
			V(11) = rp(5)
			V(12) = rp(6)
			V(13) = Medrit
			Call AddRigaTabella(V,,,2,,"arial black")
			If Incr > 0 Then Call SetColoreCella(1,3,1)
			If Rit = 0 Then Call SetColoreCella(6,4,2)
			'If Rit = 0 And Freq > 6 Then kkk = kkk + 1
			If n1 = 33 And n2 = 54 Then Call SetColoreCella(1,2,4)
			If n1 = 33 And n2 = 54 Then Call SetColoreCella(12,2,4)

			If ScriptInterrotto Then Exit For
		Next
		If ScriptInterrotto Then Exit For
		Call AvanzamentoElab(1,89,n1)
	Next
	Call CreaTabella(2,,,righe)
	Scrivi
	'Scrivi "Ambi usciti ultima estrazione : " & kkk,1
End Sub
 
Mike, ambo 15-20 GE/MI/TO/VE

Ultimi cinque ritardi:

6-21-41-12-9 (picco massimo a 41)

Precedenti ritardi:

96-121-398-48-49-204 (picco minimo 48)

ATTUALE RITARDO 33, sicuramente ha esaurito i due trend ma per scrupolo questo è un AMBO giocabile per 14 colpi sulle ruote di ricerca.

Questo è il primo che ho selezionato.
 
Ultima modifica:
Mike, ambo 9-15 GE/MI/TO/VE

Ultimi sei ritardi:

133-48-40-14-1-10 (picco massimo a 133)

Precedenti ritardi:

13-22-75-127-185-154-64 (picco minimo 13)

ATTUALE RITARDO 43, ha esaurito un trend e stà salendo verso il rit.133, questo per me è un ambo appetibile nei prossimi 69 colpi giocabile per il prossimo colpo (sarebbe un uscita mediana a 44 che si frappone tra il 40/48 appena avvenute), o attendere il superamento di (64 fino al 75 che erano gli altri due range di gioco).

Come vedi ritorna in gioco il 15 che sembra il numero più appetibile di queste ruote in questo momento.

Sicuramente non è comprensibile facilmente il mio ragionamento, punto di partenza è la frequenza poi si guarda il resto.

Ciao
 
ciao Parmando, è proprio quello che volevo vedere un ritorno di un lavoro o progetto, discutibile o meno.
ma comunque è sempre un ritorno di una idea.

Io Mi sono fermato al primo esempio ma con gli if then si potrebbe mettere una istruzione univova per estrapolare l'ambo migliore.

Per Ora vedi come puoi ricavarne gli ambi migliori.

Ciao e buon studio.

Codice: 
Sub Main
	Dim k,kk
	ReDim aValori(4005,1)
	Dim n1,n2,nu(2)
	Dim Rit,RitMax,Freq
	Dim RuoteSelezionate
	est = InputBox("QUANTE ESTRAZIONI ANALIZZO",,100)
	righe = CInt(InputBox("QUANTE RIGHE VISUALIZZO",,100))
	Ini = EstrazioneFin - est
	fin = EstrazioneFin
	Tot = fin - Ini
	Scrivi" *** Ambi più Frequenti su Ruote Selezionate *** " & " ***** Script by Mike58 ******",1,1,3,0,4
	ReDim ruota(12)
	RuoteSelezionate = ScegliRuote(ruota)
	For kk = 1 To RuoteSelezionate
		Scrivi "Ruote selezionate : ",1,0
		Scrivi NomeRuota(ruota(kk)) & " ",1,0,,2,3
		Scrivi
	Next
	Call Scrivi("Range da " & GetInfoEstrazione(Ini) & " fino a " & GetInfoEstrazione(Fin),1,1)
	Scrivi "Totali estrazioni esaminate... " & Tot,1,1,,1,3
	Scrivi
	ReDim T(23)
	T(1) = " Ambo "
	T(2) = " Freq "
	T(3) = " Rit Att "
	T(4) = " Rit.STo "
	T(5) = " Ultimo esito  "
	T(6) = " data  "
	T(7) = " Incr Max "
	T(8) = " Rp1 "
	T(9) = " Rp2 "
	T(10) = " Rp3 "
	T(11) = " Rp4 "
	T(12) = " Rp5 "
	T(13) = " Media Rit "
	T(14) = " Min "
	T(15) = " Max "
	T(16) = " Rp6 "
	T(17) = " Rp7 "
	T(18) = " Rp8 "
	T(19) = " Rp9 "
	T(20) = " Rp10 "
	T(21) = " Min "
	T(22) = " Max "
	T(23) = " Ambo OK "

	Call InitTabella(T,2,,2,5,"arial black")
	Call Messaggio("Statistica ambi")
	For n1 = 1 To 89
		For n2 = n1 + 1 To 90
			k = k + 1
			nu(1) = n1
			nu(2) = n2
			Call StatisticaFormazioneTurbo(nu,ruota,2,Rit,RitMax,Incr,Freq,Ini,Fin)
			Call VerificaEsitoTurbo(nu,ruota,Fin - Rit,2,,,esito,colpi,estratti,Id)
			'------- calcolo ritardi precedenti------------
			ReDim rp(11)
			InizioR = EstrazioneIni
			fineR = EstrazioneFin
			somrit = 0
			For z = 1 To 11
				rp(z) = SerieRitardoTurbo(InizioR,fineR,nu,ruota,2)
				fineR = fineR -(rp(z) + 1)
				somrit = somrit + rp(z)
				Medrit = Int(somrit/z)
			
			Next
			
			
			' fine calcolo----------------------------------
			ReDim vett(5)
			ReDim vet(5)
			ReDim V(23)
			V(1) = n1 & "." & n2
			V(2) = Freq
			V(3) = Rit
			V(4) = RitMax
			V(5) = estratti
			V(6) = DataEstrazione(id) & "   -  [ " & id & " ] "
			V(7) = Incr
			V(8) = rp(2)
			V(9) = rp(3)
			V(10) = rp(4)
			V(11) = rp(5)
			V(12) = rp(6)
			
			vet(1) = V(8)
			vet(2) = V(9)
			vet(3) = V(10)
			vet(4) = V(11)
			vet(5) = V(12)
			
			MnVet = MinimoV(vet,1,-1) 
			Mxvet = MassimoV(vet)
			V(13) = Medrit 
			V(14) = Mnvet
			V(15) = Mxvet
			V(16) = rp(7)
			V(17) = rp(8)
			V(18) = rp(9)
			V(19) = rp(10)
			V(20) = rp(11)
			
			vett(1) = V(16)
			vett(2) = V(17)
			vett(3) = V(18)
			vett(4) = V(19)
			vett(5) = V(20)
			
			MnVett = MinimoV(vett,1,-1) 
			Mxvett = MassimoV(vett)
			V(21) = Mnvett
			V(22) = Mxvett
			If Differenza(V(21),V(15)) < 15 Then V(23) = V(1)
			If Differenza(V(21),V(15)) >= 15 Then V(23) = " -- "
			
			Call AddRigaTabella(V,,,2,,"arial black")
			If Incr > 0 Then Call SetColoreCella(1,3,1)
			If Rit = 0 Then Call SetColoreCella(6,4,2)
			For x = 8 To 15
			Call SetColoreCella((x),RGB(17,244,239))
			Next
			For y = 16 To 22
			Call SetColoreCella((y),RGB(157,247,196))
			Next
			Call SetColoreCella(23,RGB(249,21,192),5)
			'If Rit = 0 And Freq > 6 Then kkk = kkk + 1
			If n1 = 15 And n2 = 20 Then Call SetColoreCella(1,2,4)
			If n1 = 15 And n2 = 20 Then Call SetColoreCella(12,2,4)
			
			If ScriptInterrotto Then Exit For
		Next
		If ScriptInterrotto Then Exit For
		Call AvanzamentoElab(1,89,n1)
	Next
	Call SetTableWidth("100%")
	Call CreaTabella(2,,,righe)
	Scrivi
	'Scrivi "Ambi usciti ultima estrazione : " & kkk,1
End Sub
 
Con la modifica dello script possiamo vedere che ci sono 3 ambi con un range d'uscita molto ristretto nelle loro ultime 10 sortite ciascuno:

18-84...max.96...attualmente rit.37

37-44...max.89...attualmente rit.39

9-20....max.101..attualmente rit.34

Qui la visione è per frequenza reale d'uscita (questa teoria attivata a dicembre 13 cioè prima della loro ultima sortita non ci si allungava troppo con il gioco).



Se qualcun'altro ha delle idee da mettere giù vediamo di stringere ancora di più il gioco.

Ciao.
 
Questa sera a VENEZIA è uscito il 37-44......siamo sulla strada buona??

Ciao
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 03 maggio 2025
    Bari
    31
    33
    53
    57
    73
    Cagliari
    40
    20
    72
    19
    16
    Firenze
    71
    44
    61
    70
    46
    Genova
    50
    36
    59
    25
    46
    Milano
    70
    85
    38
    83
    01
    Napoli
    28
    55
    58
    48
    24
    Palermo
    14
    62
    40
    12
    53
    Roma
    65
    36
    39
    57
    25
    Torino
    27
    43
    66
    22
    34
    Venezia
    09
    45
    58
    90
    66
    Nazionale
    68
    89
    14
    39
    25
    Estrazione Simbolotto
    Milano
    34
    02
    32
    09
    07
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto