x rubino da abasul

abasul · 7 Giugno 2011

Rubino, ecco quali sarebbero dovuti essere la media e lo S.Q.M
in data dove si era verificato il terno. Confrontando questi dati
con ciò che ci fornisce attualmente lo script, sempre in quella data, c'è questa discrepanza: i dati veritieri sono questi qui sotto,
mentre quelli errati sono quelli che attualmente ci
fornisce lo script, e che sono:
media 121,6842 e S.Q.M. 141.11.

Questa discrepanza è dovuta al fatto
che si, è vero che nel dato figurativo delle estrazioni importate
dal programma spaziometria vi sono inclusi in maniera figurativa
anche gli altri due ambi nel totale eventi, ma essi non comparendo nel prospetto, non sono conteggiati per ricavare una media e uno
S.Q.M. veritieri.

Situazione ruota di Bari
Elementi ritardo inseriti n. 19
Per i numeri richiesti....2 32 62
Calcola Scarto Medio Quadratico
_____________________________________________________________________
1 ra.158 md.121,684210526316 scostamento...36,3157894736842 quadro..1318,83656509695
2 ra.162 md.121,684210526316 scostamento...40,3157894736842 quadro..1625,36288088643
3 ra.37 md.121,684210526316 scostamento...84,6842105263158 quadro..7171,41551246538
4 ra.225 md.121,684210526316 scostamento...103,315789473684 quadro..10674,1523545706
5 ra.16 md.121,684210526316 scostamento...105,684210526316 quadro..11169,1523545706
6 ra.14 md.121,684210526316 scostamento...107,684210526316 quadro..11595,8891966759
7 ra.142 md.121,684210526316 scostamento...20,3157894736842 quadro..412,731301939058
8 ra.63 md.121,684210526316 scostamento...58,6842105263158 quadro..3443,83656509695
9 ra.14 md.121,684210526316 scostamento...107,684210526316 quadro..11595,8891966759
10 ra.15 md.121,684210526316 scostamento...106,684210526316 quadro..11381,5207756233
11 ra.400 md.121,684210526316 scostamento...278,315789473684 quadro..77459,6786703601
12 ra.11 md.121,684210526316 scostamento...110,684210526316 quadro..12250,9944598338
13 ra.529 md.121,684210526316 scostamento...407,315789473684 quadro..165906,152354571
14 ra.56 md.121,684210526316 scostamento...65,6842105263158 quadro..4314,41551246537
15 ra.39 md.121,684210526316 scostamento...82,6842105263158 quadro..6836,67867036011
16 ra.324 md.121,684210526316 scostamento...202,315789473684 quadro..40931,6786703601
17 ra.107 md.121,684210526316 scostamento...14,6842105263158 quadro..215,626038781164
18 ra.0 md.121,684210526316 scostamento...121,684210526316 quadro..14807,0470914127
19 ra.0 md.121,684210526316 scostamento...121,684210526316 quadro..14807,0470914127

Esempio: FORMULA APPLICATA: Totale....407919./..n.elementi ritardo...19.....media...21469...radice quadrata...146,524472538316
scarto mq Ritardo Precedente. 2312 | 121 | 407919 | 19 | 21469 | 146,524472538316

Roby · 7 Giugno 2011

è un po un casino, il problema gestito così, comunque ho cercato di superare l'ostacolo.

mi pare che con i valori dettagliati, (non ci siamo) , mentre a livello di totale (si)

bho, sto fondendo u cervellooooo!

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(7)
	' 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."
	atitoli(7) = " Es."
	' inizializzo la tabella
	Call InitTabella(atitoli,1,"center",2,5)
	Dim cx
	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(7) '
		For h = 1 To 5
			For fr = 1 To 10
				If Int(num(fr)) > 0 And Int(num(fr)) = Estratto(Ini,r,h) T

abasul · 8 Giugno 2011

Altro che Professore, tu sei un Genio.

Rubi, sei stu-pe-fa-cen-te!!!!![:0]
Non ho parole per definire ciò che hai realizzato.
Per ultima cosa ti chiedo cortesemente di mettermi sotto solo una stringa
con gli ultimi 10 ritardi e somma totale, e abbiamo finito.
Se poi LuigiB ci dà una mano, con il tuo ulteriore script che andrà
a spulciare quelle formazioni che soddisfano appieno le mie condizioni potremo realizzare insieme delle ottime previsioni per i nostri amici del forum.

Un Saluto e molte Grazie.

Roby · 8 Giugno 2011

aggiornato:

ultimi 10 ritardi per singolo estratto</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(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(7)
	' 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."
	atitoli(7) = " Es."
	' inizializzo la tabella
	Call InitTabella(atitoli,1,"center",2,5)
	Dim cx
	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(7) '
		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

abasul · 8 Giugno 2011

Ciao rubino.

Mi ero illuso che avevamo concluso alla grande, invece
devo notificarti che c'è ancora un errore da correggere [V].

Quando l'utente stabilisce il suo ritardo fututo, trova gli ultimi
due riquadri appositi della prima stringa - che dovrebbero fornire i risultati realtivi alla media e allo S.Q.M. - bloccati,
ad un valore che è corrispondente alla voce "Scarto mq Ritardo Futuro. 2°" già espresso sopra e che quindi non deve comparire di nuovo.

Ti ringrazio vivamente per le stringhe ultime riportate sotto.
Mi faresti cosa gradita riportarmi anche gli ultimi 10 ritardi
con somma rit., media e S.Q.M della formazione scelta per la previsione. Grazie.

Un Saluto

Roby · 8 Giugno 2011

ciao abasul

non ho ben capito tutti 2 i punti che vorresti che vengano modificati o sistemati .

mi faresti un semplice jpeg indicandomi cosa dovrei fare.?

e quali ulteriori dati nell'ultimo riepilogo dei 10 ultimi ritardi?

[/URL]

Uploaded with ImageShack.us[/img]

se ti riferisci al ritardo futuro inserito, me lo hai fatto inserire per calcolare il numero delle estrazioni in attesa, quindi ha o aveva uno scopo.

se sotto viene riportato come ritardo futuro 1 lo stesso valore è solo per avere un riepilogo più lineare nella lettura dei teorici.

mentre sotto per gli ultimi ritardi
per ogni numero della combinazione scelta viene o deve essere visto sotto l'aspetto del singolo estratto o ambata che sia, per vedere se vi è qualche aspetto o valore statistico che ne evidenzia la possibile sortita.

può essere utile nel caso di combinazioni più complesse dell'ambo o coppia di numeri.

-----------------------------
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 · 8 Giugno 2011

Scusami rubino se non riesco ancora a saper postare un jpeg.

Se tu riprendi lo script ABASUL 3 "ABASUL' calcola scarto quadratico medio con formula guidata di una serie di ritardi precedenti" ti
ricorderai che quando si immetteva manualmente un ritardo futuro (a tale proposito
avevamo deciso che doveva essere l'utente a farlo) compariva sotto tre parametri nella stringa come lo sono adesso:
il ritardo precedente, quello attuale e quello futuro;
a differenza di come succede ora con l'ultimo tuo script, del ritardo futuro scelto dall'utente, effettivamente venivano
visualizzati gli indici veritieri nei riquadri riferiti a "Somma R.Fut/Media Rit.Futuro/Sqm R.Futuro. Invece in quello attuale
questo non succede, perché è impostato un valore predefinito
di cui già ti ho parlato nel post precedente. Quei valori che dici tu, invece, che sono
predefiniti, già li troviamo
espressi sopra, appena sotto ad "Esempio: FORMULA APPLICATA: totale ecc. ecc. e appariranno anche nella stringa sotto non appena un ritardo futuro magari sarà superato
"
La stringa che ti chiedo per gli ultimi 10 ritardi della formazione,
non è altro che riportare gli ultimi 10 ritardi della formazione che uno si sceglie.
Questi ultimi dieci ritardi già li trovano espressi sopra in verticale. Tu invece
me li dovresti mostrare in orizzontale: con la somma totale, con
la media riferita solo agli ultimi 10 eventi e lo S.Q.M anch'esso
ferito solo agli ultimi 10 ritardi. Questo mi servirebbe per verificare bene il trend degli ultimi eventi.

Roby · 8 Giugno 2011

ti riferisci a queste 3 caselle

riguardanti il ritardo futuro manuale che viene inserito???

che sappia e ricordi non l'ho mai corretto.

prende il ritardo precedente e somma il ritardo futuro manualmente inserito dall'utente, ne ricalcola la media e lo scarto.

ne scrive in queste posizioni i risultati. (vedi segnale)

nel secondo caso, poichè vuoi un'altra tabella che riepiloghi gli ultimi 10 casi, ti dico " Scusa, piuttosto che riepilogare ancora gli stessi dati, non fai prima a usare lo scroll di pagina e salire qualche cm nello schermo????

Non per niente, se anzichè vedere gli ultimi 10 ritardi, ne vorresti vedere gli ultimi 20, non saresti costretto a salire con lo schermo?

i dati già ci sono di quel tipo, perchè rindondarli più volte????

dico in verità questo, perchè più roba inseriamo e più lo script rallenta il suo processo?

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

abasul · 8 Giugno 2011

Quei valori che hai indicato con le frecce risultano
essere riferiti sempre e solo a quelli di sopra indicati dopo "Scarto mq Ritardo Futuro.2°".
Scusami ma adesso ho un impegno ci risentiamo domani mattina.

Roby · 8 Giugno 2011

facciamo punto su questo esempio:

MILANO AMBO 2.74
ritardo futuro inserito manualmente 1430

tot.ritardi precedenti 7122
rit.futuro ins. 1430
somma ritardi 8552
tot.ambi o eventi 24
media rit.futuro ins. 356,33
smq3ins = 338,502165

ho messo a posto il ritardo futuro inserito
manualmente,

prova a calcolare la media e lo scarto medio quadratico e vediamo se è esatto.

a me pare di si.

ti posto la jpeg dell'output

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

abasul · 8 Giugno 2011

OK rubino hai ragione. Non aggiungiamo più l'ultimissima
mia richiesta, ossia gli ultimi 10 ritardi della formazione
così non rallentiamo di più il programma.

Avendo fatto una verifica sulla correzione che hai apportato, e
che mi hai fatto visionare in jpg, anch'io non trovo errori
per cui puoi postami quest'ultimo script. Appena gli avrò
dato un'ultima occhiata, e se vedrò che questa volta è tutto
OK, ti proporrò una mia prima previsione di una terzina
per ambo da suggerire ai nostri amici del forum, spiegandoti
anche perché l'ho scelta. Poi però sarai tu invece a suggerirmi
quali dei tre numeri sarà indicato per conseguire l'ambata
in un tempo ammissibile.

Un Saluto

Roby · 9 Giugno 2011

ciao Abasul

allora ecco lo script:

Codice:

Sub Main
	''''-------------------------------------------------------------------------------------------
	''''scelta combinazioni dall'ambo secco alla decina x ambo    ABASULmultiAmbo5
	''''-------------------------------------------------------------------------------------------
	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(7)
	' 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."
	atitoli(7) = " Es."
	' inizializzo la tabella
	Call InitTabella(atitoli,1,"center",2,5)
	Dim cx
	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(7) '
		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
				aValori

claudio8 · 9 Giugno 2011

x Rubino e Abasul

si può sapere come calcoloare il "ritardo futuro" da inserire manualmente ? perchè 1430 per l'ambo 2.74 mi ?
Grazie.

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"

abasul · 9 Giugno 2011

Ciao claudio8.

Ti chiedo scusa se al momento non ti posso accontentare
nello spiegarti quel che mi chiedi. Ora io e rubino stiamo quasi finendo di completare al meglio lo script.
Una volta completatolo con senza un errore, ti prometto che te
lo spiegherò. Questo vale anche per miki.

Un Saluto

abasul · 9 Giugno 2011

Ciao rubino, rieccoci qua.

Grazie per lo script postato.

In output, nella seconda stringa, dov'è la "Media Reale", ho
riscontrato un errore. Prendendo in esame l'ambo 02,74
di Milano, il totale delle estrazioni fino ad oggi
è 8387. Questo valore lo devi dividere per 24 (evento se fosse
uscito allo stato attuale) e non per 23, che erano gli eventi riferiti all'ultima estrazione di sortita della formazione.

Non riesco a ritrovarmi sul rit. intermedio ultimo ciclo.
Mi rispieghi per favore come lo ricaviamo?

claudio8 · 9 Giugno 2011

Sono in trepidante attesa.
Ciao

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"

abasul · 9 Giugno 2011

Ciao rubino, rieccoci qua.

Grazie per lo script postato.

In output, nella seconda stringa, dov'è la "Media Reale", ho
riscontrato un errore. Prendendo in esame l'ambo 02,74
di Milano, il totale delle estrazioni fino ad oggi
è 8387. Questo valore lo devi dividere per 24 (evento se fosse
uscito allo stato attuale) e non per 23, che erano gli eventi riferiti all'ultima estrazione di sortita della formazione.

Non riesco a ritrovarmi sul rit. intermedio ultimo ciclo.
Mi rispieghi per favore come lo ricaviamo?

Roby · 9 Giugno 2011

Non riesco a ritrovarmi sul rit. intermedio ultimo ciclo.
Mi rispieghi per favore come lo ricaviamo?
[/quote

Clicca per espandere...

Codice:
]

risposta:

Codice:

ciclicompleti =(EstrazioneFin - dal)/LenghtcicloT parziale = Int(ciclicompleti)*LenghtcicloT intermed =((EstrazioneFin - dal) - parziale) + 1

ruota di MILANO presente nel 1871
pertanto

8387 : 400,5 = 20,94132335 (venti cicli teorici)
400,5 * 20 = totale n.estrazioni 8010

8387 - 8010 = 377 ritardo ciclo intermedio

--------------------------------------------------------------

In output, nella seconda stringa, dov'è la "Media Reale", ho
riscontrato un errore. Prendendo in esame l'ambo 02,74
di Milano, il totale delle estrazioni fino ad oggi
è 8387. Questo valore lo devi dividere per 24 (evento se fosse
uscito allo stato attuale) e non per 23, che erano gli eventi riferiti all'ultima estrazione di sortita della formazione.

Clicca per espandere...

risposta:
non condivido.
la media se dev'essere reale, gli eventi sortiti sono 23 e non 24 che è un dato futuro teorico non ancora avvenuto.

pertanto la media dev'essere gestita con gli ambi effettivamente usciti.
a meno che tu voglia una media che non dev'essere chiamata "REALE" ma "TEORICA".

e poi, fino a ieri hai sempre detto che era giusto, perchè ora cambi ancora opinione?

se vuoi ti cambio l'etichetta definizioni del campo e divido pure per 24, ma metto teorico, perchè a questo punto di reale non ci sta nulla.!
[8D]

-----------------------------
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 · 9 Giugno 2011

Va bene, crea allora ancora un altro spazio sotto, mettendo teorico attuale, dove mi dividi 8387 per 24 perché a me serve così.
Grazie.

Roby · 9 Giugno 2011

Codice:

Sub Main
	''''-------------------------------------------------------------------------------------------
	''''scelta combinazioni dall'ambo secco alla decina x ambo    ABASULmultiAmbo5
	''''-------------------------------------------------------------------------------------------
	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(7)
	' 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."
	atitoli(7) = " Es."
	' inizializzo la tabella
	Call InitTabella(atitoli,1,"center",2,5)
	Dim cx
	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(7) '
		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
				aValori(7) = "A"
				cx = 1
			End If
			If ok = 3 Then
				aVa

x rubino da abasul

Super Member >PLATINUM<

Roby

Guest

Super Member >PLATINUM<

Roby

Guest

Super Member >PLATINUM<

Roby

Guest

Super Member >PLATINUM<

Roby

Guest

Super Member >PLATINUM<

Roby

Guest

Super Member >PLATINUM<

Roby

Guest

Premium Member

Super Member >PLATINUM<

Super Member >PLATINUM<

Premium Member

Super Member >PLATINUM<

Roby

Guest

Super Member >PLATINUM<

Roby

Guest