Novità

x rubino da abasul

Scusami se ti riposto ma per leggere i tuoi scritti molto interessanti dovrei avere uno schermo largo il doppio di quello che ho.
Ancora bravo per quanto ci esponi con le tue conoscenze ed il supporto del prof Rubino.

:D:Dps: al termine di questo lunghissimo lavoro ( sperando che i frutti siano al più presto raccoglibili) sarai anche tu onoreficiato della carica di Prof. :D:D


quote:Originally posted by abasul

Ciao rubino,
finalmente ci risentiamo.

Ho provato lo script e va benissimo. Non so come ringraziarti a nome di tutti. Veramente sei una mente che ha un talento impressionante, incredibile. Bravo, e Grazie di nuovo!

Ci faresti ancora cosa gradita se ci permettessi di usare questo script anche per la ricerca di terzine per ambo, di quartine, di cinquine; e se te la senti anche sestine ecc.

Per una ricerca con terzina per ambo, ovviamente si dovranno modificare i cicli teorici che verranno calcolati in base alla media teorica per una terzina, che è: 136.6046511628; per una
quartina: 69.8998768978; per una cinquina: 42.9265011828; poi comunque trovi i dati con tutti i riferimenti andando nel programma "Spaziometria" - Utility - Tavola Probabilità Lotto.

Ora però veniamo al dunque.

Ti avevo promesso che dopo questa ulteriore messa a punto dello script io ti avrei svelato come ricavare una previsione con un range minimo, il più ristretto possibile rispetto alle estrazioni di
attesa teoriche che sono per l'ambo 400.5. E finalmente, mantenendo la promessa, ti spiego anche questo così pure quest'altra miglioria teorica-statistica la possiamo implementare nello script, completandolo. Poi, ripeto, deciderai tu se farci un ulteriore
regalo permettendoci anche di poter effettuare delle ricerche per quanto riguarda la terzina per ambo, la quartina, la cinquina - e
volendo anche sestina ecc -.

La regola principale per usare al meglio lo Scarto Quadratico Medio applicabile al Lotto, è quella di andare alla ricerca di una previsione che abbia un ciclo naturale di eventi che si avvicini il
più possibile a quello teorico.
Prendendo ad esempio l'ambo 2,74 di Milano, sappiamo che i relativi eventi di sortita sono stati 23 e cioè che sono usciti 3 eventi più della media teorica che ne prevedeva 20. Quindi in questo caso noi
ci troviamo davanti ad una previsione che nel tempo ha dato delle garanzie di sortite ben lineari. Oltre che alla media reale la quale deve essere dunque vicinissima a quella teorica, ci serve anche che
lo Scarto Quadratico Medio sia il più basso possile. Avendo ad esempio trovato più di una previsione che abbiano i requisiti giusti "riguardo alla media" a parità di condizione noi allora
sceglieremo quella che ha lo S.Q.M. più basso.
Ritornando all'esempio dell'ambo 2.74 di Milano, nell'output dello script ti ho fatto creare, nella seconda stringa in orizzontale, dei valori riportati con dei colori: giallo, verde e rosso. In questo
caso ciò che ci interessa però per il nostro scopo è di visionare il valore con il colore verde. Esso ci indica che nell'ultimo evento dell'uscita dell'ambo 2,74 a Milano, si aveva un indice minimo di
50; cioè questo valore rispetto al totale delle 400,5 estrazioni di un'aspettativa teorica, era molto vicino in distanza alle uscite minime iniziando da 8 estraz. fino a 99 estraz. (un range che non
supera dunque il doppio a 50). Attualmente, sotto al colore giallo della stringa, è invece riportato come valore minimo attuale: 33,733, e pertanto come attesa minima noi prevediamo che lo
sfaldamento si possa verificare seguendo le estrazioni dalla prossima, fino a 67.466. Ora, poiché la media reale dell'ambo scelto è sotto la media teorica, noi allora aggiungiamo anche altri 33.733
colpi di attesa. Quindi l'attesa minima di questa combinazione sarà: da 1 fino a 101.199. Comunque, per defoult, noi impostiamo l'attesa minima dalla prima estrazione dopo il ritardo attuale fino
a tre volte l'indice
 
Ciao claudio8.
Grazie per i complimenti, ma chi li merita per
davvero è solo rubino. Senza di lui e LuigiB
questo nostro forum non avrebbe un'adeguata
anima: non avrebbe un lustro particolare. Con questo però non voglio
fare un torto agli altri scripter che sono ugualmente molto
bravi.
Ti ringrazio per il consiglio. Devo abituarmi
ad andare a capo un po' più
frequentemente quando scrivo.

Un Saluto.

Rubino, ma che c'hai per caso una bacchetta magica?
Oh,
non avevo finito di farti una richiesta
che subito già mi hai accontentato. :D:)
Non posso proprio credere ai miei occhi.
Di nuovo i miei complimenti e mille grazie.
Va bene, lo script l'ho controllato. Se vuoi
puoi procedere. Grazie.
 
Rubino,

postandomi la previsione 8.16.83 di Bari ti voglio far capire
una cosa. Vedi che nell'ultimo evento l'indice minimo
era più alto di quello attuale? Questo perché il programma
ha calcolato il forte ritardo. In questo modo anche
l'indice minimo ne ha risentito, abbassandosi,
perché nelle estrazioni future in teoria si deve avere un riequilibio e quindi l'indice del minimo dello S.Q.M
ci inducerebbe a giocare subito e per pochissimi colpi
la previsione.
Mi spiego:
quando abbiamo fatto i calcoli per ottenere lo S.Q.M,
noi abbiamo sottratto o la media al ritardo dell'evento,
oppure il ritardo dell'evento alla media, e poi la somma
l'abbiamo elevata al quadrato,
ottenendo così sempre un valore positivo. Quindi
tanto più si verificano forti picchi di ritardo o picchi
di minimi ritardi, quanto più lo S.Q.M. rispetto a quello
precedente si alza o si abbassa di molto.
Per me questa previsione potrebbe anche uscire la prossima estrazione, ma giocarla rappresenterebbe
un grosso punto interrogativo, perché essa attualmente
e fuori controllo statistico. Il suo ritardo potrebbe
aumentare ancora di molto.
Io ti ripeto, mi fiderei più di una previsione che
si mantiene sempre costante con le sortite vicino alla
media teorica.

Un Saluto
 
:D Da un estremo all'altro :D

a capo dopo 2 o 3 righe non una.
Ciao.

Ps: non mettete troppa carne al fuoco altrimenti si brucia qualcosa.

Se la teoria è valida è applicabile dappertutto quindi centrate l'obbiettivo dell'ambo al lotto e poi si va oltre.

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
 
Va bene claudio8 farò come dici tu. Però su sto fatto adesso non facciamoci un problema di stato per favore.:D
 
Codice:
[b]La regola principale per usare al meglio lo Scarto Quadratico Medio applicabile al Lotto, 
è quella di andare alla ricerca di una previsione che abbia un ciclo naturale di eventi che si avvicini il
più possibile a quello teorico.  [/b]




Codice:
Prendendo ad esempio l'ambo 2,74 di Milano, sappiamo che i relativi eventi di sortita sono stati 23 
e cioè che sono usciti 3 eventi più della media teorica che ne prevedeva 20. Quindi in questo caso noi
ci troviamo davanti ad una previsione che nel tempo ha dato delle garanzie di sortite ben lineari. 

Oltre che alla media reale la quale deve essere dunque vicinissima a quella teorica, ci serve anche che
lo Scarto Quadratico Medio sia il più basso possile.



Codice:
 Avendo ad esempio trovato più di una previsione che abbiano i requisiti giusti "riguardo alla media" 
a parità di condizione noi allora
sceglieremo quella che ha lo S.Q.M. più basso.




Codice:
Ritornando all'esempio dell'ambo 2.74 di Milano, nell'output dello script ti ho fatto creare, nella seconda stringa in orizzontale, 
dei valori riportati con dei colori: giallo, verde e rosso. 
In questo caso ciò che ci interessa però per il nostro scopo è di visionare il valore con il colore verde. 
Esso ci indica che nell'ultimo evento dell'uscita dell'ambo 2,74 a Milano, si aveva un indice minimo di 50; 
cioè questo valore rispetto al totale delle 400,5 estrazioni di un'aspettativa teorica, 
era molto vicino in distanza alle uscite minime iniziando da 8 estraz. fino a 99 estraz. 
(un range che non supera dunque il doppio a 50). 
Attualmente, sotto al colore giallo della stringa, è invece riportato come valore minimo attuale: 33,733, 
e pertanto come attesa minima noi prevediamo che lo
sfaldamento si possa verificare seguendo le estrazioni dalla prossima, fino a 67.466. 

Ora, poiché la media reale dell'ambo scelto è sotto la media teorica, noi allora aggiungiamo anche altri 33.733
colpi di attesa. 
Quindi l'attesa minima di questa combinazione sarà: da 1 fino a 101.199. 
Comunque, per default, noi impostiamo l'attesa minima dalla prima estrazione dopo il ritardo attuale fino

a tre volte l'indice minimo. 

In un primo riquadro scriviamo: I prev. caduta (da 1 a 34 estraz.);

in un secondo riquadro scriviamo: 2 prev. caduta (da 35 a 67 estraz.); 

in un terzo riquadro scriviamo: 3 prev. caduta (da 68 a 101 estraz.).




ho aggiornato unico script dall'ambo alla decina.

bisogna però che gli utenti familiarizzino un pochino con la nuova impostazione iniziale e che cerchino di
adattarsi alle richieste dello script.

i tempi di elaborazione sono ancora accettabili,
anche per le combinazioni di 8,9,10 numeri, poichè i casi da ricercare come storia sono abbastanza numerosi.

attualmente non mi risultano errori di riempimento overflow della tabella, ma non conoscendo i limiti
imposti da luigiB al programma spaziometria, rimane per ora solo un mio cruccio mentale.

rimane ora solo, vedere se con uno script apposito si può elaborare la massa di combinazioni e ricercare
quelle i cui valori si aggirano a quanto specificato da Abasul all'inizio di questa risposta.

[?]



:D;)








-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!
 
Ciao Prof Rubi :D, magari. Se tu riuscissi ad arrivare a questo tu per me saresti veramente un genio dell'informatica.
 
questo è lo script (unico)</u> a multi scelte:

dall'ambo alla decina

provatelo e fatemi sapere.

a LuigiB, se leggi questo thread e ritieni utile tale procedura impostata, vedi di implementarla direttamente in spaziometria.
potrebbe essere anche più veloce.
</u>

Codice:
Sub Main
	''''-------------------------------------------------------------------------------------------
	''''scelta combinazioni dall'ambo secco alla decina x ambo    ABASULmultiAmbo
	''''-------------------------------------------------------------------------------------------
	ReDim aVoci(10)
	ReDim aVociSel(10)
	Dim k
	Dim numeri
	Dim LenghtcicloT
	For k = 0 To 10
	If k < 2 Then	aVoci(k) = "----"
	If k = 2 Then	aVoci(k) = "Ambo"
	If k = 3 Then	aVoci(k) = "Terzina"
	If k = 4 Then	aVoci(k) = "Quartina"
	If k = 5 Then	aVoci(k) = "Cinquina"
	If k = 6 Then	aVoci(k) = "Sestina"
	If k = 7 Then	aVoci(k) = "Settina"
	If k = 8 Then	aVoci(k) = "Ottina"
	If k = 9 Then	aVoci(k) = "Novina"
	If k = 10 Then	aVoci(k) = "Decina"
	Next
	
	If ScegliDaLista(aVoci,aVociSel) > 0 Then	
		For k = 2 To 10
			If aVociSel(k) Then
		
	Do While numeri = ""
		numeri = InputBox("inserire " & k & "   numeri suddivisi da virgola ",,"")
						ReDim av2(0)
					Call SplitByChar(numeri,",",av2)
		qta = UBound(av2) + 1
		
		If numeri = "" Or qta <> k Then
			MsgBox("Mancano numeri o numeri errati  " & qta & "  " & k & "...." & numeri)
			numeri = ""
		Else
			Exit Do
		End If
	Loop	
			If k = 2 Then LenghtcicloT = 400.5
			If k = 3 Then LenghtcicloT = 136.6046511628
			If k = 4 Then LenghtcicloT = 69.8998768978
			If k = 5 Then LenghtcicloT = 42.9265011828
			If k = 6 Then LenghtcicloT = 28.7918133849
			If k = 7 Then LenghtcicloT = 20.9186742695
			If k = 8 Then LenghtcicloT = 15.9462278131
			If k = 9 Then LenghtcicloT = 12.596876878
			If k = 10 Then LenghtcicloT = 10.2283345991
			Call Scrivi(aVoci(k))
			Call Scrivi(numeri)
			End If
		Next
	End If
	
	
'''''	-----------------------------------------------------------------------------------------------------------------------------
		
	'''abasul10
	Dim sfile
	Dim records
	Dim art(1)
	Dim dif(900)
	Dim num(10)
	Dim anum(10)
	Dim t
	Dim Media
	r = InputBox("Inserire Ruota ",,1)
	capo = numeri

	Do While futuroins = ""
		futuroins = InputBox("Inserire Ritardo Futuro..",,"")
		If futuroins = "" Then
			MsgBox("Manca valore ritardo futuro")
		Else
			Exit Do
		End If
	Loop
	ReDim av2(0)
	Call SplitByChar(numeri,",",av2)
	qta = UBound(av2) + 1
	For i = 0 To qta - 1
	fs = i + 1
	num(fs) = av2(i)
	anum(fs) = av2(i)
	Next
	'''preimposta inizio estrazioni per ruote nate recentemente
	''' per nazionale imposta dal conc.n. 7440 altre ruote dal 3650
	dal = 1 ' inizio tutte le altre ruote
	If r = 12 Then dal = 7440 'inizio nazionale
	If r = 1 Then dal = 174 'inizio bari
	If r = 2 Then dal = 3649 'inizio cagliari
	If r = 4 Then dal = 3577 'inizio genova
	ReDim asvil(900)
	art(1) = r
	ctr = 0
	Iniz = dal
	ini = dal
	al = Iniz - 1
	ciclicompleti =(EstrazioneFin - dal)/LenghtcicloT
	parziale = Int(ciclicompleti)*LenghtcicloT
	intermed =((EstrazioneFin - dal) - parziale) + 1
	Call Messaggio(NomeRuota(r) & "...Elabora Combinazione richiesta...." & capo)
	
	tq = 0
	ReDim atitoli(6)
	' preimposto i titoli delle colonne
	atitoli(1) = " Riferimenti estraz.passato "
	atitoli(2) = " Ritardo "
	atitoli(3) = " Totale Ritardo "
	atitoli(4) = " Media Ritardo "
	atitoli(5) = " scarto md.quadratico "
	atitoli(6) = " Diff.smdq Prec."
	' inizializzo la tabella
	Call InitTabella(atitoli,1,"center",2,5)
	For Ini = Ini + 1 To EstrazioneFin
		ok = 0
		estratti = ""
		des2 = ""
		des1 = ""
		rambo = ""
		Call AvanzamentoElab(Ini,EstrazioneFin,k)
		' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
		ReDim aValori(6) '
	
			For h = 1 To 5
				For fr = 1 To 10
				If Int(num(fr)) = Estratt
 
possibile previsione ed applicazione di alcune regole:

Codice:
 Situazione [b][u]ruota di Bari</u>[/b]        dall'estrazione n.174/03.05.1874   all'estrazione n.8385/03.06.2011
Per i numeri richiesti....03,19,26,35,42,58,60,67,74,81
Ritardo Ambo Attuale......3 
Ritardo Ambo Max Storico..91
Ritardo Futuro inserito...45

 Elementi ritardo letti da statistica n. 808 
Cicli Completati..............802    Ritardo  
Naturale .....10.2283345991 Parziale.n.estrazioni.........8203.1243484782
 Ritardo Intermedio Ult.Ciclo..8.87565152179923


---------------------------------------------------------------------
Codice:
 Situazione ruota di Bari        dall'estrazione n.174/03.05.1874   all'estrazione n.8385/03.06.2011
 Per i numeri richiesti....04,11,27,39,46,53,60,62,78,85
 Ritardo Ambo Attuale......5
 Ritardo Ambo Max Storico..54
 Ritardo Futuro inserito...45
 Elementi ritardo letti da statistica n. 806
 Cicli Completati..............802    Ritardo Naturale .....10.2283345991
 Parziale.n.estrazioni.........8203.1243484782
 Ritardo Intermedio Ult.Ciclo..8.87565152179923








-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!
 
Rubino, sei formidabile!!!
Ad esempio, secondo la mia esperienza, attualmente tra le due previsioni che ci hai proposto sarebbe preferibile seguire più la prima che la seconda,
perché la media reale nel primo caso è: 10.3659; mentre nel secondo caso è: 10.3916
(la media reale della prima combinazione è quindi più vicina alla media terorica, che è: 10.228). In un post precedente a questo,
ti avevo spiegato che nella storia più ci saranno estrazioni
e più il livello della media reale di una previsione si avvicinerà
a quella teorica. Prendendo sempre in esame queste due previsioni, già quel minimo spostamento
decimale può essere determinante per stabilire il grado di
attendibilità tra l'una e l'altra previsione.

Un Saluto
 
Ciao rubino.

Nello script c'è un errore grave che oggi mi è sfuggito. Le sortite, a cominciare dalla terzina per ambo in poi,
devono tenere conto anche degli eventuali terni, quaterne o cinquine. Se in una data ad esempio è uscito un terno,
gli ambi devono essere conteggiati in base alla formazione della previsione
e aggiunti al totale (per una terzina "3 ambi"; per una quartina "6 ambi"; per una cinquina "10 ambi" e così via). Naturalmente anche
questi ambi che sono in un terno o in una quaterna o in una cinquina, insieme a tutti gli altri devono essere calcolati per la media reale
- che poi sarà confrontata con quella teorica - e quindi influiscono anche sul calcolo dello S.Q.M.

Oggi te la volevi cavare con poco lavoro, eh?....birbone! Sappi invece che qui c'è una spina, che quando sbagli ti punge il fianco:([V]:D
 
ciao abasul

c'erano più errori, in giro per lo script.
purtroppo l'errore è di tipo strutturale, perchè va a modificare tutti i calcoli fatti all'interno.

ho cercato di correggere e di ripetere, con questo script, la combinazione di ambo su Milano 02,74

per vedere di ottenere gli stessi calcoli in output.

(la media reale) seconda riga è data dal n.estrazione attuale/totambi??????

se si, mi pare che i dati corrispondano tra i 2 script (ambosecco) e (multi)

di conseguenza, anche per le combinazioni di più numeri, dovrebbero andare bene.

ho fatto in modo di conteggiare il nr.di ambi giusto quando è sortiti un terno,quaterna,cinquina.

infatti ho messo in alto il TOTALE AMBI</u> rilevati e corrispondono alla statistica veloce di spaziometria.

nel caso della 1a combinazione (decina che ho postato) il TOTALE AMBI è 986, dato controllato con spaziometria.


comunque, visto l'influenza del calcolo su tutti i valori, se fai qualche controllo ulteriore è sempre opportuno.


se puoi cancellare il thread

Per LuigiB da rubino e abasul


in quanto lo script postato, purtroppo è errato, ti ringrazio.
lo metteremo solo quando il tutto sarà certo e controllato
.









Codice:
Sub Main
	''''-------------------------------------------------------------------------------------------
	''''scelta combinazioni dall'ambo secco alla decina x ambo    ABASULmultiAmbo
	''''-------------------------------------------------------------------------------------------
	ReDim aVoci(10)
	ReDim aVociSel(10)
	Dim k
	Dim numeri
	Dim LenghtcicloT
	For k = 0 To 10
	If k < 2 Then	aVoci(k) = "----"
	If k = 2 Then	aVoci(k) = "Ambo"
	If k = 3 Then	aVoci(k) = "Terzina"
	If k = 4 Then	aVoci(k) = "Quartina"
	If k = 5 Then	aVoci(k) = "Cinquina"
	If k = 6 Then	aVoci(k) = "Sestina"
	If k = 7 Then	aVoci(k) = "Settina"
	If k = 8 Then	aVoci(k) = "Ottina"
	If k = 9 Then	aVoci(k) = "Novina"
	If k = 10 Then	aVoci(k) = "Decina"
	Next
	
	If ScegliDaLista(aVoci,aVociSel) > 0 Then	
		For k = 2 To 10
			If aVociSel(k) Then
		
	Do While numeri = ""
		numeri = InputBox("inserire " & k & "   numeri suddivisi da virgola ",,"")
						ReDim av2(0)
					Call SplitByChar(numeri,",",av2)
		qta = UBound(av2) + 1
		
		If numeri = "" Or qta <> k Then
			MsgBox("Mancano numeri o numeri errati  " & qta & "  " & k & "...." & numeri)
			numeri = ""
		Else
			Exit Do
		End If
	Loop	
			If k = 2 Then LenghtcicloT = 400.5
			If k = 3 Then LenghtcicloT = 136.6046511628
			If k = 4 Then LenghtcicloT = 69.8998768978
			If k = 5 Then LenghtcicloT = 42.9265011828
			If k = 6 Then LenghtcicloT = 28.7918133849
			If k = 7 Then LenghtcicloT = 20.9186742695
			If k = 8 Then LenghtcicloT = 15.9462278131
			If k = 9 Then LenghtcicloT = 12.596876878
			If k = 10 Then LenghtcicloT = 10.2283345991
			Call Scrivi(aVoci(k))
			Call Scrivi(numeri)
			End If
		Next
	End If
	
	
'''''	-----------------------------------------------------------------------------------------------------------------------------
		
	'''abasul10
	Dim sfile
	Dim records
	Dim art(1)
	Dim dif(2000)
	Dim num(10)
	Dim anum(10)
	Dim t
	Dim t2
	Dim Media
	r = InputBox("Inserire Ruota ",,1)
	capo = numeri

	Do While futuroins = ""
		futuroins = InputBox("Inserire Ritardo Futuro..",,"")
		If futuroins = "" Then
			MsgBox("Manca valore ritardo futuro")
		Else
			Exit Do
		End If
	Loop
	ReDim av2(0)
	Call SplitByChar(numeri,",",av2)
	qta = UBound(av2) + 1
	For i = 0 To qta - 1
	fs = i + 1
	num(fs) = av2(i)
	anum(fs) = av2(i)
	Next
	'''preimposta inizio estrazioni per ruote nate recentemente
	''' per nazionale imposta dal conc.n. 7440
	dal = 1 ' inizio tutte le altre ruote
	If r = 12 Then dal = 7440 'inizio nazionale
	If r = 1 Then dal = 174 'inizio bar
 
Ciao rubino.

Ho dato una prima occhiata al tuo ultimo script e
ho constatato che adesso gli eventi risulterebbero essere corretti "addirittura credo che avrai tolto anche delle estrazioni non ritenute valide
perché effettuate durante il periodo bellico" ma ora bisogna
correggere la divisione del totale al quadrato
riferito al ritardo attuale e a quelli futuri. Prendendo ad esempio la terzina per ambo
02,32,62 di Bari, la prima divisione è stata esguita correttamente, con 57 eventi, mentre per ricavare gli altri dati le divisioni le
avresti dovute eseguire considerando 58 eventi e non 56 (naturalmente
per ottenere i dati corretti, sia per il ritardo attuale
che per i ritardi futuri, si dovranno includere o il ritardo
attuale o il ritardo futuro;
fare la somma e dividere per 58 per ricavare la media; rifare quindi tutti i conteggi d'accapo e dividere le differenze al quadrato per 58).
Comunque se dovessi trovare ancora altre imprecisioni ti farò sapere.

Tu sai benissimo che nel forum le cancellazioni non si possono
eseguire. Io allora direi di sostituire per LuigiB la dicitura
di cui prima con quella ultima che hai fatto, così lui ha anche
modo per riflettere con il tempo necessario se acconsentire o no alle nostre richieste.


Un Saluto
 
corretto l'errore :

Codice:
Sub Main
	''''-------------------------------------------------------------------------------------------
	''''scelta combinazioni dall'ambo secco alla decina x ambo    ABASULmultiAmbo
	''''-------------------------------------------------------------------------------------------
	ReDim aVoci(10)
	ReDim aVociSel(10)
	Dim k
	Dim numeri
	Dim LenghtcicloT
	For k = 0 To 10
	If k < 2 Then	aVoci(k) = "----"
	If k = 2 Then	aVoci(k) = "Ambo"
	If k = 3 Then	aVoci(k) = "Terzina"
	If k = 4 Then	aVoci(k) = "Quartina"
	If k = 5 Then	aVoci(k) = "Cinquina"
	If k = 6 Then	aVoci(k) = "Sestina"
	If k = 7 Then	aVoci(k) = "Settina"
	If k = 8 Then	aVoci(k) = "Ottina"
	If k = 9 Then	aVoci(k) = "Novina"
	If k = 10 Then	aVoci(k) = "Decina"
	Next
	
	If ScegliDaLista(aVoci,aVociSel) > 0 Then	
		For k = 2 To 10
			If aVociSel(k) Then
		
	Do While numeri = ""
		numeri = InputBox("inserire " & k & "   numeri suddivisi da virgola ",,"")
						ReDim av2(0)
					Call SplitByChar(numeri,",",av2)
		qta = UBound(av2) + 1
		
		If numeri = "" Or qta <> k Then
			MsgBox("Mancano numeri o numeri errati  " & qta & "  " & k & "...." & numeri)
			numeri = ""
		Else
			Exit Do
		End If
	Loop	
			If k = 2 Then LenghtcicloT = 400.5
			If k = 3 Then LenghtcicloT = 136.6046511628
			If k = 4 Then LenghtcicloT = 69.8998768978
			If k = 5 Then LenghtcicloT = 42.9265011828
			If k = 6 Then LenghtcicloT = 28.7918133849
			If k = 7 Then LenghtcicloT = 20.9186742695
			If k = 8 Then LenghtcicloT = 15.9462278131
			If k = 9 Then LenghtcicloT = 12.596876878
			If k = 10 Then LenghtcicloT = 10.2283345991
			Call Scrivi(aVoci(k))
			Call Scrivi(numeri)
			End If
		Next
	End If
	
	
'''''	-----------------------------------------------------------------------------------------------------------------------------
		
	'''abasul10
	Dim sfile
	Dim records
	Dim art(1)
	Dim dif(2000)
	Dim num(10)
	Dim anum(10)
	Dim t
	Dim t2
	Dim Media
	r = InputBox("Inserire Ruota ",,1)
	capo = numeri

	Do While futuroins = ""
		futuroins = InputBox("Inserire Ritardo Futuro..",,"")
		If futuroins = "" Then
			MsgBox("Manca valore ritardo futuro")
		Else
			Exit Do
		End If
	Loop
	ReDim av2(0)
	Call SplitByChar(numeri,",",av2)
	qta = UBound(av2) + 1
	For i = 0 To qta - 1
	fs = i + 1
	num(fs) = av2(i)
	anum(fs) = av2(i)
	Next
	'''preimposta inizio estrazioni per ruote nate recentemente
	''' per nazionale imposta dal conc.n. 7440
	dal = 1 ' inizio tutte le altre ruote
	If r = 12 Then dal = 7440 'inizio nazionale
	If r = 1 Then dal = 174 'inizio bari
	If r = 2 Then dal = 3649 'inizio cagliari
	If r = 4 Then dal = 3577 'inizio genova
	ReDim asvil(2000)
	art(1) = r
	ctr = 0
	Iniz = dal
	ini = dal
	al = Iniz - 1
	ciclicompleti =(EstrazioneFin - dal)/LenghtcicloT
	parziale = Int(ciclicompleti)*LenghtcicloT
	intermed =((EstrazioneFin - dal) - parziale) + 1
	Call Messaggio(NomeRuota(r) & "...Elabora Combinazione richiesta...." & capo)
	
	tq = 0
	ReDim atitoli(6)
	' preimposto i titoli delle colonne
	atitoli(1) = " Riferimenti estraz.passato "
	atitoli(2) = " Ritardo "
	atitoli(3) = " Totale Ritardo "
	atitoli(4) = " Media Ritardo "
	atitoli(5) = " scarto md.quadratico "
	atitoli(6) = " Diff.smdq Prec."
	' inizializzo la tabella
	Call InitTabella(atitoli,1,"center",2,5)
	For Ini = Ini + 1 To EstrazioneFin
		ok = 0
		estratti = ""
		des2 = ""
		des1 = ""
		rambo = ""
		Call AvanzamentoElab(1,EstrazioneFin,ini)
		' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
		ReDim aValori(6) '	
			For h = 1 To 5
				For fr = 1 To 10
				If Int(num(fr)) > 0 And Int(num(fr)) = Estratto(Ini,r,h) Then
					ok = ok + 1
					des2 = des2 & Format2(Estratto(Ini,r,h)) & " "
				End If
				Next				
				estratti = estratti & Format2(Estratto(Ini,r,h)) & " "
			Next
			If ok >= 2 Then
			If ok = 2 Then Totambi = Totambi + 1 End If
			If ok = 3 Then Totambi = Totambi + 3 End If
			If ok = 4 Then Totambi = Totambi + 6 End I
 
(naturalmente
per ottenere i dati corretti, sia per il ritardo attuale
che per i ritardi futuri, si dovranno includere agli eventi
o il ritardo attuale o il ritardo futuro e ripetere 2 volte l'ambo in data dove è uscito il terno, con estraz.0, perché uno già l'hai incluso riportando l'evento;
fare la somma e dividere per 58, per ricavare la media; rifare quindi tutti i conteggi d'accapo e dividere le differenze al quadrato, per 58).
Lo script adesso tiene conto di quanto ho scritto sopra, oppure
ti sei limitato ad apportare la divisione per 58 con conteggi
relativi all'ultimo evento + il ritardo, che è sbagliato?
 
ab6p.jpg
[/URL]

Uploaded with ImageShack.us[/img]

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!
 
(naturalmente
per ottenere i dati corretti, sia per il ritardo attuale
che per i ritardi futuri, si dovranno includere agli eventi
o il ritardo attuale o il ritardo futuro e ripetere 2 volte l'ambo in data dove è uscito il terno, con estraz.0, perché uno già l'hai incluso riportando l'evento;</u>fare la somma e dividere per 58, per ricavare la media; rifare quindi tutti i conteggi d'accapo e dividere le differenze al quadrato, per 58 ed infine eseguire la radice quadrata).
Lo script adesso tiene conto di quanto ho scritto sopra, oppure
ti sei limitato ad apportare la divisione per 58 con conteggi
relativi all'ultimo evento + il ritardo, che è sbagliato?
 
cioè, vuoi sapere in quale concorso è uscito il terno e vuoi che venga evidenziato nella prima tabella (dettaglio eventi e riscontri)??





-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!
 
Si, si.
Solo così si ottengono risultati esatti. Perché la media deve effettuare i calcoli anche considerando i due ambi inclusi e che erano tre per il terno in terzina di cui uno già l'hai considerato per aver inserito quell'evento. Naturalmente le stesso discorso deve essere applicato anche ad esempio per gli ambi usciti
per una quartina per ambo: un'ambo già lo consideri perché riporti l'evento, ma poi ne dovrai ripetere, sempre in data dove è uscito il terno,
altri 5 ambi con 0 estraz.
 
lo script già conteggia il nr.di ambi in funzione dell'esito che si è avuto

le righe di calcolo sono queste.

Codice:
			If ok = 2 Then Totambi = Totambi + 1:avalori(7) = "A" End If
			If ok = 3 Then Totambi = Totambi + 3:avalori(7) = "T"  End If
			If ok = 4 Then Totambi = Totambi + 6:avalori(7) = "Q"  End If
			If ok = 5 Then Totambi = Totambi + 10:avalori(7) = "C"  End If



nelle 57 presenze sono già conteggiati i 3 ambi dell'unico terno che si è avuto il 2502 del 14.12.1918

riprenditi un'attimo lo script che ho postato x luigi

adesso devo uscire, pomeriggio ci riguardo.

ciao



-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
Indietro
Alto