Richiesta listato spia10elotto classico

[edesimone]

Un saluto,mi servirebbe un listato
che rilevi ai 90 estratti,il numero più
frequente al primo colpo.
Il range deve partire dalla data 11/06/2009
Esempio veritiero fatto in excel
ogni volta che esce il numero spia 61 il colpo dopo esce il 79 il 38 sono le frequenze di uscita al 1° colpo
numero spia ambata da giocare freq.1°colpo rit. rit.max
61 79 38
37 41 37
76 47 36
ecc.. per tutti i rimanenti numeri spia,
naturalmente con i relativi rit. rit.max.
Seconda richiesta
Stesso procedimento di sopra con la differenza che
il numero spia mi trovi l'ambata da giocare nei primi 2 colpi.
Spero di esser stato chiaro.
Un saluto a tutti del forum

 

[edesimone]

Qualche anima gentile può
aiutarmi per questo listato
(Luigib Claudio8 o altri)
Grazie
Edesimone

 

[claudio8]

quote:Originally posted by edesimone

Qualche anima gentile può
aiutarmi per questo listato
(Luigib Claudio8 o altri)
Grazie
Edesimone

Cerca tra i lavori di Rubino se c'è qualcosa che fa al caso tuo.

 

[edesimone]

Grazie Claudio8

quote:Originally posted by edesimone

Qualche anima gentile può
aiutarmi per questo listato
(Luigib Claudio8 o altri)
Grazie
Edesimone

 

[LuigiB]

Ciao , verifica se va ...
N.B.
l'analisi viene effettuata sul range
impostato nel programma , per farlo partire dall'estrazione
che dici tu devi appunto prima impostare l'estrazione voluta
nel range globale del programma (la barretta rosa sotto)

Option Explicit
Sub Main
	
	Dim Inizio,Fine,idEstr
	Dim k,EntroColpi,e,ee,c
	Dim nBase,nUscito
	Dim nUscite
	ReDim aPresenze(90,90)
	Dim RetRit,RetRitMax,RetFreq
	
	
	Call ImpostaArchivio10ELotto(1)
	
	EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	
	For k = Inizio To Fine
		For e = 1 To 20
			nBase = EstrattoDL(k,e)
			For c = 1 To EntroColpi
				idEstr = k + c
				For ee = 1 To 20
					nUscito = EstrattoDL(idEstr,ee)
					aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
				Next
			Next
		Next
		Call AvanzamentoElab(Inizio , Fine , k)
		If ScriptInterrotto Then Exit For 
	Next
	
	ReDim aTitoli(6)
	
	aTitoli(1) = "Numero Spia"
	aTitoli(2) = "Numero Piu Freq"
	aTitoli(3) = "Uscite"
	aTitoli(4) = "Ritardo"
	aTitoli(5) = "RitardoMax"
	aTitoli(6) = "Frequenza"
	
	Call InitTabella(aTitoli)
	
	For nBase = 1 To 90
		ReDim aValori(6)
		
		aValori(1) = nBase
		aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite)
		aValori(3) = nUscite
		
		ReDim aN(1)
		aN(1) = aValori(2)
		Call StatisticaFormazioneDL(aN ,1,RetRit,RetRitMax,0, RetFreq, Inizio,Fine)
		
		aValori(4) = RetRit
		aValori(5) = RetRitMax
		aValori(6) = RetFreq
		
		Call AddRigaTabella(aValori)
	Next
	
	Call CreaTabella
	
	

	
End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite)
	
	Dim k
	ReDim aOrd(90,2)
	
	For k = 1 To 90
		aOrd(k,1) = k
		aOrd(k,2) = aPresenze(nBase,k)
	Next

	Call OrdinaMatrice(aOrd,- 1,2)
	
	GetNumeroPiuFreq = aOrd(1,1)
	nUscite = aOrd(1,2)
		
End Function

 

[edesimone]

Originally posted by LuigiB

Ciao , verifica se va ...
N.B.
l'analisi viene effettuata sul range
impostato nel programma , per farlo partire dall'estrazione
che dici tu devi appunto prima impostare l'estrazione voluta
nel range globale del programma (la barretta rosa sotto)

Option Explicit
Sub Main
	
	Dim Inizio,Fine,idEstr
	Dim k,EntroColpi,e,ee,c
	Dim nBase,nUscito
	Dim nUscite
	ReDim aPresenze(90,90)
	Dim RetRit,RetRitMax,RetFreq
	
	
	Call ImpostaArchivio10ELotto(1)
	
	EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	
	For k = Inizio To Fine
		For e = 1 To 20
			nBase = EstrattoDL(k,e)
			For c = 1 To EntroColpi
				idEstr = k + c
				For ee = 1 To 20
					nUscito = EstrattoDL(idEstr,ee)
					aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
				Next
			Next
		Next
		Call AvanzamentoElab(Inizio , Fine , k)
		If ScriptInterrotto Then Exit For 
	Next
	
	ReDim aTitoli(6)
	
	aTitoli(1) = "Numero Spia"
	aTitoli(2) = "Numero Piu Freq"
	aTitoli(3) = "Uscite"
	aTitoli(4) = "Ritardo"
	aTitoli(5) = "RitardoMax"
	aTitoli(6) = "Frequenza"
	
	Call InitTabella(aTitoli)
	
	For nBase = 1 To 90
		ReDim aValori(6)
		
		aValori(1) = nBase
		aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite)
		aValori(3) = nUscite
		
		ReDim aN(1)
		aN(1) = aValori(2)
		Call StatisticaFormazioneDL(aN ,1,RetRit,RetRitMax,0, RetFreq, Inizio,Fine)
		
		aValori(4) = RetRit
		aValori(5) = RetRitMax
		aValori(6) = RetFreq
		
		Call AddRigaTabella(aValori)
	Next
	
	Call CreaTabella
	
	

	
End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite)
	
	Dim k
	ReDim aOrd(90,2)
	
	For k = 1 To 90
		aOrd(k,1) = k
		aOrd(k,2) = aPresenze(nBase,k)
	Next

	Call OrdinaMatrice(aOrd,- 1,2)
	
	GetNumeroPiuFreq = aOrd(1,1)
	nUscite = aOrd(1,2)
		
End Function

Dirti grazie è il minimo, lavoro perfetto,come minimo
devo pagarti una pizza,se vogliamo organizzare con altri
amici del forum sarebbe perfetto,lanciamo questo messaggio.
Grazie
edesimone

 

[LuigiB]

eehh grazie , io la prendo fiori di zucca mozzarella e alici

 

[edesimone]

quote:Originally posted by LuigiB

eehh grazie , io la prendo fiori di zucca mozzarella e alici

Nessun problema, ripeto quando vuoi e dove vuoi tu.
Non scherzavo dobbiamo solo organizzare.
Un saluto
edesimone

 

[edesimone]

Scusa LuigiB
Trovato un errore,range di partenza 11/06/2009 fine 29/10/2011
entro un colpo,il numero spia 5 mi da il Numero Piu Freq 87
l'errore è il ritardo mi da 0, perchè calcola il numero 87
nell'estrazione del 29/10/2011
3 5 13 14 21 32 38 42 51 55 62 64 66 72 73 78 80 82 87 90
il ritardo del numero 87 è 2, i numeri spia e i Numeri Piu Freq
non devono essere calcolati se sono nella stessa estrazione.
ringrazio
edesimone

 

[edesimone]

quote:Originally posted by edesimone

Scusa LuigiB
Trovato un errore,range di partenza 11/06/2009 fine 29/10/2011
entro un colpo,il numero spia 5 mi da il Numero Piu Freq 87
l'errore è il ritardo mi da 0, perchè calcola il numero 87
nell'estrazione del 29/10/2011
3 5 13 14 21 32 38 42 51 55 62 64 66 72 73 78 80 82 87 90
il ritardo del numero 87 è 2, i numeri spia e i Numeri Piu Freq
non devono essere calcolati se sono nella stessa estrazione.
ringrazio
edesimone

X LuigiB
Annulla tutto, funziona bene,mio errore.
un saluto
edesimone

 

[keeper]

x luigib lo script che hai realizzato non potresti implementarlo come funzione nella sezione 10elotto classico e 5m nel prossimo aggiornamento di spaziometria?