Novità

script per lunghette 10elotto

paolox

Super Member >GOLD<
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
 
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.
 
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


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

Codice:
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
 
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
 
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
 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 aprile 2025
    Bari
    23
    43
    18
    70
    32
    Cagliari
    68
    86
    69
    48
    67
    Firenze
    35
    38
    72
    33
    51
    Genova
    88
    74
    80
    84
    61
    Milano
    58
    44
    77
    29
    21
    Napoli
    50
    45
    37
    16
    27
    Palermo
    89
    26
    15
    28
    75
    Roma
    42
    46
    82
    48
    31
    Torino
    08
    75
    01
    42
    36
    Venezia
    57
    40
    61
    17
    02
    Nazionale
    38
    05
    58
    17
    15
    Estrazione Simbolotto
    Genova
    11
    34
    03
    35
    19

Ultimi Messaggi

Indietro
Alto