partecipazione alle sorti

[jp4]

Mi piacerebbe disporre di uno script che, dopo avermi fatto inserire una formazione di mia scelta e deciderne la sorte di analisi (ambata, ambo, terno ecc.) e la ruota di gioco, esaminasse il ritardo di partecipazione di ogni singolo componente alla sorte scelta.
Nei momento in cui uno dei numeri non è presente da molte volte alla sorte in oggetto, questi sarebbe favorito.

esempio (non reale):
12.54.58.86 sorte ambo - ruote tutte
12 non partecipa agli ambi della formazione da 14 eventi ambo
54 assenza 0
58 assenza 0
86 assenza 1

in pratica l'ultimo ambo uscito è stato 54-58
il penultimo sarebbe stato 86-54 (o 86-58)
i precedenti ambi sarebbero stati composti dai soli 3 numeri 54-58-86 fino a 14 eventi fa a cui avrebbe partecipato il 12.
Si ipotizza perciò il ritorno del 12 al prossimo ambo della formazione.

In realtà la formazione da analizzare verrà scelta perchè considerata prossima all'uscita e si tenterà così di individuare il capogioco più promettente.

 

[jp4]

x tutti:
che ne pensate? potrebbe essere interessante?

e una domanda agli esperti:
è difficile realizzarlo?

 

[LuigiB]

per il momento ti do solo un parere , come idea e vista nell'ottica del lotto mi sembra buona la realizzazione non è proprio banale
ma nemmemno eccessivamente complicata , in pratica tu data una formazione escelta una sorte vuoi che venga evidenziata una specie di classifica basata sul ritardo con cui ciascun numero preso singolarmente non partecipa alla sorte. , tanto per chiarire
giochiamo al formazione 1.2.3.4.5 per ambo , ora quando analizziamo i 10 ambi dovremmo ordinarli in funzione del ritardo che i numeri che li compongono hanno rispetto alla sorte di ambo , che ne so se l'1 foeese uscito all'estrazione precedente insime al 45 il suo ritarod alla sorte di ambo varrebbe 0 (uscito all'estrazione prec col 45). Ho capito bene ?

 

[Roby]

buongiorno

se può servire, come bozza o idea, vede solo su ruota fissa.

Sub Main
	'''' 
	Dim r,x,xf,y,j,h,colonne,Classe,scolonna,ct,al,dal,AretRitardi,aRetIdEstr,num
	Dim nm(27),art(1),par(27)
	al = EstrazioneFin : Classe = 2
	r = InputBox("Ruota ",,1)
	al = InputBox("Elabora fino all'estrazione n.",,EstrazioneFin)
	ScegliNumeri(nm)
	num = UBound(nm)
	art(1) = r
	ColoreTesto(1)
	Scrivi " Ruota di Elaborazione " & NomeRuota(r),1
	Scrivi " Numeri selezionati.(max 27).." & StringaNumeri(nm,".") & ".....tot.n." & num,1
	Scrivi " All'estrazione n. del " & al & "/" & DataEstrazione(al),1
	Scrivi "------------------------------------------------------------------------------------------------",1
	ColoreTesto(0)
	ReDim atit(5)
	ReDim aval(5)
	' preimposto i titoli delle colonne
	atit(1) = " Ruota   "
	atit(2) = " Nr.Comb."
	atit(3) = " n.estraz."
	atit(4) = " Ritardo  "
	atit(5) = " n.Estratti "
	'	' inizializzo la tabella
	SetTableWidth("800px")
	Call InitTabella(atit,2,"center",1.6,5,"Arial")
	''''utilizzo Elencoritardi x classe=Ambi
	Call ElencoRitardi(nm,art,Classe,dal,al,AretRitardi,aRetIdEstr)
	x = UBound(AretRitardi) - 20 : xf = UBound(AretRitardi) - 1
	For x = x + 1 To xf
		'''recupera numeri usciti nell'estrazione
		ReDim n(5)
		ct = 0
		For j = 1 To num
			par(j) = par(j) + 1
			For y = 1 To 5
				If Int(Estratto(aRetIdEstr(x),r,y)) = Int(nm(j)) Then
					ct = ct + 1
					n(ct) = Estratto(aRetIdEstr(x),r,y)
					par(j) = 0
				End If
			Next
		Next
'''		Scrivi aRetIdEstr(x) & "...." & AretRitardi(x) & "............." & n(1) & "." & n(2) & "." & n(3) & "." & n(4) & "." & n(5)
		aval(1) = NomeRuota(r)
		aval(2) = StringaNumeri(nm,".")
		aval(3) = aRetIdEstr(x)
		aval(4) = AretRitardi(x)
		aval(5) = Format2(n(1)) & "." & Format2(n(2)) & "." & Format2(n(3)) & "." & Format2(n(4)) & "." & Format2(n(5))
		Call AddRigaTabella(aval,Bianco_,"center",1)
	Next
	''''riepilogo x ritardo partecipazione all'ambo del singolo estratto
	Call CreaTabella
	Scrivi
	For h = 1 To num
		Scrivi Format2(nm(h)) & "...Rit.Partecipazione Ambo.." & par(h),1
	Next
End Sub

 

[jp4]

X Luigi
si esatto.

X Rubino
Ho appena visto la risposta, lo provo e in serata ti rispondo.

Intanto grazie a entrambi!

 

[LuigiB]

se va bene lo script di Rubino (no l'ho provato) io non mi muovo .. l'avrei fatto per passatempo e ho chiesto preventivamente conferma del metodo per evitare di passare il tempo a vuoto ... ciao

 

[jp4]

Ciao,
X Luigi e Rubino
ho provato lo script e risponde perfettamente a quanto avevo chiesto. Grazie Rubino!

Domande:
Ha dei limiti circa la formazione che è possibile inserire? esempio: max Decina o quindicina ecc...

Parlavi di bozza o idea, pensavi a qualche "optional"?

 

[Roby]

ciao jp4

fino a 27 numeri max si possono inserire.

lavora solo su singole ruote fisse, a tutte non è previsto.

attualmente esamina gli ultimi eventuali 20 ritardi o 20 ultime sortite dell'ambo.

manca l'opzione per la sorte del terno, quaterna, cinquina.

queste alcuni limiti attuali (per questo è definito Bozza)

dipende sempre da cosa si vuol fare e dove si vuol arrivare.

 

[Roby]

Ciao Rubino, questo script serve anche a me... Grazie
PS: Se hai voglia potresti inserire una 2° ruota e le sorti maggiori?
mi basta anche solo la 2° ruota, ho provato a modificarlo ma
da i calcoli errati
Senza impegno chiaramente
Ciao !!!

 

[Roby]

x blackmore x Jp4

con elencoritardi, non è possibile indicare 2 ruote, (cioè non fa il merge dei dati delle 2 ruote), quindi è a ruota unica.
per la richiesta di Tutte le ruote, bisognerebbe impostare 1 alla 10 con il for next per ottenere l'indicazione della ruota
ed i numeri usciti su tale ruota, personalmente non ne capisco l'utilità delle ruote Tutte.
comunque questo ultimo aspetto si potrebbe anche raggiungere facendo ulteriori modifiche.


quindi questo codice e script non avrebbe quasi più senso farlo così.

Qua potrebbe rispondere in modo più preciso LuigiB


si potrebbe anche fare una modifica, superando in parte il problema, creando una arrays, che accumula i dati di 2 ruote diverse, e che si potrebbe ordinare per la colonna n.estr., ma poi bisognerebbe ricalcolare il ritardo, tra un ambo e l'altro o tra una uscita e la precedente,
e calcolare il ritardo di partecipazione, perché i dati delle 2 ruote si mischierebbero ed è necessario farlo.

insomma è un po complicato (dentro e fuori), tra ordinamatrici diverse, per ottenere il ritardo di partecipazione.

a proposito: da alcuni controlli fatti a caso retroattivi, mi risulta, che il ritardo di partecipazione ha poche uscite, rispetto invece ai numeri
che hanno un ritardo minore o che sono appena usciti.
il solito problema, gli ultimi numeri che sono usciti, continuano ad uscire in prevalenza su quelli aventi ritardo maggiore.

dico questo, anche perchè negli anni passati, avevo già fatto qualcosa di questo tipo ad un Utente Cadrega se non sbaglio o qualcun altro che
seguiva questa metodologia, ed avevo già sperimentato in parte questa idea.

ma sarebbe utile averne un altra più mirata o qualcosa di più mirato e preciso.


Per ruota fissa unica , dall'ambo alla cinquina, con condizioni particolari x quaterna / cinquina, avere molti numeri nella formazione
di richiesta.

Sub Main
	''''
	Dim r,x,xf,y,j,h,colonne,Classe,scolonna,ct,al,dal,AretRitardi,aRetIdEstr,num
	Dim nm(27),art(1),par(27)
	al = EstrazioneFin
	Classe = InputBox("Sorte 2Ambo,3Terno,4Quaterna,5Cinquina  x quaterna e cinquina inserire almeno 20 numeri ",,2)
	r = InputBox("Ruota ",,1)
	al = InputBox("Elabora fino all'estrazione n.",,EstrazioneFin)
	ScegliNumeri(nm)
	num = UBound(nm)
	art(1) = r
	ColoreTesto(1)
	Scrivi " Ruota di Elaborazione " & NomeRuota(r),1
	Scrivi " Numeri selezionati.(max 27).." & StringaNumeri(nm,".") & ".....tot.n." & num,1
	Scrivi " All'estrazione n. del " & al & "/" & DataEstrazione(al),1
	ColoreTesto(2)
	Scrivi " Sorte richiesta = " & Classe,1
	ColoreTesto(1)
	Scrivi "------------------------------------------------------------------------------------------------",1
	ColoreTesto(0)
	ReDim atit(6)
	ReDim aval(6)
	' preimposto i titoli delle colonne
	atit(1) = " Ruota   "
	atit(2) = " Nr.Comb."
	atit(3) = " n.estraz."
	atit(4) = " Ritardo  "
	atit(5) = " n.Estratti "
	atit(6) = " Pos.Strutt."
	'	' inizializzo la tabella
	SetTableWidth("800px")
	Call InitTabella(atit,2,"center",1.6,5,"Arial")
	''''utilizzo Elencoritardi x classe=Ambi
	Call ElencoRitardi(nm,art,Classe,dal,al,AretRitardi,aRetIdEstr)
	If Classe > 3 Then 
	x = 1 
	Else
	x = UBound(AretRitardi) - 35
	End If:
	xf = UBound(AretRitardi) - 1
	For x = x + 1 To xf
		'''recupera numeri usciti nell'estrazione
		ReDim n(5),Strutt(27)
		ct = 0
		For j = 1 To num
			par(j) = par(j) + 1
			For y = 1 To 5
				If Int(Estratto(aRetIdEstr(x),r,y)) = Int(nm(j)) Then
					ct = ct + 1
					n(ct) = Estratto(aRetIdEstr(x),r,y)
					par(j) = 0
					Strutt(ct) = Strutt(ct) & Format2(j) & "."
				End If
			Next
		Next
'''		Scrivi aRetIdEstr(x) & "...." & AretRitardi(x) & "............." & n(1) & "." & n(2) & "." & n(3) & "." & n(4) & "." & n(5)
		aval(1) = NomeRuota(r)
		aval(2) = StringaNumeri(nm,".")
		aval(3) = aRetIdEstr(x)
		aval(4) = AretRitardi(x)
		aval(5) = Format2(n(1)) & "." & Format2(n(2)) & "." & Format2(n(3)) & "." & Format2(n(4)) & "." & Format2(n(5))
		aval(6) = StringaNumeri(Strutt,".")
		Call AddRigaTabella(aval,Bianco_,"center",1)
	Next
	''''riepilogo x ritardo partecipazione all'ambo del singolo estratto
	Call CreaTabella
	Scrivi
	For h = 1 To num
		Scrivi Format2(nm(h)) & "...Rit.Partecipazione " & par(h),1
	Next
End Sub

 

[jp4]

per la richiesta di Tutte le ruote, bisognerebbe impostare 1 alla 10 con il for next per ottenere l'indicazione della ruota
ed i numeri usciti su tale ruota, personalmente non ne capisco l'utilità delle ruote Tutte.
.
[/CODE]

Ciao Rubino,
per l'utilità di un eventuale script per tutte, il motivo è lo stesso di una ricerca a ruota.
Si esamina ad esempio la 5na più in ritardo a tutte e si vede se ci sono le condizioni per ritenere favorito uno dei componenti.
Secondo me "tutte" va intesa come entità unica e non l'esame contemporaneo delle singole dieci ruote.

a proposito: da alcuni controlli fatti a caso retroattivi, mi risulta, che il ritardo di partecipazione ha poche uscite, rispetto invece ai numeri
che hanno un ritardo minore o che sono appena usciti.
il solito problema, gli ultimi numeri che sono usciti, continuano ad uscire in prevalenza su quelli aventi ritardo maggiore.
[/CODE]

non ho capito, potresti illustrare di nuovo il concetto? grazie

 

[Roby]

nessun nuovo concetto o idea, ma solo un'autoverifica del passato.



esempio:





ho richiesto una situazione retroattiva a bari estr.8700

in fondo allo script, troviamo la situazione dei ritardi di partecipazione

basta ora controllare nell'archivio estrazioni, sulla ruota di bari dalla 8701 cosa è accaduto per i numeri richiesti a caso.

24...Rit.Partecipazione 0
35...Rit.Partecipazione 0
45...Rit.Partecipazione 2
56...Rit.Partecipazione 4
67...Rit.Partecipazione 1

esce il 56
esce l'ambo 45 67
esce il 24
queste sono le uscite nei successivi 18 colpi.


in questo caso è uscito per primo il 56 che è il più ritardatario della cinquina presa in esame
ma molte altre volte o prove effettuate riscontrano che sono usciti quelli con rit.partecipazione 0,1,2 prima del massimo ritardatario

----------------------------------------------------------------------------------------------------------------------------

per l'elaborazione a tutte si può anche fare, ma lo script come impostato e come è stato concepito, perde molta della sua specificità.

 

[Rosanna]

Ciao Rubino
complimenti per il listato...

Sull'ultima questione citata non ho capito cosa intendi con ritardo di partecipazione..

Su questa invece "gli ultimi numeri che sono usciti, continuano ad uscire in prevalenza su quelli aventi ritardo maggiore." ritengo sia dovuto semplicemente al fatto che
sono di più i numeri con ritardo minore quindi in proporzione escono di più ma non per questo sono più favoriti degli altri.

Per togliersi dei dubbi basta fare uno script che metta a confronto pari numeri a ritardo minore con pari numeri a ritardo elevato per lo stesso numero di colpi e stare a guardare sul lungo periodo che succede. Un po' come ho fatto con i numeri caldi e freddi...

ciao

 

[Roby]

Diciamo che questo script è per fare ricerche e studio, per prendere eventualmente fiducia e coraggio nelle proprie ricerche

partendo da un insieme di numeri preferiti, per la sorte preferibilmente per Ambo,
di una ruota fissa di preferenza

si può ottenere l'informazione del ritardo di partecipazione all'ambo, di un estratto, ad una certa estrazione e data
si può conoscere come si è comportato nelle estrazioni successive, tutto l'insieme per la sorte dell'ambo su tutte le ruote
ed i singoli estratti sulla ruota di partenza.

almeno ci si può fare un'idea della funzionalità del ritardo di partecipazione.
inoltre se l'insieme è grande, si può fare un'indagine delle posizioni dell'insieme, e vedere se c'è una certa rindondanza per le sorti
ristrette dell'ambo, terno etc....


l'Idea è di valutare eventualmente delle formazioni con una decina di concorsi di ritardo, tipo cinquine appena estratte su una determinata
ruota fissa ed attualmente ancora vergine, oppure comporre degli insiemi composti da terzine/quartine in ritardo sul tabellone Analitico.

Sub Main
	''''
	Dim r,x,xf,y,j,h,colonne,Classe,scolonna,ct,al,dal,AretRitardi,aRetIdEstr,num,fre,free
	Dim nm(27),art(1),par(27)
	al = EstrazioneFin
	r = InputBox("Ruota ",,1)
	Classe = InputBox("Sorte 2Ambo,3Terno,4Quaterna,5Cinquina  x quaterna e cinquina inserire almeno 20 numeri ",,2)	
	al = InputBox("Elabora fino all'estrazione n.",,EstrazioneFin)
	ScegliNumeri(nm)
	num = UBound(nm)
	art(1) = r
	ColoreTesto(1)
	Scrivi " Ruota di Elaborazione " & NomeRuota(r),1
	Scrivi " Numeri selezionati.(max 27).." & StringaNumeri(nm,".") & ".....tot.n." & num,1
	Scrivi " All'estrazione n. del " & al & "/" & DataEstrazione(al),1
	ColoreTesto(2)
	Scrivi " Sorte richiesta = " & Classe,1
	ColoreTesto(1)
	Scrivi "------------------------------------------------------------------------------------------------",1
	ColoreTesto(0)
	ReDim atit(6)
	ReDim aval(6)
	' preimposto i titoli delle colonne
	atit(1) = " Ruota   "
	atit(2) = " Nr.Comb."
	atit(3) = " n.estraz."
	atit(4) = " Ritardo  "
	atit(5) = " n.Estratti "
	atit(6) = " Pos.Strutt."
	'	' inizializzo la tabella
	SetTableWidth("800px")
	Call InitTabella(atit,2,"center",1.6,5,"Arial")
	''''utilizzo Elencoritardi x classe=Ambi
	Call ElencoRitardi(nm,art,Classe,dal,al,AretRitardi,aRetIdEstr)
	If Classe > 3 Then
		x = 1
	Else
		x = UBound(AretRitardi) - 35
	End If:
	xf = UBound(AretRitardi) - 1
	For x = x + 1 To xf
		'''recupera numeri usciti nell'estrazione
		ReDim n(5),Strutt(27)
		ct = 0
		For j = 1 To num
			par(j) = par(j) + 1
			For y = 1 To 5
				If Int(Estratto(aRetIdEstr(x),r,y)) = Int(nm(j)) Then
					ct = ct + 1
					n(ct) = Estratto(aRetIdEstr(x),r,y)
					par(j) = 0
					Strutt(ct) = Strutt(ct) & Format2(j) & "."
				End If
			Next
		Next
		aval(1) = NomeRuota(r)
		aval(2) = StringaNumeri(nm,".")
		aval(3) = aRetIdEstr(x)
		aval(4) = AretRitardi(x)
		aval(5) = Format2(n(1)) & "." & Format2(n(2)) & "." & Format2(n(3)) & "." & Format2(n(4)) & "." & Format2(n(5))
		aval(6) = StringaNumeri(Strutt,".")
		Call AddRigaTabella(aval,Bianco_,"center",1)
	Next
	''''riepilogo x ritardo partecipazione all'ambo del singolo estratto
	Call CreaTabella
	Scrivi
	ReDim ar(1)
	For h = 1 To num
		ar(1) = 11
		fre = SerieFreq(al + 1,EstrazioneFin,nm,ar,2)
		free = EstrattoFrequenza(al + 1,EstrazioneFin,nm(h),1)
		Scrivi Format2(nm(h)) & "...Rit.Partecipazione " & par(h),1
	Next
	ColoreTesto(1)
	Scrivi
	Scrivi " Riepilogo Riscontri Teorici successivi alla estrazione/data stabilita " & al & "/" & DataEstrazione(al),1
	Scrivi " DAll'estrazione n. del " & al + 1 & "/" & DataEstrazione(al + 1) & "...all'estrazione " & EstrazioneFin & "/" & DataEstrazione(EstrazioneFin),1
	Scrivi " Range Concorsi esaminati per riscontri..." & EstrazioneFin -(al),1
	Scrivi "---------------------------------------------------------------",1
	ColoreTesto(2)
	Scrivi "Ambi su Tutte le ruote usciti successivamente = " & fre,1
	Scrivi
	For h = 1 To num
		free = EstrattoFrequenza(r,nm(h),al + 1,EstrazioneFin)
		Scrivi "n." & Format2(nm(h)) & "...freq.uscite successive x Estratto su Ruota " & SiglaRuota(r) & "  =  " & free,1
	Next
End Sub

 

[codicebinario]

Ottimo lavoro RUBINO(ben riletto) e JP4 !!!!Grazie.