script per lunghette 10elotto

[paolox]

ciao
ho controllato su spaziometria del grande luigi,
ma non vedo la possibilità di trovare i ritardi
e le frequenze delle lunghette per il 10elotto.
si potrebbe avere uno script per questa statistica??
ringrazio anticipatamente chi mi vorrà aiutare
buona domenica

 

[paolox]

io vorrei ad esempio una tabella in ordine decrescente
di lunghette di 3 numeri tra i più ritardatari (come
solitamente è con il gioco del lotto classico)faccio
un esempio con numeri presi a caso

ad esempio:
-7,11,88 rit.51
-52,82,1 rit.50
-15,28,40 rit.42
ecc.ecc.

 

[imported_n/a]

Ciao Paolox, esiste in spaziometria nella cartella vari uno script creato da Luigi che si avvicina a quello che vuoi ottenere.
Te lo posto con qualche mia modifica per ridurre i tempi di elaborazione.

Mike58


'------------------------------

Option Explicit
Sub Main

	
	Dim nClasse
	Dim nGaranzia
	Dim k,j
	Dim sNumeri
	Dim idComb
	Dim nInizio,nFine
	Dim idValoreDaAna
	Dim sValoreUsato
	Dim CombTot
		
	ReDim aCombMigliori(30,4)
	
	nClasse = ScegliClasse
	nGaranzia = ScegliGaranzia
	idValoreDaAna = ScegliValoreDaAnalizzare(sValoreUsato)
		
	
	
	nInizio = 8077
	nFine = EstrazioniArchivioDL
	
	
	If nClasse > 0 And nGaranzia > 0 And nGaranzia <= nClasse And idValoreDaAna > 0 Then
		Call Messaggio("Sviluppo combinazioni di classe " & nClasse)
		CombTot = InitSviluppaComb(nClasse)
		
		Call Messaggio("Statistica combinazioni in corso ")
		ReDim aCol(nClasse)
		Do While GetCombSviluppo(aCol) = True
			Call AnalisiComb(aCol,nGaranzia,aCombMigliori,nInizio,nFine,idValoreDaAna)
			k = k + 1
			If k Mod 20 = 0 Then
				Call Messaggio("Statistica combinazioni in corso " & k & " di " & CombTot)
		
				Call AvanzamentoElab(1,CombTot,k)
				
				If ScriptInterrotto Then Exit Do
			End If
		Loop
		Call Messaggio("")

		ReDim aTitoli(4)
		aTitoli(1) = "Combinazione"
		aTitoli(2) = "Frequenza"
		aTitoli(3) = "Ritardo"
		aTitoli(4) = "RitardoMax"
		
		
		Call Scrivi("Combinazioni di classe " & nClasse & " analizzate per punti " & nGaranzia)
		Call Scrivi("La seguente lista mostra le prime 100 combinazioni in base al valore di " & sValoreUsato)
		Call Scrivi("Range analizzato " & GetInfoEstrazioneDL(nInizio) & " fino a " & GetInfoEstrazioneDL(nFine))
		Call Scrivi("Estrazioni analizzate totali : " &(nFine + 1) - nInizio)
		Call Scrivi
		
		

		Call InitTabella(aTitoli)

		For k = 1 To UBound(aCombMigliori)
			
			
			ReDim ADati(4)
			ADati(1) = aCombMigliori(k,4)
			ADati(2) = aCombMigliori(k,1)
			ADati(3) = aCombMigliori(k,2)
			ADati(4) = aCombMigliori(k,3)

			Call AddRigaTabella(ADati) 			

		Next

		Call CreaTabella
	
	Else
		MsgBox "Selezionare la classe di sviluppo e la garanzia , " & _
		"si ricorda che la garanzia non puo essere maggiore della classe di sviluppo " & _
		"e che bisogna scegliere quale valore statistico considerare per " & _
		"alimentare la lista delle prime 100 Combinazioni "
		
		
				
	End If
	
End Sub
Sub AnalisiComb(aNum,Garanzia,aCombMig,nInizio,nFine,idValoreDaAna)
	
	Dim k,j
	
	Dim Rit
	Dim RitMax
	Dim Freq
	Dim Valore
	
	
	
	
	Call StatisticaFormazioneDL(aNum,Garanzia,Rit,RitMax,0,Freq,nInizio,nFine)
	Select Case idValoreDaAna
	Case 1
		Valore = Freq
	Case 2
		Valore = Rit
	Case 3
		Valore = RitMax
	End Select
	For k = 1 To UBound(aCombMig)
		
		If Valore >= aCombMig(k,0) Then
			
			For j = UBound(aCombMig) To(k + 1) Step - 1
				aCombMig(j,0) = aCombMig(j - 1,0)
				aCombMig(j,1) = aCombMig(j - 1,1)
				aCombMig(j,2) = aCombMig(j - 1,2)
				aCombMig(j,3) = aCombMig(j - 1,3)
				aCombMig(j,4) = aCombMig(j - 1,4)
				

			Next
			aCombMig(k,0) = Valore
			aCombMig(k,1) = Freq
			aCombMig(k,2) = Rit
			aCombMig(k,3) = RitMax
			aCombMig(k,4) = StringaNumeri(aNum)
			
			
			Exit For
				
		End If
	Next
End Sub
Function InitSviluppaComb(Classe)
	
	Dim k
	ReDim aNum(90)

	For k = 1 To 90
		aNum(k) = k
	Next
	
	InitSviluppaComb = InitSviluppoIntegrale(aNum,Classe)
	
End Function

Function ScegliClasse()
	ReDim aVoci(3)
	
	aVoci(0) = "Estratto"
	aVoci(1) = "Ambo"
	aVoci(2) = "Terno"
	aVoci(3) = "Quaterna"
	
	
	ScegliClasse = ScegliOpzioneMenu(aVoci,2,"Secegli tipo combinazione") + 1
End Function

Function ScegliGaranzia()

	ReDim aVoci(3)
	
	aVoci(0) = "Estratto"
	aVoci(1) = "Ambo"
	aVoci(2) = "Terno"
	aVoci(3) = "Quaterna"
	
	
	ScegliGaranzia = ScegliOpzioneMenu(aVoci,2,"Secegli garanzia") + 1
End Function

Function ScegliValoreDaAnalizzare(sValore)

	ReDim aVoci(2)
	Dim i
	
	aVoci(0) = "Frequenza"
	aVoci

 

[paolox]

ciao mike58
proprio quello che cercavo,
grazie mille.
riesco a visualizzare solo 30 combinazioni,
si potrebbe averne almeno il doppio o meglio
ancora 100, sarebbe per me il massimo....

ti ringrazio per la tua disponibilità e cortesia

ciao

 

[imported_n/a]

Si Paolo la riga da cambiare e questa ma i tempi possono essere più lunghi.

ReDim aCombMigliori(30,4)

cambia il 30 con il numero che preferisci forse max 100

ReDim aCombMigliori(100,4)


Mike58

 

[paolox]

grazie mike58
adesso è perfetto



buona domenica

 

[paolox]

ciao
dato che il gioco del lotto e del 10elotto
sono numeri presi dalla stessa estrazione,
avrei pensato di confrontare le frequenze
sia dell'uno che dell'altro.

avrei bisogno di uno script
che mi trovi le frequenze
sia del lotto che del 10elotto
per un numero di estrazioni che inserisco
io di volta in volta.

quindi nel risultato ci dovrebbe essere
due colonne una per il lotto e una per 10elotto
con le relative frequenze

spero di essere stato chiaro
spero si possa fare

ringrazio anticipatamente chi mi vorrà aiutare

ciao