x rubino

[abasul]

Ciao rubino.

Lo script sono riuscito a farlo partire però abbiamo sempre un piccolo errore che riguarda il 2° e il 3° S.Q.M.
Da quello che ho potuto rilevare, questi errori sono da individuarli nelle operazioni che portano alla somma totale al quadrato. Adesso te ne do la prova:

Dallo script ultimo che ci hai postato, in cui ora si può importare anche dal programma "Spaziometria" tutti gli eventi che ci riguardano per la previsione, risultano questi dati riferiti alla mia previsione che ho postato questa mattina:

il primo S.Q.M è esatto;

errato
per il 2° 4716/277/1088333</u>/17/64019,5882352941/253,020924500908
errato
per il 3° 4785/281/1143258</u>/17/67250,4705882353/259,326956925491


mentre i dati veritieri devono essere:

esatto
per il 2° 4716/277/1097497/17/64559/254,083937034248
esatto
per il 3° 4785/281/1155741/17/67985/260,73888222872

Non vorrei che questi errori derivino da calcoli ricavati con la media del 1° S.Q.M, relativa cioè a 16 eventi, mentre solo nella schermata la media dei 17 eventi appare esatta?

Ho fatto caso che lo script non supporta più di 100 eventi. Rubino, si potrebbe per favore portare gli eventi immessi di una previsione perlomeno fino a 1000, così si potrebbe calcolare anche lo S.Q.M. di previsioni di 4-5-6-7-8-9 numeri?

Un saluto

 

[Roby]

non riesco a capire dove è sbagliato,
io ottengo questi dati
ed il modo di calcolarli mi sembra giusto.


controllare la figura o scarica foglio excel da link

[/URL]

Uploaded with ImageShack.us[/img]


foglio excel al link

http://www.megaupload.com/?d=KT34IGXA





come fai ad ottenere questo valore???
per il 2° 4716/277/1097497/17/64559/254,083937034248

se il ritardo attuale è 667
se il n.elementi è diventato 17
la media 277,,4118

se lo scostamento è 667-277,4118
è di 389,5882
se il quadrato di 389,5882 * 389,5882
è di 151779

se il precedente era 936232,9 ed è uguale ad entrambi
la somma dei 17 elementi quadrati è
936232,9 + 151779 = 1088012 valore che ottenevo precedentemente</u>



dov'è l'errore?

puoi indicarlo?

 

[abasul]

come fai ad ottenere questo valore???
per il 2° 4716/277/1097497/17/64559/254,083937034248

se il ritardo attuale è 667
se il n.elementi è diventato 17
la media 277,,4118

se lo scostamento è 667-277,4118
è di 389,5882
se il quadrato di 389,5882 * 389,5882
è di 151779

se il precedente era 936232,9 ed è uguale ad entrambi
la somma dei 17 elementi quadrati è
936232,9 + 151779 = 1088012 valore che ottenevo precedentemente



Tu ti sbagli quando riproponi la somma precedente che è relativa al primo S.Q.M. 936232,9 tutto calcolato con operazioni in base alla prima media 253,0625, che era stata ricavata per 16 eventi.
Invece per ottenere lo S.Q.M. veritiero sia per il ritardo che per il ritardo futuro, è come se il programma dovesse rifare d'accapo il calcolo, includendo cioè 17 eventi di cui il 17° è il ritardo di 667 estrazioni per il 2° S.Q.M. o 736 per ricavare il 3° S.Q.M.. In questo caso il calcolo nuovo ricaverà il totale della somma al quadrato in base alla nuova media, ossia 277,4118.

 

[miki55]

...scusa abasul se mi intrometto tra te e rubino
mi dici solamente come fai a calcolare il
RITARDO FUTURO?
è l'unico passaggio che non ho capito bene.
Fammi l'esempio con l'ambo 8.50 su CA.
Inoltre questi parametri possono essere utilizzati anche per
gli estratti?
Complimenti per il lavoro che state svolgendo con
rubino (...il migliore)
grazie

 

[abasul]

Ciao miki55.

Appena rubino riesce a correggere questo piccolo errore, deciderà lui, su mia richiesta, se voler includere nello script anche come ricavare la previsione massima futura. Per quanto riguarda gli estratti, al momento lo S.Q.M. di una previsione per estratto non si può ricavare perché lo script supporta fino a 100 eventi. Se ci sarà la possibilità di poter inserire nello script oltre 1000 eventi allora ciò sarà possibile.

 

[Roby]

okey corretto!

fai i controlli dovuti e fammi sapere.
il limite l'ho messo a 900 ritardi</u>

'ABASUL   calcola scarto medio quadratico con formula guidata di una serie di ritardi precedenti - attuale - futuro
'''ABASUL3
Sub Main()
	Dim numeri
	Dim nu(90)
	Dim rita
	Dim ritf
	Call ScegliNumeri(nu)
	For h = 1 To UBound(nu)
		numeri = numeri & nu(h) & " "
	Next
	rita = InputBox("Inserisci ritardo attuale...",,"")
	ritf = InputBox("Inserisci ritardo futuro....",,"")
	Dim nome
	nome = "C:\Documents And Settings\Pietro\Dati applicazioni\spaziometria\temp\ListView2.txt"
	lancio = Getleggifile(nome,numeri,rita,ritf)
End Sub
''''-------------------------------------------------------------------------------------------------------------------------
Function Getleggifile(nome,numeri,rita,ritf)
	'leggo file(tutti i record dello sviluppo ridotto richiesto)
	Dim namefile
	Dim sFile
	ReDim aRighe(0)
	ReDim asvil(0)
	Dim art(1)
	Dim dif(900)
	Dim xbas
	Dim t
	Dim Media
	Dim r
	namefile = nome
	sFile = namefile
	LeggiRigheFileDiTesto sFile,asvil
	'ricerca last record e qta tot.record.presenti nel file
	xbas = UBound(asvil)
	''''''per controllo iniziale suddivisione campi e righe
	For u = 1 To xbas
		'scompongo riga con campi divisi da separatore
		Dim d
		ReDim Nums(10)
		ReDim aV(0)
		Call SplitByChar(asvil(u),";",aV) ' scompongo la decina
		Nums(1) = aV(0)
		Nums(2) = aV(1)
		Nums(3) = aV(2)
		Nums(4) = aV(3)
		Nums(5) = aV(4)
		Nums(6) = aV(5)
		nus = Nums(1) & " " & Nums(2) & " " & Nums(3) & " " & Nums(4) & " " & Nums(5) & " " & Nums(6)
		Scrivi nus
		tq = tq + CLng(aV(4))
		r = aV(2)
	Next
	''''''''-----------------------------------------------------------------------------------------------------------
	t = xbas
	Media = tq / t
	t2 = t + 1
	''' per completare il quadro informazioni
	art(1) = aV(2)
	ColoreTesto 2
	Scrivi " Situazione ruota di " & r
	Scrivi " Ritardo Attuale...." & rita
	Scrivi " Ritardo Futuro....." & ritf
	Scrivi " Elementi ritardo letti da statistica n. " & t
	ColoreTesto 1
	Scrivi " Per i numeri richiesti...." & numeri
	ColoreTesto 0
	Scrivi " Calcola Scarto Medio Quadratico in 3 Eventi distinti "
	Scrivi "_____________________________________________________________________"
	ReDim atitoli(30)
	' preimposto i titoli delle colonne
	atitoli(1) = "  Ruota           "
	atitoli(2) = "  Numeri          "
	atitoli(3) = "  R.attuale "
	atitoli(4) = "  R.Futuro  "
	atitoli(5) = " Somma RPrec "
	atitoli(6) = " Media Rt.prec."
	atitoli(7) = " Smq Rt.Prec."
	atitoli(8) = " Somma RAtt. "
	atitoli(9) = " Media Rt.Att. "
	atitoli(10) = " Smq Rt.Att. "
	atitoli(11) = " Somma RFut. "
	atitoli(12) = " Media Rt.Futuro"
	atitoli(13) = " Smq Rt.Futuro"
	' inizializzo la tabella
	Call InitTabella(atitoli,1,"center",2,5)
	' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
	ReDim aValori(30) '
	aValori(1) = r
	aValori(2) = numeri
	aValori(3) = rita
	aValori(4) = ritf
	For z = 1 To t
		ReDim av2(0)
		Call SplitByChar(asvil(z),";",av2)
		If Int(Media) > CLng(av2(4)) Then
			dif(z) = Media - CLng(av2(4))
		Else
			dif(z) = CLng(av2(4)) - Media
		End If
		quadro = dif(z) * dif(z)
		Totqua = Totqua + CLng(quadro)
		''''''		Scrivi z & "  ra." & av2(4) & "  md." & Media & "  scostamento..." & dif(z) & " quadro.." & quadro
	Next
	''''--------------------------------------------------------------------------------------------------------------------
	'''calcola sqm e medie
	smq1 = Sqr(Totqua/t)
	ColoreTesto 2
	Scrivi
	Scrivi " Esempio: FORMULA APPLICATA:    Totale...." & Totqua & "./..n.elementi ritardo..." & t & ".....media..." & round((Totqua/t),6) & "...radice quadrata..." & smq1
	Scrivi
	ColoreTesto 0
	tq0 = Totqua
	dp0 = quadro
	Media0 = round(Totqua/t)
	md1 =(tq / t)
	te1 = tq
	aValori(5) = tq
	te2 = tq + rita
	te3 = tq + ritf
	md2 =(te1 + rita) / t2
	md3 =(te1 + ritf) / t2
	'''''''''----------------------------------------

 

[abasul]

Mille grazie grande rubi, adesso è tutto OK.

Senti, miki55 mi ha chiesto se lo S.Q.M. può essere calcolato anche per l'estratto, ma per ottenere ciò lo script dovrebbe supportare oltre 1000 eventi. Ciò sarebbe possibile?
E poi mi ha chiesto come faccio a stabilire un limite massimo entro cui la previsione dovrebbe sfaldarsi (tu sai benissimo che questa è solo una previsione statistica perché poi se un ritardo è fuori controllo non esite più statistica che tenga). Te la sentiresti di inserire per lo script altri due dati ricavati da semplici calcoli, per stabilire il massimo ritardo previsto "con lo S.Q.M." per qualsiasi previsione scelta dall'utente?
Di nuovo molte grazie e complimenti per la tua bravura.

 

[Roby]

si può provare

faccio un'altro script per l'estratto
ma su ruota unica o su più ruote?

perchè se è su ruota unica i casi sono più o meno quantificabili
su più ruote diventano numerosissimi.

per leggerli nel file non è un problema

certo non posso elencarli in testa, come l'attuale script relativo agli ambi, verrebbe una lista molto ampia con in fondo il riepilogo dei dati.

in questo caso metterei come output solo il riepilogo finale

ed eventualmente chiedere all'utente se vuole invece tutto il dettaglio, ma a mio avviso sarebbe superfluo, perchè il programma spaziometria già elenca tutti i casi dove sono usciti.


fammi un'esempio di cosa si deve aggiungere.



-----------------------------
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!

 

[abasul]

Io al momento devo andre via perché ho un impegno. Domani mattina ti faccio sapere, va bene?

Per la previsione estratti secondo me andrebbe bene anche solo implementare lo script attuale, che però dovrebbe supportare l'immissione di oltre 1000-1100 eventi e quindi per sola ruota. Poi per le previsioni su tutte le ruote vedremo se ne possiamo creare un altro di script. Scusami ma adesso devo proprio andare, ci risentiamo domani mattina.
Un saluto

 

[miki55]

...ragazzi fatemi capire xkè non riesco a scaricarlo.
Rubino cosa stò omettendo?





Uploaded with ImageShack.us

 

[Roby]

miki

cerca il file che hai esportato da spaziometria!
il suo nome è questo

ListView2.txt


devi modificare il percorso
attualmente sul mio pc è scritto in questo modo, ma sul tuo sarà sicuramente diverso


nome = "C:\Documents And Settings\Pietro\Dati applicazioni\spaziometria\temp\ListView2.txt"






-----------------------------
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!

 

[miki55]

miki

cerca il file che hai esportato da spaziometria!
il suo nome è questo

ListView2.txt


devi modificare il percorso
attualmente sul mio pc è scritto in questo modo, ma sul tuo sarà sicuramente diverso


nome = "C:\Documents And Settings\Pietro\Dati applicazioni\spaziometria\temp\ListView2.txt"







...scusa la mia ignoranza, ma non c'è nella cartella "TEMP"
o nelle altre. Non la trovo...

 

[Roby]

facendo questa procedura sul mio pc, spaziometria mi genera un file txt nel percorso che ti ho scritto.

il bottone da pigiare è esporta, quello in basso a sx.</u>


img]

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!

 

[bergie]

miki55
1)statistatica veloce, come ha spiegato rubino
2)salva in basso a sinistra come file di testo
avrà in nome di ListView2.txt
3)apri directory dati cerca la cartella temp e
troverai il file
4)copia l'indirizzo sopra e aggiungi \ListView2.txt
5)lancia lo script e cambia dove c'è scritto
nome= "C:\Documents And Settings\Pietro\Datiapplicazioni\spaziometria\temp\ListView2.txt"
con il tuo
spero di essere stato chiaro.
ciao

 

[miki55]

Grazie bergie e rubino: MISSIONE COMPIUTA!
...ora fatemi capire come si ottiene il
RITARDO FUTURO...
grazie di nuovo

 

[abasul]

Ciao rubino.

Come ti avevo preannunciato ieri, ora cerchiamo di inserire nello script alcuni indici, ricavati con lo S.Q.M, che in linea di massima ci diranno quale potrà essere il massimo ritardo che raggiungerà il prossimo evento di una previsione.

Attualmente lo script ricava tre indici di S.Q.M:

il primo relativo all'ultimo evento sortito;

il secondo relativo al ritardo attuale;

il terzo relativo ad una previsione futura.

Per prima cosa, dovresti effettuare due semplici operazioni per le prime due medie relative all'ultima sortita e a quella attuale (non considerando dunque il ritardo futuro).
Ad esempio prendendo in esame la previsione 8.50 di Cagliari, si dovranno eseguire: media 253,0625-S.Q.M 241,9 = 11.1625 e media 253,0625+241,9 = 494,9625; media att. 277,4706-S.Q.M 254,17 = 23.3006 e 277,4706+254,17 = 531.6406 (se per altre previsioni si trova che l'indice dello S.Q.M è superiore alla media, allora lo script dovrà ovviamente sottrarre lo S.Q.M alla media per ricavare il primo indice dei due).
Ritornando al discorso di prima, tu dovrai mostrarci sotto allo specchietto che mostra attualmente lo script, per il primo caso l'indice 11.1625 di colore giallo, l'indice 253.0625 che è la media di colore verde, e l'indice 494.9625 di colore rosso;
e nel rigo ancora sotto, l'indice 23.3006 di colore giallo, l'indice 277.4706 di colore verde, e l'indice 531.6406 di colore rosso.

I valoti sottratti e sommati alla media, non sono altro che le medie dei minimi e dei massimi ritardi variabili delle sortite.

Se questi valori ricavati sono riferiti alle sortite per ambo della previsione</u>, la media reale di una previsione invece si calcola dividendo alla somma totale di tutte le estrazioni il numero degli eventi sortiti.

Quindi si avrà che per l'ultima sortita della nostra previsione la media reale era 482.06, perché in quell'evento il totale delle estrazioni era 7713 (7713:16); e 493, quello attuale, perché il totale delle estrazioni aggiornate è 8381 (8381:17).
Il primo valore 482.06 specificato con "media reale", dovrà comparire all'inizio della riga che mostra gli indici delle medie variabili dei ritardi dell'ultimo evento;
il secondo valore 493 sempre specificato con "media reale", dovrà comparire all'inizio della seconda riga che mostra gli indici variabili delle medie dei ritardi del ritardo attuale;

Per stabilire quale sarà il valore massimo del ritardo che dovrà uscire nel prossimo evento, bisogna prendere la media dei massimi ritardi corrispondenti al ritardo attuale, cioè 531.6406 (vedi sopra) e sommarci quello che era lo S.Q.M, e cioè 254.17. Quindi il valore risultante è: 785.8106.

Ora, poiché il ritardo attuale della nostra previsione e 668, il suo limine di attesa sarà: 785.8106-668 = 117.8106 estrazioni. Qualora la previsione oltrepassasse questo limite, essa statisticamente sarebbe fuori controllo.

Sapendo che la media reale attuale della previsione è 493, e cioè molto al di sopra di quella che è la media teorica "400.5", allora si presume che questa previsione "8.50 a Cagliari" possa sfaldarsi, conseguendo l'ambo secco, molto prima del ritardo di 118 estrazioni.

 

[Roby]

vi ricordo di collaudarlo.

'ABASUL   calcola scarto medio quadratico con formula guidata di una serie di ritardi precedenti - attuale - futuro
'''ABASUL4
Sub Main()
	Dim numeri
	Dim nu(90)
	Dim rita
	Dim ritf
	Call ScegliNumeri(nu)
	For h = 1 To UBound(nu)
		numeri = numeri & nu(h) & " "
	Next
	rita = InputBox("Inserisci ritardo attuale...",,"")
	ritf = InputBox("Inserisci ritardo futuro....",,"")
	Dim nome
	nome = "C:\Documents And Settings\Pietro\Dati applicazioni\spaziometria\temp\ListView2.txt"
	lancio = Getleggifile(nome,numeri,rita,ritf)
End Sub
''''-------------------------------------------------------------------------------------------------------------------------
Function Getleggifile(nome,numeri,rita,ritf)
	'leggo file(tutti i record dello sviluppo ridotto richiesto)
	Dim namefile
	Dim sFile
	ReDim aRighe(0)
	ReDim asvil(0)
	Dim art(1)
	Dim dif(900)
	Dim xbas
	Dim t
	Dim Media
	Dim r
	namefile = nome
	sFile = namefile
	LeggiRigheFileDiTesto sFile,asvil
	'ricerca last record e qta tot.record.presenti nel file
	xbas = UBound(asvil)
	''''''per controllo iniziale suddivisione campi e righe
	For u = 1 To xbas
		'scompongo riga con campi divisi da separatore
		Dim d
		ReDim Nums(10)
		ReDim aV(0)
		Call SplitByChar(asvil(u),";",aV) ' scompongo la decina
		Nums(1) = aV(0)
		Nums(2) = aV(1)
		Nums(3) = aV(2)
		Nums(4) = aV(3)
		Nums(5) = aV(4)
		Nums(6) = aV(5)
		nus = Nums(1) & " " & Nums(2) & " " & Nums(3) & " " & Nums(4) & " " & Nums(5) & " " & Nums(6)
		Scrivi nus
		tq = tq + CLng(aV(4))
		r = aV(2)
		If u = xbas Then
			ColoreTesto 1
			ultusc = Left(aV(1),5)
			Scrivi "ultima uscita..n.conc.." & Left(aV(1),5),1
			ColoreTesto 0
			Mediarealep = Int(Left(aV(1),5)) / u
			Mediarealea = EstrazioneFin /(u + 1)
		End If
	Next
	''''''''-----------------------------------------------------------------------------------------------------------
	t = xbas
	Media = tq / t
	t2 = t + 1
	''' per completare il quadro informazioni
	art(1) = aV(2)
	ColoreTesto 2
	Scrivi " Situazione ruota di " & r
	Scrivi " Ritardo Attuale...." & rita
	Scrivi " Ritardo Futuro....." & ritf
	Scrivi " Elementi ritardo letti da statistica n. " & t
	ColoreTesto 1
	Scrivi " Per i numeri richiesti...." & numeri
	ColoreTesto 0
	Scrivi " Calcola Scarto Medio Quadratico in 3 Eventi distinti "
	Scrivi "_____________________________________________________________________"
	ReDim atitoli(30)
	' preimposto i titoli delle colonne
	atitoli(1) = "  Ruota           "
	atitoli(2) = "  Numeri          "
	atitoli(3) = "  R.attuale "
	atitoli(4) = "  R.Futuro  "
	atitoli(5) = " Somma RPrec "
	atitoli(6) = " Media Rt.prec."
	atitoli(7) = " Smq Rt.Prec."
	atitoli(8) = " Somma RAtt. "
	atitoli(9) = " Media Rt.Att. "
	atitoli(10) = " Smq Rt.Att. "
	atitoli(11) = " Somma RFut. "
	atitoli(12) = " Media Rt.Futuro"
	atitoli(13) = " Smq Rt.Futuro"
	' inizializzo la tabella
	Call InitTabella(atitoli,1,"center",2,5)
	' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
	ReDim aValori(30) '
	avalori(1) = r
	avalori(2) = numeri
	avalori(3) = rita
	avalori(4) = ritf
	For z = 1 To t
		ReDim av2(0)
		Call SplitByChar(asvil(z),";",av2)
		If Int(Media) > CLng(av2(4)) Then
			dif(z) = Media - CLng(av2(4))
		Else
			dif(z) = CLng(av2(4)) - Media
		End If
		quadro = dif(z) * dif(z)
		Totqua = Totqua + CLng(quadro)
		''''''		Scrivi z & "  ra." & av2(4) & "  md." & Media & "  scostamento..." & dif(z) & " quadro.." & quadro
	Next
	''''--------------------------------------------------------------------------------------------------------------------
	'''calcola sqm e medie
	smq1 = Sqr(Totqua/t)
	ColoreTesto 2
	Scrivi
	Scrivi " Esempio: FORMULA APPLICATA:    Totale...." & Totqua & "./..n.elementi ritardo..." & t & ".....media..." & round((Totqua/t),6) & "...radice quadrata..." & smq1
	Scrivi
	ColoreTesto 0
	tq0 = Totqua
	dp0 = quadro
	Media0 = round(Totqua/t)
	md1 =(tq / t)
	te1 = tq
	avalori(5) =

 

[abasul]

Rubi sei grande!!!!!!!!
Non trovo più aggettivi per definire la tua bravura. Grazie di cuore per la disponibilità che ci offri gratuitamente a noi appassionati del Lotto.

La scritta azzurra che compare alla fine:
"Sapendo che la media reale attuale della previsione... ecc. ecc." la sostituiamo con:
"Quando il n.Estrazioni di Attesa è preceduto dal segno meno, ciò significa che la previsione è fuori controllo statistico e pertanto è consigliabile non giocarla perché il suo ritardo futuro può arrivare ad un livello molto alto".

 

[miki55]

ciao abasul complimenti ad entrambi,
ora però auitateci a capire
esempio dell'ambo 8.50 su CA

RITARDO ATTUALE: 667 (facile risalire)

ma il....
RITARDO FUTURO: 736 (come viene ottenuto per le furure previsioni?)

 

[bergie]

ciao rubino per prima cosa complimenti per la bravura nel
fare gli script e l'altruismo che dimostri, bravo anche abasul
per gli studi interessanti che proponi.
chiedo se è giusta l'immagine dello script che allego, non mi trovo
con i calcoli di abasul che ha messo sopra.
ciao