Domanda per gli esperti di statistica

[solare]

Non so se sarà possibile, magari con la partecipazione di qualche bravissimo amico del forum nel fare uno script, vado al dunque.
Mi è venuta questa idea, cioè trovare il ritardo max della frequenza. Mi spiego meglio, vorrei sapere qual'è il ritardo max "In un periodo di estrazioni a scelta" dei numeri con frequenza 20, 30, ecc. ecc.
quindi lo script dovra' indicarmi tutti i numeri con frequenza da me indicata e dirmi qual'è stato il suo ritardo min e max.
Non so se questo si può verificarlo tramite spaziometria
Forse è già stato trattato questo argomento..!!

 

[Roby]

ciao

Problematiche:

se ho capito bene, vorresti sapere da uno script, i numeri che ricadono attualmente dentro una fascia frequenza a scelta
su una ruota a scelta, esaminati in un range di periodo a scelta.

calcolare quindi un ritardo massimo di frequenza.

a mio modo di vedere bisogna calcolare un ritardo massimo di fascia frequenza.


detto così è ancora un po generico, in quanto i valori di frequenza si muovo in forma dinamica.

a meno che, tu ti riferisca allo stato attuale come periodo fisso.

in spaziometria qualcosa esiste in statistica/estratti/cicli teorici e reali


faccio un esempio: all'estrazione n. 8899

ruota di bari
Periodo 180 estrazioni
otteniamo
fascia 04 nr. 18 30 85
fascia 06 nr. 17 28 32 63 67 71
etc......

i numeri alla prossima estrazione possono cambiare nella fascia, per 2 motivi

1) il periodo di 180 estrazioni è di tipo dinamico, quindi si sposterà di 1 concorso , possono uscire o entrare in fascia diverse da quella che si vede oggi

2) i numeri che ricadono nelle fascia possono ricadere nella fascia sotto o sopra in funzione se uscirono nella prima estrazioni del periodo, cioè 180 concorsi fa, o se invece usciranno nella prossima e futura estrazione.
questo purtroppo farà in modo che cambino spesso di fascia.

in altre parole nelle 180 estrazioni precedenti, i numeri che oggi appartengono alla medesima fascia, sono o hanno cambiato molte volte le fasce frequenza di appartenenza.

3) Quanti numeri ha la fascia frequenza Attuale?
se vi è un numero solo, è probabile che il ritardo sia consistente della fascia
se vi sono molti numeri, è probabile che il ritardo sia molto più basso.




pertanto
se i numeri sono da te intesi come fissi, basta ricercare allora il ritardo massimo dei ritardi che hanno conseguito nel periodo

se i numeri però li vediamo come variabili nel periodo 180 concorsi precedenti, allora dobbiamo ricercare il ritardo della fascia frequenza attuale e ritardo massimo della fascia frequenza.


attendo altri pareri

 

[Roby]

ho fatto una bozza di script, che segue un po il mio ragionamento, sperando che combacia o possa combaciare con il tuo.

quello che non ho fatto è controllare che i dati che presenta, siano corretti, lo farò questa sera.

al piede o in fondo all'output trovi il ritardo massimo di fascia frequenza.

Option Explicit
Sub Main
	Dim r,f,Ini,fin,nr,nf,y,per,ra,z,rrmm,RetEsito,retColpi,RetEstratti,RetIdEstr,aretRuote,ne,finale,Iniz,max
	Dim ar(1)
	r = InputBox("Indicare la ruota ",,1)
	fin = InputBox("fino all' estrazione  n.",,EstrazioneFin)
	Iniz = InputBox("Inizio dall'estrazione n.",,3950)
	per = InputBox("Lunghezza Periodo ",,180)
	Ini = EstrazioneFin -(per - 1)
	ar(1) = r
	f = CInt(InputBox("indicare frequenza ",,12))
	ColoreTesto(2)
	Scrivi " Situazione fasce presenze della ruota di " & NomeRuota(r),1
	Scrivi " Periodo esaminato o lunghezza ciclo " & per,1
	Scrivi "Esamina dall'estrazione n." & Iniz & " " & DataEstrazione(Iniz) & " - " & fin & " " & DataEstrazione(fin),1
	Scrivi "____________________________________________________________________________",1
	ColoreTesto(1)
	''''' loop per fasce frequenza
	For Iniz = Iniz + 1 To fin
		Ini = Iniz
		ReDim fafre(999,2) '''fasce frequenza
		For nr = 1 To 90
			nf = EstrattoFrequenzaTurbo(r,nr,Ini - per,Ini - 1)
			fafre(nf,1) = fafre(nf,1) + 1
			fafre(nf,2) = fafre(nf,2) & Format2(nr) & "."
		Next
		'''''' calcola ritardi storici delle fasce
		For y = 1 To 999
			If y = f Then
				ReDim aV(0)
				Call SplitByChar(fafre(y,2),".",aV)
				If UBound(aV) > 0 Then
					Call VerificaEsito(aV,ar,Ini + 1,1,1,,RetEsito,retColpi,RetEstratti,RetIdEstr,aretRuote)
					If RetEsito <> "" Then
						ne = RetIdEstr
						'''RIEPILOGA fasce frequenze e relativi numeri
						Scrivi "Estr.n." & ne & "       Fascia " & Format2(y) & "   Rit.att." & rrmm & "...presenti..n." & Format2(fafre(y,1)) & "  |    " & fafre(y,2)
						ColoreTesto(1)
						Scrivi "--------------   " & RetIdEstr & "    -----------------------------------------------------estratti n." & RetEstratti,1
						ColoreTesto(2)
						Scrivi " -------------------------------------",1
						ColoreTesto(0)
						If rrmm > max Then
							max = rrmm
						End If
						rrmm = 0
					Else
						rrmm = rrmm + 1
						ne = Ini
					End If
				Else
					rrmm = rrmm + 1
				End If
			End If
		Next
		'''''''''''''''''
	Next
	Scrivi
	Scrivi " Situazione attuale della fascia frequenza ",1
	Scrivi "Estr.n." & fin & "       Fascia " & Format2(f) & "   Rit.att." & rrmm & "...presenti..n." & Format2(fafre(f,1)) & "  |    " & fafre(f,2)
	Scrivi
	ColoreTesto(2)
	Scrivi "--------------------------------------",1
	Scrivi " Ritardo massimo della fascia conc.n. " & max,1
	Scrivi "--------------------------------------",1
End Sub

 

[solare]

Ciao Rubino, intanto mille grazie della tua disponibilità.
Si in effetti mi riferivo allo stato attuale come periodo fisso.
Buonagiornata